Вопрос Как загрузить строку с рандомным содержимым

[Andreo Fadio]

Вообщем нужно загрузить строку из файла с настройками - vid_mode 800x600, в которой 800x600 разрешение конкретное у каждого свое.
Подскажите как это делается?

 

[Nemko]

Andreo Fadio, это для STALKER вроде, вот пример, но можно подредактировать, в случае неточности:

Спойлер: Exp

[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;

 

[Andreo Fadio]

это для STALKER вроде

да для него