各位大神,我现在遇到一个问题。Innosetup自带的点击“浏览” ,跳出选择路径页面,但是我现在想要把它的路径选择页面修改一下,请问怎么修改?
我想要将自带的路径选择页面也做成下面的一样,代码如下:
[Setup]
AppName=我的程序
AppVerName=我的程序 1.5
DefaultDirName={pf}\我的程序
DefaultGroupName=我的程序
[Files]
; 以下文件安装到主目录
Source: compiler:Examples\MyProg.exe; DestDir: {app}
; 以下文件安装到副目录
Source: compiler:Examples\Readme.txt; DestDir: {code:app2}
[Code]
var
Label1: TLabel;
NewEdit1: TNewEdit;
NewButton1: TNewButton;
procedure ButtonOnClick(Sender: TObject); // 点击“浏览”按钮后的操作
var newDir: string;
begin
if BrowseForFolder('请选择要将插件安装到哪里!', newDir, false) then
NewEdit1.Text := newDir;
end;
procedure RedesignWizardForm;
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Name := 'Label1';
Parent := WizardForm.SelectDirPage;
AutoSize := False;
Caption := '插件将安装到以下目录:';
Transparent := False;
Left := ScaleX(0);
Top := ScaleY(155);
Width := ScaleX(327);
Height := ScaleY(20);
end;
with WizardForm.DiskSpaceLabel do
begin
Top := ScaleY(107);
end;
{ NewEdit1 }
NewEdit1 := TNewEdit.Create(WizardForm);
with NewEdit1 do
begin
Name := 'NewEdit1';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(174);
Width := ScaleX(321);
Height := ScaleY(22);
Text:= ExpandConstant('{userappdata}\ABC'); // 默认副目录
end;
{ NewButton1 }
NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Name := 'NewButton1';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(336);
Top := ScaleY(174);
Width := ScaleX(81);
Height := ScaleY(24);
Caption := '浏览(S)...';
OnClick:= @ButtonOnClick;
end;
NewEdit1.TabOrder := 5;
NewButton1.TabOrder := 6;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;
function app2(Param: String): String; // 副目录
begin
Result := NewEdit1.Text;
end;