Merge branch 'release/5.32.0'

Release v5.32.0

Author: delphidabbler

CHANGELOG.md

@@ -1,5 +1,18 @@
 # Change Log for System Information Unit
 
+## v5.32.0 of 02 April 2025
+
++ Added new TPJBiosInfo class that provides access to some of the information contained in the host computer's BIOS, providing that the BIOS supports the SMBIOS reference specification v2.0 or later.
++ Updated both the VCL and FMX demo programs to add a new tab that displays the results of calling each of the methods of TPJBiosInfo.
++ Removed return values from Exit statements in the PJSysInfo unit to enable compilation with older Delphis.
++ Fixed bug in TPJOSInfo.ProductName where a format string had an incorrect number of placeholders for version numbers.
++ Fixed spelling mistake in the VCL demo project's TPJComputerInfo tab.
++ Changed the descriptive text on the TPJComputerInfo tab of the VCL demo program to refer to the each method's name rather than describing the purpose of the method.
++ Updated documentation:
+  + Updated `README.md` re the addition of the TPJBiosInfo class.
+  + Updated copyright dates in `README.md` to include 2025.
+  + Acknowleged the author of some C code that formed the basis of some of Pascal code in TPJBiosInfo.
+
 ## v5.31.0 of 01 January 2025
 
 + Updated TPJOSInfo to detect Windows builds and revisions released in October to December 2024:

Demos/FMX/FmFMXDemo.fmx

@@ -28,7 +28,7 @@ object Form1: TForm1
       Size.Width = 680.000000000000000000
       Size.Height = 500.000000000000000000
       Size.PlatformDefault = False
-      TabIndex = 0
+      TabIndex = 4
       TabOrder = 0
       TabPosition = Top
       OnChange = TabControl1Change
@@ -40,13 +40,15 @@ object Form1: TForm1
         672s
         466s
         672s
+        466s
+        672s
         466s)
       object tiComputerInfo: TTabItem
         CustomIcon = <
           item
           end>
         TextSettings.Trimming = None
-        IsSelected = True
+        IsSelected = False
         Size.Width = 111.000000000000000000
         Size.Height = 26.000000000000000000
         Size.PlatformDefault = False
@@ -82,6 +84,45 @@ object Form1: TForm1
           end
         end
       end
+      object tiBiosInfo: TTabItem
+        CustomIcon = <
+          item
+          end>
+        TextSettings.Trimming = None
+        IsSelected = False
+        Size.Width = 79.000000000000000000
+        Size.Height = 26.000000000000000000
+        Size.PlatformDefault = False
+        StyleLookup = ''
+        TabOrder = 0
+        Text = 'TPJBiosInfo'
+        object sgBiosInfo: TStringGrid
+          Align = Client
+          CanFocus = True
+          ClipChildren = True
+          Size.Width = 672.000000000000000000
+          Size.Height = 466.000000000000000000
+          Size.PlatformDefault = False
+          TabOrder = 0
+          RowHeight = 21.000000000000000000
+          Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
+          OnResized = sgResized
+          Viewport.Width = 652.000000000000000000
+          Viewport.Height = 441.000000000000000000
+          object StringColumn9: TStringColumn
+            Header = 'Method'
+            HeaderSettings.TextSettings.WordWrap = False
+            ReadOnly = True
+            Size.Width = 240.000000000000000000
+          end
+          object StringColumn10: TStringColumn
+            Header = 'Value'
+            HeaderSettings.TextSettings.WordWrap = False
+            ReadOnly = True
+            Size.Width = 400.000000000000000000
+          end
+        end
+      end
       object tiSpecialFolders: TTabItem
         CustomIcon = <
           item
@@ -169,7 +210,7 @@ object Form1: TForm1
           item
           end>
         TextSettings.Trimming = None
-        IsSelected = False
+        IsSelected = True
         Size.Width = 97.000000000000000000
         Size.Height = 26.000000000000000000
         Size.PlatformDefault = False

Demos/FMX/FmFMXDemo.pas

@@ -39,6 +39,10 @@   TForm1 = class(TForm)
     sgWin32Globals: TStringGrid;
     StringColumn7: TStringColumn;
     StringColumn8: TStringColumn;
