我用custom action wizard做了,可运行时怎么不执行,高手指教
解决方案 »
- 急,SQL分页语句问题
- 好大一砣屎
- Happy new year!!!如何实现自动拨号上网?
- 为什么定义key=#13回车键没用?
- 大家帮忙锁定键盘和鼠标的问题————在线等待!!!????
- 关于vclskin控件的问题,比较好的xp皮肤控件。就是有点小问题
- 请问在哪里可以找到图片按钮控件?
- 有关richedit的一点疑惑?
- 谁知道如何读取和修改一个文件的文件头或文件的某一部分,给20分
- [求助]有关ADO在delphi和sql server 7使用上的问题。
- installshield6.22怎样添加卸载软件图标???
- 急手问题: 程序打包---安装程序要在不同与主程序(c:)所在盘(d:)中加入文件如何设置?
我以前做过一些。你可以参考,有你想要的功能。
如下所示。
installshield的代码结构比较简单。
其中有些代码你可以在你的安装代码中找到。
Dlg_sdSetupType:
szTitle = "";
szMsg = "";
svSetupType = "Typical";
nResult = SdSetupTypeEx (szTitle, szMsg, "", svSetupType, 0);
//以下的为我加的Dlg_SdComponentTree:
if (nResult = BACK) goto Dlg_SdAskDestPath;
if !(svSetupType = '定制安装') goto Dlg_ObjDialogs;
szTitle = "";
szMsg = "";
szTargetdir = TARGETDIR;
szComponents = "";
nLevel = 2;
if (svSetupType = '定制安装') then
nResult = SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel);
if (nResult = BACK) goto Dlg_SdAskDestPath;
endif;//增加结束
Dlg_ObjDialogs:
nResult = ShowObjWizardPages(nResult);
if (nResult = BACK) goto Dlg_SdComponentTree;
另,调用外部可执行程序可以如此。
LaunchApp(TARGETDIR+"\\Config", "")
最好放在OnEnd() 里执行。
典型的如
function OnEnd()
begin
if !MAINTENANCE then
if (LaunchApp(TARGETDIR+"\\Config", "")) < 0 then
MessageBox("配置应用程序失败,请稍后运行Config.exe文件进行配置", 1);
endif;
endif;
end;