Inno Setup安装问题之文件拷贝

lrk23932 2010-11-26 03:13:48

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

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

...全文

782 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

flamkuavos 2011-01-05

打赏
举报

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

flamkuavos 2011-01-05

打赏
举报

方法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。选择的目录返回到目录字符中。