ually displays UI that will inform end user that
// installation has been completed successfully.
//
///////////////////////////////////////////////////////////////////////////////
function OnFirstUIAfter()
STRING szTitle,szMsg1, szMsg2, szOption1, szOption2,szCmdLine;
NUMBER bOpt1, bOpt2;

begin
//set_vod_liveaddress();

szCmdLine = SUPPORTDIR ^"SCE10CHS.EXE";
if (LaunchAppAndWait(szCmdLine, " /q",WAIT) < 0) then
MessageBox ("不能安装解码程序，请联系供应商.",SEVERE);
endif;

Disable(STATUSEX);
bOpt1 = FALSE;
bOpt2 = FALSE;
szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);
szMsg2 = "请浏览本主机WEB服务器上的 "+@PRODUCT_NAME+" 虚拟目录\n\n 例：\n http://Localhost/";
szOption1 = "";
szOption2 = "";
szTitle = @PRODUCT_NAME+"安装完成";
SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);

szCmdLine = "http://LocalHost";
//if (LaunchApp(PROGRAMFILES ^"Internet Explorer"^"IEXPLORE.EXE", szCmdLine) < 0) then
//MessageBox ("不能打开浏览器.",SEVERE);
//endif;

return 0;
end;


//////////////////////////
// 创建IIS站点
//////////////////////////
function CreateWebSite(szServerIPDefault,szServerPortDefault)
STRING szCmdLine,szWaitTxt;
begin
if ((szServerIPDefault = "") || (szServerPortDefault = "")) then
  MessageBox ("您没有设定"+@PRODUCT_NAME+"运行的服务器IP地址或端口！！IIS信息服务设置失败！\n请自行创建IIS站点，并将主目录设为："+TARGETDIR,SEVERE);
else
  szWaitTxt=" 正在创建IIS和设置站点....";
  SdShowMsg (szWaitTxt, TRUE);
  Delay(2);
  szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r "+TARGETDIR+" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t "+@PRODUCT_NAME;  
  if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
  MessageBox ("不能建立WEB 虚拟目录，没有找到 WScript.exe 或执行脚本错误.",SEVERE);
  endif;
  SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;

//////////////////////////
// 创建虚拟目录
//////////////////////////
function CreateVirtualDir(VirtualFolder)
STRING szCmdLine,szWaitTxt;
begin
if (VirtualFolder = "") then
  MessageBox ("没能读取到虚拟目录的名称！请联系系统供应商！"+TARGETDIR,SEVERE);
else
  szWaitTxt=" 正在创建"+@PRODUCT_NAME+"的虚拟目录....";
  SdShowMsg (szWaitTxt, TRUE);
  Delay(2);
  szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v \""+VirtualFolder+"\",\""+ TARGETDIR+"\"" ;
  if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
  MessageBox ("不能建立WEB 虚拟目录，没有找到 WScript.exe 或执行脚本错误.",SEVERE);
  e

上一页  [1] [2] [3] [4] [5] 下一页

在google里搜索更多用InstallShield 进行 ASP 软件的打包和自动安装(Jaron原创)

	Web www.51ec.org

上一篇信息学院： 不知道大家使用没使用我前几天写的操作INI文件的COM呢？我把代码贴出来。

下一篇信息学院： 管理用户踢人文件admin/admin.asp