Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для VitHAK

Пользователь


Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать


Привет! У меня есть скрипт авторана на Inno Setup Script.
В нём есть кнопка:
Код: Выделить весь код
  btn2:= TButton.Create(AutoRun);
  with btn2 do begin
    Parent:= AutoRun;
    Left := 280;
    Top := 185;
    Width := 270;
    Height := 22;
    Caption:= 'Начать игру';
    Cursor:= crHand;
    OnClick := @btn2Click;
  end;
Эта кнопка запускает процедуру:
Код: Выделить весь код
procedure btn2Click(Sender: TObject);
var
  CurPageID: Integer;
begin
  Exec(ExpandConstant('{src}\Setup.exe'),'','',SW_SHOW,ewNoWait,ResultCode)
  AutoRun.Close;
  PostMessage(WizardForm.CancelButton.Handle, BM_CLICK, 0, 0);
end;
Как сделать чтоб эта кнопка была неактивная при отсутствии {src}\Setup.exe ?

P.S. Я знаю что это делается процедурой:
Код: Выделить весь код
begin 
btn2.Enabled := False; 
end
Но как сделать проверку наличия файла {src}\Setup.exe ?

Отправлено: 19:06, 02-08-2009 | #1190