[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no
[Code]
function GetScreenSize(FileName: PAnsiChar; Value: String): String;
var
i, p: Integer;
s, v: AnsiString;
begin
if FileExists(FileName) then begin
LoadStringFromFile(FileName, s);
p:=Pos(Lowercase(Value), s);
if p <> 0 then begin
for i:=p+Length(Value) to Length(s) do begin
if (s[i] = #13) or (s[i] = #13#13) then Break;
if (s[i] = ' ') then Continue else v:=v+s[i];
end;
if Length(v) > 0 then Result:=String(v) else Result:='Что-то не так пошло!';
end else Result:='Нет значения в файле!';
end else Result:='Нет файла!';
end;
function InitializeSetup: Boolean;
begin
MsgBox(GetScreenSize(ExpandConstant('{src}\user.ltx'), 'vid_mode'), mbInformation, 0)
Result:=False;
end;