;更改显示在程序中显示的消息文本
[Messages]
BeveledLabel=HKiss科技
;卸载对话框说明
ConfirmUninstall=您真的想要从电脑中卸载ISsample吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.
;定义解压说明
;StatusExtractFiles=解压并复制主程序文件及相关库文件
;用与在用户系统中创建,修改或删除注册表健值
[Registry]
Root: HKLM ;SubKey:"Software\ISsample";ValueType:dword;ValueName:config;ValueData:10 ;Flags:uninsdeletevalue
;在执行脚本
[code]
//全局变量
var MyProgChecked: Boolean;
//判断程序是否存在
//初始华程序事件
function InitializeSetup(): boolean;
var Isbl: boolean; //声明变量
var Isstr: string;
begin //开始
Isbl := true; //变量赋值
Isstr := ''欢迎'';
if RegValueExists(HKEY_LOCAL_MACHINE, ''SOFTWARE\ISsample'', ''config'') then
begin
MsgBox(''已安装过,请先卸载在安装'',mbConfirmation, MB_OK);
isbl := false;
end else
begin
//MsgBox(''无值'',mbConfirmation, MB_OK);
isbl := true;
end;
//下面是个麻烦的 条件语句 end else 注意
//if MsgBox(Isstr, mbConfirmation, MB_OKCANCEL) = IDOK then
//begin
// isbl := true;
// MsgBox(''执行了'', mbConfirmation, MB_OK);
//end else
//begin
// isbl := false;
//MsgBox(''执行了'', mbConfirmation, MB_OK);
//end;
Result := Isbl;
end; //结束
procedure CurStepChanged(CurStep: TSetupStep);
var Isstr :string;
begin
if CurStep=ssInstall then //实际安装前调用
begin
//MsgBox(''CurStepChanged:实际安装前调用'', mbConfirmation, MB_OKCANCEL); //安装完成后调用
end;
if CurStep=ssPostInstall then
begin
Isstr := ExpandConstant(''{tmp}\tmp.rar'');
// if FileExists(Isstr) then
// begin
// MsgBox(''文件存在'',mbConfirmation, MB_OK);
// end else
// begin
// MsgBox(''文件不存在'',mbConfirmation, MB_OK);
// end;
// MsgBox(''CurStepChanged:实际安装后调用'', mbConfirmation, MB_OKCANCEL);
end;
end;
//下一步 按钮按钮 事件
function NextButtonClick(CurPageID: Integer): Boolean;
var ResultCode: Integer;
var IsSetup : Boolean;
begin
IsSetup := true ;
case CurPageID of
wpSelectDir:
MsgBox(''NextButtonClick:'' #13#13 ''You selected: '''''' + WizardDirValue + ''''''.'', mbInformation, MB_OK); //WizardDirValue路径
wpSelectPro