[Tco 03]

neorom

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

Создаёте чекбокс:
var
DirectX: TCheckBox;
Создаёте надпись для этого чекбокса:
DirectXLabel: TLabel;

Функция проверки чекбокса:
function InstallDirectX: Boolean;
begin
Result:= DirectX.Checked;
end;

Сам код чекбокса:
DirectX:= TCheckBox.Create(WizardForm);
DirectX.Parent:= Где нужно показать чекбокс.
DirectX.Left:= От левого края.
DirectX.Top:= Сверху.

Лейбл:
DirectXLabel:= TLabel.Create(WizardForm);
DirectXLabel.Parent:= Где нужно показать лейбл.
DirectXLabel.Left:= От левого края.
DirectXLabel.Top:= Сверху.

Что запустить при выборе чекбокса:
[Run]
Filename: "{src}\DirectX\DXSETUP.exe"; WorkingDir: "{src}\DirectX"; Parameters: "/silent"; Check: InstallDirectX; Flags: waituntilterminated;

Что запустить при выборе чекбокса (Через секцию код):
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
begin
if CurStep = ssPostInstall then
begin
if DirectX.Checked then
begin
Exec(ExpandConstant('{src}\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\DirectX'), SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
end;
end;

И на этом я пасс - уже почти весь скрипт за Вас написан...