Próbuję utworzyć niestandardowe pole wyboru na mojej stronie niestandardowej (ponieważ jest to instalator jednej strony), potrzebne jest tylko pole wyboru bez okien dialogowych lub czegokolwiek, instalator, który próbuję skompilować, jest bardzo liniowy i prosty.

Chcę powiązać „FILE3.EXE” w polu wyboru w ten sposób: jeśli pole wyboru jest zaznaczone, skopiuj plik (FILE3.EXE) w DestDir, w przeciwnym razie, jeśli pole wyboru nie jest zaznaczone, pomiń plik (FILE3.EXE) podczas instalacji.

To jest kod, którego użyłem, oczywiście brakuje pola wyboru, ponieważ nie jestem w stanie tego zrobić

[Files]
Source: FILE1.EXE; DestDir: {app};
Source: FILE2.EXE; DestDir: {app};
Source: FILE3.EXE; DestDir: {app}; //OPTIONAL

[Code]
procedure ExitProcess(uExitCode: UINT);
external '[email protected] stdcall';


var
MainPage : TWizardPage;
FolderToInstall : TEdit;
InstallLocation : String;


procedure CancelClick(Sender: TObject);
begin
if ExitSetupMsgBox then
begin
ExitProcess(0);
end;
end;


procedure BrowseClick(Sender : TObject);
var
Dir : String;

begin
Dir := FolderToInstall.Text;
if BrowseForFolder('Browse',Dir,false) then
FolderToInstall.Text := Dir;
WizardForm.DirEdit.Text := Dir;
end;


procedure InitializeWizard();
var
LabelFolder : TLabel;


MainPage := CreateCustomPage(wpWelcome,'','');
LabelFolder := TLabel.Create(MainPage);
LabelFolder.Parent := WizardForm;
LabelFolder.Top := 164;
LabelFolder.Left := 6;
LabelFolder.Caption := 'Directory:'


FolderToInstall := TEdit.Create(MainPage);
FolderToInstall.Parent := WizardForm;
FolderToInstall.Top := 182;
FolderToInstall.Left := 85;
FolderToInstall.Width := 380;
FolderToInstall.Text :=  WizardDirValue;
FolderToInstall.ReadOnly := True;
end;