+    tiBiosInfo: TTabItem;
+    sgBiosInfo: TStringGrid;
+    StringColumn9: TStringColumn;
+    StringColumn10: TStringColumn;
     procedure TabControl1Change(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure sgResized(Sender: TObject);
@@ -62,6 +66,7 @@   TForm1 = class(TForm)
     procedure ShowTPJOSInfo;
     procedure ShowTPJComputerInfo;
     procedure ShowTPJSystemFolders;
+    procedure ShowTPJBiosInfo;
   end;
 
 var
@@ -167,9 +172,72 @@ procedure TForm1.ShowContent(Tab: Integer);
 begin
   case Tab of
     0: ShowTPJComputerInfo;
-    1: ShowTPJSystemFolders;
-    2: ShowTPJOSInfo;
-    3: ShowWin32Globals;
+    1: ShowTPJBiosInfo;
+    2: ShowTPJSystemFolders;
+    3: ShowTPJOSInfo;
+    4: ShowWin32Globals;
+  end;
+end;
+
+procedure TForm1.ShowTPJBiosInfo;
+const
+  cWakeupTypes: array[TPJBIOSWakeupType] of string = (
+    'wutReserved', 'wutOther', 'wutUnknown', 'wutAPMTimer', 'wutModemRing',
+    'wutLANRemote', 'wutPowerSwitch', 'wutPCIPME', 'wutACPowerRestored'
+  );
+
+  function FmtVersionWord(const V: Word): string;
+  begin
+    if V <> 0 then
+      Result := Format('$%.4x (v%d.%d)', [V, V shr 8, V and $FF])
+    else
+      Result := 'Unknown or error';
+  end;
+
+  function FmtDate(const D: TDate): string;
+  var
+    Fmt: TFormatSettings;
+  begin
+    // Use locale date format
+    if SameDate(0.0, D) then
+      Exit('Unknown or error');
+    Fmt := TFormatSettings.Create;
+    Result := FormatDateTime(Fmt.ShortDateFormat, D);
+  end;
+
+var
+  BIOS: TPJBIOSInfo;
+begin
+  sgBiosInfo.RowCount := 0;
+  BIOS := TPJBIOSInfo.Create;
+  try
+    DisplayItem(sgBiosInfo, 'IsBIOSSupported', BIOS.IsBIOSSupported);
+    DisplayItem(sgBiosInfo, 'SMBIOSSpecVersion',
+      FmtVersionWord(BIOS.SMBIOSSpecVersion));
+    DisplayItem(sgBiosInfo, 'BIOSVendor', BIOS.BIOSVendor);
+    DisplayItem(sgBiosInfo, 'BIOSVersionStr', BIOS.BIOSVersionStr);
+    DisplayItem(sgBiosInfo, 'BIOSVersion', FmtVersionWord(BIOS.BIOSVersion));
+    DisplayItem(sgBiosInfo, 'BIOSECFirmwareVersion',
+      FmtVersionWord(BIOS.BIOSECFirmwareVersion));
+    DisplayItem(sgBiosInfo, 'BIOSReleaseDate [current locale]',
+      FmtDate(BIOS.BIOSReleaseDate));
+    DisplayItem(sgBiosInfo, 'BIOSReleaseDateInvariant',
+      BIOS.BIOSReleaseDateInvariant);
+    DisplayItem(sgBiosInfo, 'SystemUUIDRaw', BIOS.SystemUUIDRaw);
+    DisplayItem(sgBiosInfo, 'SystemUUID [using GUIDToString]',
+      GUIDToString(BIOS.SystemUUID));
+    DisplayItem(sgBiosInfo, 'SystemUUIDStr(False)', BIOS.SystemUUIDStr(False));
+    DisplayItem(sgBiosInfo, 'SystemUUIDStr(True)', BIOS.SystemUUIDStr(True));
+    DisplayItem(sgBiosInfo, 'SystemManufacturer', BIOS.SystemManufacturer);
+    DisplayItem(sgBiosInfo, 'SystemProductName', BIOS.SystemProductName);
+    DisplayItem(sgBiosInfo, 'SystemFamily', BIOS.SystemFamily);
+    DisplayItem(sgBiosInfo, 'SystemOEMVersion', BIOS.SystemOEMVersion);
+    DisplayItem(sgBiosInfo, 'SystemSerialNumber', BIOS.SystemSerialNumber);
+    DisplayItem(sgBiosInfo, 'SystemSKUNumber', BIOS.SystemSKUNumber);
+    DisplayItem(sgBiosInfo, 'SystemWakeupType',
+      cWakeupTypes[BIOS.SystemWakeupType]);
+  finally
+    BIOS.Free;
   end;
 end;
 

Demos/VCL/FmDemo.dfm

@@ -43,13 +43,17 @@   TDemoForm = class(TForm)
     procedure ShowTPJOSInfo;
     procedure ShowTPJComputerInfo;
     procedure ShowTPJSystemFolders;
+    procedure ShowTPJBIOSInfo;
   end;
 
 var
   DemoForm: TDemoForm;
 
 implementation
 
+uses
+  DateUtils;
+
 {$R *.DFM}
 
 const
@@ -157,15 +161,79 @@ procedure TDemoForm.ShowContent(Tab: Integer);
     edDisplay.Clear;
     case Tab of
       0: ShowTPJComputerInfo;
-      1: ShowTPJSystemFolders;
-      2: ShowTPJOSInfo;
-      3: ShowWin32Globals;
+      1: ShowTPJBIOSInfo;
+      2: ShowTPJSystemFolders;
+      3: ShowTPJOSInfo;
+      4: ShowWin32Globals;
     end;
   finally
     edDisplay.Lines.EndUpdate;
   end;
 end;
 
+procedure TDemoForm.ShowTPJBIOSInfo;
+const
+  cWakeupTypes: array[TPJBIOSWakeupType] of string = (
+    'wutReserved', 'wutOther', 'wutUnknown', 'wutAPMTimer', 'wutModemRing',
+    'wutLANRemote', 'wutPowerSwitch', 'wutPCIPME', 'wutACPowerRestored'
+  );
+
+  function FmtVersionWord(const V: Word): string;
+  begin
+    if V <> 0 then
+      Result := Format('$%.4x (v%d.%d)', [V, V shr 8, V and $FF])
+    else
+      Result := 'Unknown or error';
+  end;
+
+  function FmtDate(const D: TDate): string;
+  var
+    Fmt: TFormatSettings;
+  begin
+    // Use locale date format
+    if SameDate(0.0, D) then
+      Exit('Unknown or error');
+    Fmt := TFormatSettings.Create;
+    Result := FormatDateTime(Fmt.ShortDateFormat, D);
+  end;
+
+var
+  BIOS: TPJBIOSInfo;
+begin
+  BIOS := TPJBIOSInfo.Create;
+  try
+    DisplayHeading('TPJBIOSInfo Methods');
+    DisplayRuling;
+    DisplayItem('IsBIOSSupported', BIOS.IsBIOSSupported);
+    DisplayItem('SMBIOSSpecVersion', FmtVersionWord(BIOS.SMBIOSSpecVersion));
+    DisplayRuling;
+    DisplayItem('BIOSVendor', BIOS.BIOSVendor);
+    DisplayItem('BIOSVersionStr', BIOS.BIOSVersionStr);
+    DisplayItem('BIOSVersion', FmtVersionWord(BIOS.BIOSVersion));
+    DisplayItem('BIOSECFirmwareVersion',
+      FmtVersionWord(BIOS.BIOSECFirmwareVersion));
+    DisplayItem('BIOSReleaseDate [current locale]',
+      FmtDate(BIOS.BIOSReleaseDate));
+    DisplayItem('BIOSReleaseDateInvariant', BIOS.BIOSReleaseDateInvariant);
+    DisplayRuling;
+    DisplayItem('SystemUUIDRaw', BIOS.SystemUUIDRaw);
+    DisplayItem('SystemUUID [using GUIDToString]',
+      GUIDToString(BIOS.SystemUUID));
+    DisplayItem('SystemUUIDStr(False)', BIOS.SystemUUIDStr(False));
+    DisplayItem('SystemUUIDStr(True)', BIOS.SystemUUIDStr(True));
+    DisplayItem('SystemManufacturer', BIOS.SystemManufacturer);
+    DisplayItem('SystemProductName', BIOS.SystemProductName);
+    DisplayItem('SystemFamily', BIOS.SystemFamily);
+    DisplayItem('SystemOEMVersion', BIOS.SystemOEMVersion);
+    DisplayItem('SystemSerialNumber', BIOS.SystemSerialNumber);
+    DisplayItem('SystemSKUNumber', BIOS.SystemSKUNumber);
+    DisplayItem('SystemWakeupType', cWakeupTypes[BIOS.SystemWakeupType]);
+    DisplayRuleOff;
+  finally
+    BIOS.Free;
+  end;
+end;
+
 procedure TDemoForm.ShowTPJComputerInfo;
 const
   cProcessors: array[TPJProcessorArchitecture] of string = (
@@ -177,22 +245,22 @@ procedure TDemoForm.ShowTPJComputerInfo;
 begin
   DisplayHeading('TPJComputerInfo Static Methods');
   DisplayRuling;
-  DisplayItem('Computer Name', TPJComputerInfo.ComputerName);
-  DisplayItem('User Name', TPJComputerInfo.UserName);
-  DisplayItem('MAC Address', TPJComputerInfo.MACAddress);
-  DisplayItem('Processor Count', Integer(TPJComputerInfo.ProcessorCount));
-  DisplayItem('Processor Architecture', cProcessors[TPJComputerInfo.Processor]);
-  DisplayItem('Processor Identifier', TPJComputerInfo.ProcessorIdentifier);
-  DisplayItem('Processor Name', TPJComputerInfo.ProcessorName);
-  DisplayItem('Processor Speed (MHz)', TPJComputerInfo.ProcessorSpeedMHz);
-  DisplayItem('Is 64 Bit?', TPJComputerInfo.Is64Bit);
-  DisplayItem('Is Network Present?', TPJComputerInfo.IsNetworkPresent);
-  DisplayItem('Boot Mode', cBootModes[TPJComputerInfo.BootMode]);
-  DisplayItem('Is Administrator?', TPJComputerInfo.IsAdmin);
-  DisplayItem('Is UAC active?', TPJComputerInfo.IsUACActive);
-  DisplayItem('BIOS Vender', TPJComputerInfo.BiosVendor);
-  DisplayItem('System Manufacturer', TPJComputerInfo.SystemManufacturer);
-  DisplayItem('System Product Name', TPJComputerInfo.SystemProductName);
+  DisplayItem('ComputerName', TPJComputerInfo.ComputerName);
+  DisplayItem('UserName', TPJComputerInfo.UserName);
+  DisplayItem('MACAddress', TPJComputerInfo.MACAddress);
+  DisplayItem('ProcessorCount', Integer(TPJComputerInfo.ProcessorCount));
+  DisplayItem('Processor', cProcessors[TPJComputerInfo.Processor]);
+  DisplayItem('ProcessorIdentifier', TPJComputerInfo.ProcessorIdentifier);
+  DisplayItem('ProcessorName', TPJComputerInfo.ProcessorName);
+  DisplayItem('ProcessorSpeedMHz', TPJComputerInfo.ProcessorSpeedMHz);
+  DisplayItem('Is64Bit', TPJComputerInfo.Is64Bit);
+  DisplayItem('IsNetworkPresent', TPJComputerInfo.IsNetworkPresent);
+  DisplayItem('BootMode', cBootModes[TPJComputerInfo.BootMode]);
+  DisplayItem('IsAdmin', TPJComputerInfo.IsAdmin);
+  DisplayItem('IsUACActive', TPJComputerInfo.IsUACActive);
+  DisplayItem('BiosVendor', TPJComputerInfo.BiosVendor);
+  DisplayItem('SystemManufacturer', TPJComputerInfo.SystemManufacturer);
+  DisplayItem('SystemProductName', TPJComputerInfo.SystemProductName);
   DisplayRuleOff;
 end;
 

Demos/VCL/FmDemo.pas

@@ -22,3 +22,5 @@ The project also draws on the work of:
 
 * _**Richard MacCutchan**_ for the C++ code on which _TPJOSInfo.DecodedDigitalProductIDWin7AndDown_ is based. The code was posted on
     CodeProject by _enhzflep_ as Solution 4 at to the question ["How to get productId in windows 7 64 bit"](https://tinyurl.com/3n7fbt3h).
+
+* _**Strive Sun**_ for the C code presented in his answer to the Stack Overflow post ["Win32 API to get Machine UUID"](https://tinyurl.com/cvbx792t). A Pascal translation of some of this code was used as a basis for the portions of the _TPJBiosInfo_ class.