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

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

Аватара для ROMKA-1977

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


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

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


saneksanek,
читать дальше »

#define MyAppName "Need for Speed: The Run - Limited Edition"
#define MyAppExeName "Need For Speed The Run.exe"

[CustomMessages]
russian.RunEntryExec=Запустить {#MyAppName}

[code]
///////////////////////// Чекбокс запуска приложения на странице завершения установки /////////////////////////
var
RunProgram: TCheckBox;
RunProgramLabel: TLabel;

procedure LabelOnClick(Sender: TObject);
begin
case Sender of
RunProgramLabel: begin RunProgram.Checked:= not RunProgram.Checked; end;
end;
end;

procedure DeinitializeSetup();
var ResultCode: Integer;
begin
if (WizardForm.CurPageID=wpFinished) and (RunProgram.Checked) then
Exec(ExpandConstant('{app}\{#MyAppExeName}'), '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

procedure InitializeWizard();
begin
RunProgram:= TCheckBox.Create(WizardForm);
with RunProgram do
begin
Parent:= WizardForm.FinishedPage;
SetBounds(ScaleX(65), ScaleY(147), ScaleX(13), ScaleY(13)) //Координаты чекбокса
TabOrder:= 5;
Checked:= False; //Если необходимо, можно поменять на True
end;

RunProgramLabel:= TLabel.Create(WizardForm);
with RunProgramLabel do
begin
Caption:=ExpandConstant('{cm:RunEntryExec}');
SetBounds(ScaleX(85), ScaleY(147), ScaleX(150), ScaleY(13)) //Координаты текста чекбокса
Transparent := True;
Font.Color:= clWhite;
Parent:= WizardForm.FinishedPage;
OnClick:= @LabelOnClick;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
RunProgram.Hide;
RunProgramLabel.Hide;
if CurPageId = wpFinished then
begin
RunProgram.Show;
RunProgramLabel.Show;
end;
if (CurPageID = wpFinished) and ISDoneError then
begin
RunProgram.hide;
RunProgramLabel.hide;
end;
end;

Отправлено: 11:43, 18-05-2014 | #680