[nik1967]

semiono,

пример для обычного инно

Код:

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Registry]
Root: HKLM; SubKey: SOFTWARE\MyApp; ValueType: string; ValueName: Resolution ; ValueData: {code:Res}; Flags: uninsdeletekey;

[Code]
Const
  SM_CXSCREEN = 0;
  SM_CYSCREEN = 1;

function GetSystemMetrics(nIndex: Integer): Integer; external 'GetSystemMetrics@User32.dll stdcall setuponly';     
     
function Res(S: String): String;
begin
  S:= IntToStr(GetSystemMetrics(SM_CXSCREEN))+'x'+IntToStr(GetSystemMetrics(SM_CYSCREEN));  
  Result:= S;
end;

пример для инно от китайцев (проще)

Код:

#ifndef IS_ENHANCED
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Registry]
Root: HKLM; SubKey: SOFTWARE\MyApp; ValueType: string; ValueName: Resolution ; ValueData: {code:Res}; Flags: uninsdeletekey;

[Code]      
function Res(S: String): String;
begin
  S:= IntToStr(Screen.Width)+'x'+IntToStr(Screen.Height);    
  Result:= S;
end;