malcolmfreeman
Мимокрокодил
Всем привет.
Нужно сделать чтоб была своя форма выбора папки установки.
путь в edit берется из #define MyApp, и чтоб можно было выбрать кнопкой Button папку куда устанавливать.
Нужно сделать чтоб была своя форма выбора папки установки.
путь в edit берется из #define MyApp, и чтоб можно было выбрать кнопкой Button папку куда устанавливать.
Код:
Всем привет.
Нужно сделать чтоб была своя форма выбора папки установки.
путь в edit берется из #define MyApp, и чтоб можно было выбрать кнопкой Button папку куда устанавливать.
#define MyApp "{pf}\My Prog"
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=.
SolidCompression=yes
ChangesAssociations=true
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
[*Code]
var
ISCP: TWizardPage;
Edit: TNewEdit;
Button: TNewButton;
procedure EditChange(Sender: TObject);
begin
{#MyAppName}
end;
procedure RedesignWizardForm;
begin
{ Creates custom wizard page }
ISCP := CreateCustomPage(wpSelectDir, 'ISCP_Caption', 'ISCP_Description');
{ Edit }
Edit := TNewEdit.Create(WizardForm);
with Edit do
begin
Parent := ISCP.Surface;
Left := ScaleX(8);
Top := ScaleY(104);
Width := ScaleX(313);
Height := ScaleY(21);
Text := 'Edit';
OnChange := @EditChange;
end;
{ Button }
Button := TNewButton.Create(WizardForm);
with Button do
begin
Parent := ISCP.Surface;
Left := ScaleX(328);
Top := ScaleY(104);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Button';
OnClick := @EditChange;
end;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;