Fixed #5966: Add new GetWindowsProductId function to JclSysInfo

project-jedi · Jan 2, 2024 · ba1a772 · ba1a772 · mr-koya · Apr 5, 2024
1 parent 4b319dc
commit ba1a772
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/jcl/source/common/JclSysInfo.pas b/jcl/source/common/JclSysInfo.pas
@@ -203,6 +203,7 @@ function GetDomainName: string;
 {$IFDEF MSWINDOWS}
 function GetRegisteredCompany: string;
 function GetRegisteredOwner: string;
+function GetWindowsProductId: string;
 function GetBIOSName: string;
 function GetBIOSCopyright: string;
 function GetBIOSExtendedInfo: string;
@@ -2471,6 +2472,15 @@ function GetRegisteredOwner: string;
     Result := ReadWindowsCurrentVersionStringValue('RegisteredOwner', '', True);
 end;
 
+function GetWindowsProductId: string;
+begin
+  { TODO : check for MSDN documentation }
+  if IsWinNT then
+    Result := ReadWindowsNTCurrentVersionStringValue('ProductId', '', True)
+  else
+    Result := ReadWindowsCurrentVersionStringValue('ProductId', '', True);
+end;
+
 { TODO: Check supported platforms, maybe complete rewrite }
 
 function GetUserDomainName(const CurUser: string): string;