我想在安装的过程中,在安装界面上设置一个按钮。
按钮上写着“注入licence”~然后我们点击这个按钮以后,弹出对话框,让我们能够在本地电脑里寻找licence这个文件,找到以后点确定,确定以后,就把licence文件拷贝到一个指定的目录下~这样我们程序启动的时候就可以读取这个licence了这个需要怎么做?各位有思路吗?
按钮上写着“注入licence”~然后我们点击这个按钮以后,弹出对话框,让我们能够在本地电脑里寻找licence这个文件,找到以后点确定,确定以后,就把licence文件拷贝到一个指定的目录下~这样我们程序启动的时候就可以读取这个licence了这个需要怎么做?各位有思路吗?
http://bbs.hanzify.org/thread-htm-fid-48.html
LicenseFile=[path]\授权许可.txt
;不知道您是不是看的明白!!!
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。选择的目录返回到目录字符中。