View Single Post
  #30  
Old 30-03-2016, 08:18
peterf1999's Avatar
peterf1999 peterf1999 is offline
Die Hard Member
 
Join Date: Nov 2008
Location: Italy
Posts: 928
Thanks: 14
Thanked 983 Times in 236 Posts
peterf1999 is on a distinguished road
GetSysInfo procedure replaced by:

Code:
function GetCpuName: PAnsichar; external 'GetCpuName@files:Isab.dll stdcall delayload';
function GetCpuMaxClockSpeed: integer; external 'GetCpuMaxClockSpeed@files:Isab.dll stdcall delayload';
function GetCpuCurrentClockSpeed: integer; external 'GetCpuCurrentClockSpeed@files:Isab.dll stdcall delayload';
function GetCpuManufacturer: PAnsichar; external 'GetCpuManufacturer@files:Isab.dll stdcall delayload';
function GetCpuPhysicalCores: integer; external 'GetCpuPhysicalCores@files:Isab.dll stdcall delayload';
function GetCpuLogicalCores: integer; external 'GetCpuLogicalCores@files:Isab.dll stdcall delayload';
function GetGpuName: PAnsichar; external 'GetGpuName@files:Isab.dll stdcall delayload';
function GetGpuRam: integer; external 'GetGpuRam@files:Isab.dll stdcall delayload';
function GetVideoDescription: PAnsichar; external 'GetVideoDescription@files:Isab.dll stdcall delayload';
function GetHorizontalResolution: PAnsichar; external 'GetHorizontalResolution@files:Isab.dll stdcall delayload';
function GetVerticalResolution: PAnsichar; external 'GetVerticalResolution@files:Isab.dll stdcall delayload';
function GetRefreshRate: PAnsichar; external 'GetRefreshRate@files:Isab.dll stdcall delayload';
function GetAudioDeviceName: PAnsichar; external 'GetAudioDeviceName@files:Isab.dll stdcall delayload';
function GetTotalVisibleMemory: integer; external 'GetTotalVisibleMemory@files:Isab.dll stdcall delayload';
function GetFreePhysicalMemory: integer; external 'GetFreePhysicalMemory@files:Isab.dll stdcall delayload';
function GetOSName: PAnsichar; external 'GetOSName@files:Isab.dll stdcall delayload';
function GetOSVersionMajor: Cardinal; external 'GetOSVersionMajor@files:Isab.dll stdcall delayload';
function GetOSVersionMinor: Cardinal; external 'GetOSVersionMinor@files:Isab.dll stdcall delayload';
function GetOSBuildNumbers: Cardinal; external 'GetOSBuildNumbers@files:Isab.dll stdcall delayload';
function GetServicePackMajorVersion: Word; external 'GetServicePackMajorVersion@files:Isab.dll stdcall delayload';
function GetServicePackMinorVersion: Word; external 'GetServicePackMinorVersion@files:Isab.dll stdcall delayload';
function GetOSArchitecture: Byte; external 'GetOSArchitecture@files:Isab.dll stdcall delayload';
Reply With Quote
The Following 7 Users Say Thank You to peterf1999 For This Useful Post:
altef_4 (30-03-2016), arkantos7 (30-03-2016), BAMsE (31-03-2016), RamiroCruzo (30-03-2016), Razor12911 (30-03-2016), Simorq (01-12-2017), y_thelastknight (07-04-2016)