Changeset 210 for branches/highdpi/Platform.pas
- Timestamp:
- May 9, 2020, 4:02:07 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/highdpi/Platform.pas
r17 r210 7 7 uses 8 8 {$IFDEF Windows}Windows,{$ENDIF} 9 {$IFDEF Linux} BaseUnix, UnixUtil,Unix,{$ENDIF}9 {$IFDEF Linux}Unix,{$ENDIF} 10 10 Classes, SysUtils, DateUtils, SyncObjs; 11 11 12 12 function NowPrecise: TDateTime; 13 function GetLogicalProcessorCount: Integer;14 13 15 14 implementation … … 50 49 end; 51 50 52 function GetLogicalProcessorCount: Integer;53 {$IFDEF Windows}54 var55 SystemInfo: _SYSTEM_INFO;56 {$ENDIF}57 begin58 {$IFDEF Windows}59 GetSystemInfo(SystemInfo);60 Result := SystemInfo.dwNumberOfProcessors;61 {$ENDIF}62 end;63 64 51 initialization 65 52
Note:
See TracChangeset
for help on using the changeset viewer.