Quote:
Originally Posted by peterf1999
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';
|
You can try to use interfaces instead creating so many exported functions (but only for unicode version)