P.S. Нам с Вами надо в эту тему перебраться... А то модераторы будут недовольны...
Написал
Код: Выделить всё
function GetGpuVRam: integer; external 'GetGpuVRam@files:ISSysInfo.dll stdcall delayload';
function GetTotalVisibleMemory: integer; external 'GetTotalVisibleMemory@files:ISSysInfo.dll stdcall delayload';
function GetOSName: PAnsichar; external 'GetOSName@files:ISSysInfo.dll stdcall delayload';
function GetOSArchitecture: Byte; external 'GetOSArchitecture@files:ISSysInfo.dll stdcall delayload';
function GetVideoCardName(): PAnsiChar;external 'hwc_GetVideoCardName@files:get_hw_caps.dll stdcall';
function GetSoundCardName(): PAnsiChar; external 'hwc_GetSoundCardName@files:get_hw_caps.dll stdcall';
function GetSoundCards(): Integer; external 'hwc_GetSoundCards@files:get_hw_caps.dll stdcall';Код: Выделить всё
function GetGpuVRam: integer; external 'GetGpuVRam@files:ISSysInfo.dll stdcall delayload';
function GetTotalVisibleMemory: integer; external 'GetTotalVisibleMemory@files:ISSysInfo.dll stdcall delayload';
function GetOSName: PAnsichar; external 'GetOSName@files:ISSysInfo.dll stdcall delayload';
function GetOSArchitecture: Byte; external 'GetOSArchitecture@files:ISSysInfo.dll stdcall delayload';
function GetVideoCardName(): PAnsiChar;external 'hwc_GetVideoCardName@files:get_hw_caps.dll stdcall';
function GetSoundCardName(): PAnsiChar; external 'hwc_GetSoundCardName@files:get_hw_caps.dll stdcall';
function GetSoundCards(): Integer; external 'hwc_GetSoundCards@files:get_hw_caps.dll stdcall';
[/spoiler]Код: Выделить всё
[Setup]
ArchitecturesInstallIn64BitMode=x64Код: Выделить всё
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: String; ValueName: "{app}\MO2\ModOrganizer.exe"; ValueData: "RUNASADMIN"; Flags: uninsdeletekey;