Inno Setup安装问题之文件拷贝

[lrk23932]

我想在安装的过程中，在安装界面上设置一个按钮。
按钮上写着“注入licence”~然后我们点击这个按钮以后，弹出对话框，让我们能够在本地电脑里寻找licence这个文件，找到以后点确定，确定以后，就把licence文件拷贝到一个指定的目录下~这样我们程序启动的时候就可以读取这个licence了

这个需要怎么做？各位有思路吗？

[sghff110]

到这里会得到答案：
http://bbs.hanzify.org/thread-htm-fid-48.html

[xingyongjian]

[Setup]
LicenseFile=[path]\授权许可.txt
;不知道您是不是看的明白!!!

[Think-In-C]

顶起。。。。2,3楼都有解了。

[flamkuavos]

方法1：创建一个默认就有浏览按钮的页面

var
DataDirPage: TInputDirWizardPage;
procedure InitializeWizard;
begin
{ Create the pages }

DataDirPage := CreateInputDirPage(wpSelectDir,
'选择花样设计存放目录', '您要将花样设计文件存放在哪里?',
'选择用于存放花样设计的目录, 然后单击“下一步”。',
False, '');
DataDirPage.Add('');

{ Set default values, using settings that were stored last time if possible }

DataDirPage.Values[0] := GetPreviousData('DataDir', '');
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
I: Integer;
begin
{ Validate certain pages before allowing the user to proceed }
if DataDirPage.Values[0] = '' then
DataDirPage.Values[0] := 'F:\电脑花样';
Result := True;
end;

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
S: String;
begin
{ Fill the 'Ready Memo' with the normal settings and the custom settings }
S := S + NewLine + NewLine;

S := S + MemoDirInfo + '(软件安装目录)' + NewLine;
S := S + Space + DataDirPage.Values[0] + '(花样设计存放目录)' + NewLine;

Result := S;
end;

function GetDataDir(Param: String): String;
begin
{ Return the selected DataDir }
Result := DataDirPage.Values[0];
end;

方法2：响应按钮的OnClick事件，然后调用BrowseForFolder函数
Pascal 脚本: BrowseForFolder
语法:
function BrowseForFolder(const Prompt: String; var Directory: String; const NewFolderButton: Boolean): Boolean;

描述:
显示一个用户选择目录的对话框。目录默认值是初始选择的目录。如果 NewFolderButton 为 True，将显示一个新建文件夹按钮。如果用户选择了一个目录并单击确定后返回 True，否则返回 False。选择的目录返回到目录字符中。

[flamkuavos]

拷贝的函数就叫“CopyFile”，详见帮助