+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد بدست اوردن سریال ویندوز (دلفی) (/showthread.php?tid=2155)
سورس کد بدست اوردن سریال ویندوز (دلفی) - Amin_Mansouri - 04-21-2012
Returns the Windows product ID.
کد:
function WindowsProductID: string;
const
// Registry keys for Win 9x/NT
cRegKey: array[Boolean] of string = (
'Software\Microsoft\Windows\CurrentVersion',
'Software\Microsoft\Windows NT\CurrentVersion'
);
// Registry key name
cName = 'ProductID';
begin
Result := GetRegistryString(
Windows.HKEY_LOCAL_MACHINE, cRegKey[IsWinNT], cName
);
end;