[Setup]
AppName=Test
AppVersion=1.5
DefaultDirName={sd}\Test
[Run]
Filename: "{win}\notepad.exe"; WorkingDir: "{win}"; Check: "MyCheck"; - Здесь что прописать.
[CustomMessages]
russian.Run=Запустить игру: Spider
russian.Finished=Завершение Мастера установки игры: {#GameName}.%nИгра {#GameVerName} установлена на ваш компьютер.%nПриложение можно запустить с помощью соответствующего значка или запустить с помощью установщика.%nНажмите «Завершить», чтобы выйти из программы установки.
russian.Finished2=Установка игры {#GameVerName} не завершена.%nПожалуйста, устраните проблему и запустите установку снова.%nНажмите «Завершить», чтобы выйти из программы установки.
[Code]
var
RunLabel: TLabel;
RunCheck : HWND;
function Run: Boolean;
begin
Result:= BtnGetChecked(RunCheck);
end;
procedure RunClick(hBtn:HWND);
begin
if BtnGetChecked(hBtn) then RunLabel.Font.Color:=$00FFFF else RunLabel.Font.Color:=$FFFFFF;
end;
procedure RunLabelClick(Sender:TObject);
begin
BtnSetChecked(RunCheck, not BtnGetChecked(RunCheck));
RunClick(RunCheck);
end;
procedure InitializeWizard;
begin
RunCheck:=BtnCreate(WizardForm.Handle,ScaleX(180),ScaleY(273),ScaleX(24),ScaleY(24),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(RunCheck,BtnClickEventID,WrapBtnCallback(@RunClick,1));
BtnSetCursor(RunCheck,GetSysCursorHandle(32649));
RunLabel := TLabel.Create(WizardForm);
with RunLabel do begin
AutoSize:=False;
SetBounds(ScaleX(210), ScaleY(280), ScaleX(450), ScaleY(17));
OnClick:= @RunLabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Time New Roman'
Font.Size:= 8;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:Run}');
Parent := WizardForm;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
BtnSetVisibility(RunCheck,False);
RunLabel.Hide;
case CurPageID of
wpFinished:
begin
if not ISDoneError then RunLabel.Show else CaptionLabel.Caption:= ExpandConstant('{cm:Finished2}');
if not ISDoneError then BtnSetVisibility(RunCheck,True) else CaptionLabel.Caption:= ExpandConstant('{cm:Finished2}');
end;
end;
end;