malcolmfreeman
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет.
Нужно сделать чтоб была своя форма выбора папки установки.
путь в edit берется из #define MyApp, и чтоб можно было выбрать кнопкой Button папку куда устанавливать.
[more] #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; |
Всего записей: 1 | Зарегистр. 31-08-2017 | Отправлено: 01:44 31-08-2017 | Исправлено: malcolmfreeman, 01:47 31-08-2017 |
|
