04-21-2012، 11:26 PM
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;