用InstallShield自动安装ASP程序及数据库
/////////////////////////////////////////////////////////////
// 用InstallShield 进行 ASP 软件的打包和自动安装////
/////////////////////////////////////////////////////////////
// 功能： ////
// 1.选择是否安装SQL数据库 ////
// 2.自动创建或附加SQL数据库 并优化 ////
// 3.选择是否安装主程序 ////
// 4.创建站点或者虚拟目录 ////
// 5.指定站点的IP地址和端口 ////
// 6.自动创建新的GLOBAL.ASA ////
// --------------作者------dodo@dodocs.net ////
///////////////////////////////////////////////////////////
#define BITMAP_ID 1
#include "ifx.h" //不能移动
prototype CreateWebSite(STRING,STRING); // 创建 IIS 站点
prototype CreateVirtualDir(STRING); // 创建虚拟目录
prototype CreateDataBase(STRING,STRING,STRING);//创建SQL数据库
prototype CheckIIS(); // 示例：检查系统是否安装IIS
STRING TMP_PRODUCT_NAME,TMP_PRODUCT_VERSION,TMP_COMPANY_NAME,TMP_PRODUCT_KEY,TMP_TITLE_CAPTIONBAR;
STRING globalstr,destdir,destsvr,destsa,destpw;
NUMBER nvFileHandle,nvFileHandlebak,asaline;
BOOL iscreatedb;
STRING nSetupType,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault;
STRING szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault;
STRING szADDomain,szADOU,szADDomainDefault,szADOUDefault,ADDC1;
STRING svName, svCompany, svSerial;
NUMBER nResult,iCount,DCNum,isSucced;
STRING DCStr,DCTmpStr,DBName,tmpstr,RegLDAP,haveSMS;
LIST listID;
function OnFirstUIBefore()
NUMBER nResult,nOpt,svEdit1,svEdit2;
STRING szTitle, szMsg,szBmpPath,szLeftBmp,sztopBmp;
STRING szLicenseFile, szQuestion;
STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;
STRING szFile,szTargetPath,szDir,szfolder;
STRING szComponents, szTargetdir;
STRING szField1,szField2;
STRING szDefault,svResult;
OBJECT piisObj;
LIST list,listStartCopy;
NUMBER nLevel,nvSize;
begin
TMP_PRODUCT_NAME="XXX电子政务平台";
TMP_PRODUCT_VERSION="V2005";
TMP_COMPANY_NAME="XXX公司";
TMP_PRODUCT_KEY="88888888";
TMP_TITLE_CAPTIONBAR="0";
szBmpPath=SUPPORTDIR^"setup.bmp";
//szLeftBmp=SUPPORTDIR^"shu.gif";
//sztopBmp=SUPPORTDIR^"heng.gif";
//DialogSetInfo(DLG_INFO_ALTIMAGE, szBmpPath, TRUE); // 设置左边的图片
SetTitle( @TITLE_MAIN, 24, WHITE );
SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );
Enable( DEFWINDOWMODE );
Enable( BACKGROUND );
SetColor(BACKGROUND,RGB (0, 128, 128));
SetDisplayEffect (EFF_REVEAL);
PlaceBitmap (szBmpPath, BITMAP_ID, 0, 0, CENTERED);
//默认值设定
TARGETDIR = "C:"^"inetpub"^@FOLDER_NAME;
szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
svName = "";
svCompany = "";
svSerial = "88888888";
if (CheckIIS()==1) then // 示例：检查系统是否安装IIS
//MessageBox ("已经安装了ＩＩＳ，安装继续！",SEVERE);
goto Dlg_Start;
else
MessageBox ("该系统没有安装ＩＩＳ，请先安装ＩＩＳ！",WARNING);
goto end_all_install;//结束安装
endif;
Dlg_Start:// 开始对话框
Dlg_SdWelcome: //欢迎 对话框
szTitle = "欢迎安装使用 "+TMP_PRODUCT_NAME+" "+TMP_PRODUCT_VERSION;
szMsg = "";
nResult = SdWelcome( szTitle, szMsg );
if (nResult = BACK) goto Dlg_Start;
Dlg_SdLicense://软件许可协议 对话框
szLicenseFile = SUPPORTDIR ^ "license.txt";
szTitle = "最终用户许可协议";
szMsg = "";
szQuestion = "";
nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );
if (nResult = BACK) goto Dlg_SdWelcome;
Dlg_SdShowInfoList://readme文件 对话框
szFile = SUPPORTDIR ^ "infolist.txt";
list = ListCreate( STRINGLIST );
ListReadFromFile( list, szFile );
szTitle = "系统信息概述";
szMsg = "系统概述";
nResult = SdShowInfoList( szTitle, szMsg, list );
ListDestroy( list );
if (nResult = BACK) goto Dlg_SdLicense;
Dlg_SdRegisterUserEx://用户信息 对话框
szMsg = "";
szTitle = "用户信息注册";
svCompany = "XXX省";
svSerial = "xxxxxxxx";
nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );
if (nResult = BACK) goto Dlg_SdShowInfoList;
//检查序列号
//if (CHK_serial(svCompany, svSerial)<0) then
//goto Dlg_SdRegisterUserEx;
//endif;
//检查序列号完毕
//数据库版本不需要设置ＡＤ，跳过此部分
DBName="SD_JLEG";//数据库名称直接为
goto Dlg_SetupType://直接到安装类型部分
Dlg_InputADAdmin://设置AD目录服务器的IP和用户名
szTitle = "设置目录(AD)服务器";
szMsg = "现在开始设置目录(AD)服务器的ＩＰ、管理员帐号和密码";
szQuestion=" 请输入目录(AD)服务器的管理员帐号和密码,安装程序将按照您提供的IP地址、帐号和密码进行配置。如果您提供的帐号或密码错误的话，该系统将不能正常使用！";
szADsvr="IP地址:";
szADusr="帐 号:";
szADpwd="密 码:";
szADsvrDefault="192.168.8.8";
szADusrDefault="Administrator";
szADpwdDefault="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault);
if (nResult = BACK) goto Dlg_SdRegisterUserEx;
Dlg_InputADDomain://设置AD目录服务器的域和组织
szTitle = "设置目录(AD)服务器";
szMsg = "现在开始设置目录(AD)服务器的域名和组织单元";
szQuestion=" 请输入目录(AD)服务器的完整域名和组织单元,安装程序将按照您提供的信息进行配置。如果您提供的信息错误的话，该系统将不能正常使用！";
szADDomain="完整域名:";
szADOU="组织单元:";
szADDomainDefault="dodocs.net";
szADOUDefault="xxxxxxxx";
listID = ListCreate (STRINGLIST);
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szADDomain,szADOU,szADDomainDefault,szADOUDefault);
//域名转换为ＤＣ：dodocs.net则为:DC=DODOCS,DC=NET
if (StrGetTokens (listID, szADDomainDefault, ".") > 0) then
MessageBox("你输入的域名有错误，请重新输入！",WARNING);
goto Dlg_InputADDomain;
else
DCNum=ListCount ( listID );//取得域名的分割的段数
nResult = ListGetFirstString (listID, DCTmpStr);//移动到首位
DBName=DCTmpStr+"_JLEG";//生成数据库名称:dodocs_jleg
DCStr="DC="+DCTmpStr;
for iCount=1 to DCNum-1
nResult = ListGetNextString (listID, DCTmpStr);
DCStr=DCStr+",DC="+DCTmpStr;
endfor;
endif;
ListDestroy (listID);//释放内存
if (nResult = BACK) goto Dlg_SdRegisterUserEx;
Dlg_SetupType: //安装类型 对话框
nSetupType = "完全安装";
szTitle = "安装类型";
szMsg = "请选择您需要按哪种方式安装";
nResult = SdSetupTypeEx ( szTitle , szMsg , "" , nSetupType , 0 );
if (nResult = BACK) then
goto Dlg_SdRegisterUserEx;
endif;
if (nSetupType = "仅主程序") then
goto Dlg_SdAskDestPath;
endif;
Dlg_AskSQL://设置数据库服务器 对话框
szTitle = "设置SQL数据库";
szMsg = "现在开始设置Microsoft SQL Server数据库系统";
szQuestion=" 请输入SQL SERVER数据库服务器的用户名和密码,安装程序将按照您提供的IP地址和下面的用户名和密码创建和优化数据库系统。如果您提供的用户名和密码是错误的，安装程序将自动跳过数据的设置！";
szSQLsvr="主机名：";
szSQLusr="用户名：";
szSQLpwd="密 码：";
szSQLsvrDefault="192.168.8.8";
szSQLusrDefault="sa";
szSQLpwdDefault="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault);
if (nResult = BACK) goto Dlg_SetupType;
Dlg_SdStartCopy://开始复制文件 对话框
szTitle = "确认数据库信息";
szMsg = "点击下一步继续";
listStartCopy = ListCreate( STRINGLIST );
ListAddString(listStartCopy,"用户名："+svName,AFTER);
ListAddString(listStartCopy,"公司名称："+svCompany,AFTER);
ListAddString(listStartCopy,"主机名："+szSQLsvrDefault,AFTER);
ListAddString(listStartCopy,"用户名："+szSQLusrDefault,AFTER);
ListAddString(listStartCopy,"密 码："+szSQLpwdDefault,AFTER);
ListAddString(listStartCopy,"",AFTER);
ListAddString(listStartCopy,"请确认您填写的信息，按下一步继续",AFTER);
iscreatedb=TRUE;//安装数据库标志为真
destsvr=szSQLsvrDefault;
destsa=szSQLusrDefault;
destpw=szSQLpwdDefault;
nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
ListDestroy(listStartCopy);
if (nResult = BACK) goto Dlg_AskSQL;
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);
if (nSetupType = "仅数据库") then
goto end_all_install;
endif;
//开始主程序安装
Dlg_SdAskDestPath://安装位置 对话框
szTitle = "主程序安装位置";
szMsg = "";
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
TARGETDIR = szDir;
destdir=szDir;
if (nResult = BACK) goto Dlg_SetupType;
Dlg_SelMode1://设置IIS服务器 对话框
szTitle = "设置"+TMP_PRODUCT_NAME+"的运行模式";
szMsg = "请选择软件运行的方式，极力推荐使用独立站点方式运行";
szField1="独立站点方式运行(自动创建新站点)";
szField2="虚拟目录方式运行(自动创建虚拟目录)";
svEdit1=TRUE;
svEdit2=FALSE;
SetDialogTitle(DLG_ASK_TEXT,szTitle);
//DialogSetInfo ( DLG_INFO_CHECKSELECTION, "", 1);
nOpt = EXCLUSIVE ;
nResult = AskOptions (nOpt,szMsg,szField1,svEdit1,szField2,svEdit2);
if (nResult = BACK) goto Dlg_AskSQL;
if (svEdit1=FALSE) goto Dlg_AskText1;//选择创建虚拟目录
Dlg_AskText ://设置IIS服务器,建立站点 对话框
szTitle = "设置IIS信息服务器";
szMsg = "现在开始设置IIS系统";
szQuestion=" 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写，安装程序将自动跳过站点的创建！";
szServerIP="地址：";
szServerPort="端口：";
szServerIPDefault="192.168.8.8";
szServerPortDefault="80";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
if (nResult = BACK) goto Dlg_SelMode1;
if (nResult = NEXT) goto Dlg_SdStartCopy1;
Dlg_AskText1 ://设置IIS服务器,建立虚拟目录 对话框
szTitle = "设置IIS信息服务器";
szMsg = "现在开始设置IIS系统";
szQuestion=" 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写，安装程序将自动跳过站点的创建！";
szServerIP="别名：";
szServerPort="目录：";
szServerIPDefault="192.168.8.8";
szServerPortDefault=szDir;
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
if (nResult = BACK) goto Dlg_AskText;
Dlg_SdStartCopy1://开始复制文件 对话框
szTitle = "确认IIS服务器信息";
szMsg = "点击下一步继续";
listStartCopy = ListCreate( STRINGLIST );
ListAddString(listStartCopy,"用户名："+svName,AFTER);
ListAddString(listStartCopy,"公司名称："+svCompany,AFTER);
ListAddString(listStartCopy,"目标目录："+szDir,AFTER);
if (svEdit1=TRUE) then
ListAddString(listStartCopy,"IP地址："+szServerIPDefault,AFTER);
ListAddString(listStartCopy,"端口号："+szServerPortDefault,AFTER);
endif;
if (svEdit2=TRUE) then
ListAddString(listStartCopy,"别名："+szServerIPDefault,AFTER);
ListAddString(listStartCopy,"目录："+szServerPortDefault,AFTER);
endif;
ListAddString(listStartCopy,"",AFTER);
ListAddString(listStartCopy,"请确认您填写的信息，按下一步继续",AFTER);
nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
ListDestroy(listStartCopy);
if (nResult = BACK) goto Dlg_AskText1;
SetStatusWindow(0, "");
Enable(STATUSEX);
Enable(INDVFILESTATUS);
StatusUpdate(ON, 100);
if (svEdit1=TRUE) then
CreateWebSite(szServerIPDefault,szServerPortDefault); // 开始创建 IIS 站点
endif;
if (svEdit2=TRUE) then
CreateVirtualDir(szServerIPDefault); // 开始创建 IIS 站点
endif;
end_all_install://结束全部安装
return 0;
end;
function OnFirstUIAfter()
STRING szTitle,szMsg1, szMsg2, szOption1, szOption2,szCmdLine;
NUMBER bOpt1, bOpt2;
STRING szMsg,regAdInfo,regAdadmin,regPassWord,regUnitName,regAdLDAP;
STRING sKey, sValue, sData;
STRING sMsg;
NUMBER nType, nSize, nResult;
STRING szKey, szNumName, szNumValue, svNumValue,TITLE,RegLDAP;
NUMBER nvType, nvSize;
begin
MessageBox("将要安装系统运行所必需的组件，请记下该组件安装的序列号:41133-90544-38797", INFORMATION );
if (LaunchAppAndWait(destdir + "\\cnt\\aspupload.exe",szCmdLine,WAIT) < 0) then
tmpstr="安装组件失败！\n您需要手工运行安装目录下的prg\\cnt\\aspupload.exe安装！";
SprintfBox (INFORMATION, "安装提示信息", tmpstr, "");
endif;
if ((nSetupType = "完全安装") || (nSetupType = "仅主程序"))then
//开始安装短信发送服务程序
szMsg = "将要安装短信发送服务程序．\n如果有短信发送设备，请选择＜是＞，否则请选择＜否＞．";
haveSMS="No";//是否有手机短信设备标志
if (AskYesNo(szMsg, YES) = YES) then
haveSMS="Yes";
MessageBox("请注意：选择安装路径一定为刚才安装时选择的目录下的\\prg\\jlegsms\\目录．否则将不能正确运行！", WARNING );
if (LaunchAppAndWait(destdir + "\\cnt\\setup.exe",szCmdLine,WAIT) < 0) then
tmpstr="安装短信发送服务程序失败！\n您需要手工运行安装目录下的prg\\cnt\\setup.exe安装！";
SprintfBox (INFORMATION, "安装提示信息", tmpstr, "");
endif;
endif;
endif;
if ((nSetupType = "完全安装") || (nSetupType = "仅数据库"))then
//判断是否已经安装SQLSERVER 2000
RegDBSetDefaultRoot( HKEY_LOCAL_MACHINE );
sKey = "Software\\Microsoft\\Microsoft SQL Server";
sValue = "InstalledInstances";
nResult = RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize );
if( nResult < 0 ) then
sMsg = "安装程序中断，因为在这台服务器上没有找到Microsoft SQL Server！\n" +
"请先安装Microsoft SQL Server 2000，然后再运行本安装程序.";
MessageBox( sMsg, SEVERE );
abort;
endif;
//开始创建数据库
CreateDataBase(destsvr,destsa,destpw); // 创建和优化数据库
if (nSetupType = "完全安装")then
//根据用户输入的AD中的组织名称，返回其AD连接信息串
//regAdInfo="LDAP://192.168.8.8:389/DC=sd,DC=jsw,DC=net";
//regAdadmin="test@dodocs.net";
//regPassWord="dodocs";
//regUnitName="xxx";
regAdInfo="LDAP://" + szADsvrDefault + ":389/" + DCStr;
regAdadmin=szADusrDefault + "@" + szADDomainDefault;
regPassWord=szADpwdDefault;
regUnitName=szADOUDefault;
//写入注册表
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
RegDBCreateKeyEx("SOFTWARE","dodocs");
RegDBSetKeyValueEx ("SOFTWARE\\dodocs", "ADInfo" , REGDB_STRING , regAdInfo , -1 );
RegDBSetKeyValueEx ("SOFTWARE\\dodocs", "ADadmin" , REGDB_STRING , regAdadmin , -1 );
RegDBSetKeyValueEx ("SOFTWARE\\dodocs", "adminPassWord" , REGDB_STRING , regPassWord , -1 );
RegDBSetKeyValueEx ("SOFTWARE\\dodocs", "unitName" , REGDB_STRING , regUnitName , -1 );
RegDBSetKeyValueEx ("SOFTWARE\\dodocs", "softPath" , REGDB_STRING , TARGETDIR , -1 );//保存安装路径
//数据库版本不需要检测ＡＤ信息，跳过
goto beginWriteGlobal;
if (LaunchAppAndWait(destdir + "\\cnt\\ADdllTest.exe",szCmdLine,WAIT) < 0) then
tmpstr="创建配置文件失败！\n您需要手工配置AD连接字符串！";
SprintfBox (INFORMATION, "安装提示信息", tmpstr, "");
endif;
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBGetKeyValueEx("SOFTWARE\\dodocs","ADLDAP",nvType,RegLDAP,nvSize) < 0) then
tmpstr="创建配置文件失败！\n您需要手工配置AD连接字符串！";
SprintfBox (INFORMATION, "安装提示信息", tmpstr, "");
endif;
//SprintfBox (INFORMATION, "安装提示信息", RegLDAP, "");
beginWriteGlobal:
//开始设置global.asa
isSucced=1;//操作GLOBAL。ASA文件是否成功的标志
OpenFileMode (FILE_MODE_NORMAL);//打开文件方式只读
if (OpenFile (nvFileHandlebak, destdir, "global.bak") < 0) then
MessageBox ("打开配置文件失败,请手动配置", SEVERE);
isSucced=0;
goto end_all_install1;
endif;
OpenFileMode (FILE_MODE_APPEND);//打开文件方式可写
if (CreateFile (nvFileHandle, destdir, "global.asa") < 0) then
MessageBox ("创建global.asa文件失败,请手动配置", SEVERE);
isSucced=0;
goto end_all_install1;
else//开始写文件
asaline=1;
while (GetLine (nvFileHandlebak, globalstr) = 0)
switch (asaline)
case 15:
//此行需修改,否则原样写入文件:使用单位所在区域
globalstr="uninname=\"" + svCompany + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("写global.asa文件失败,请手动修改", WARNING);
isSucced=0;
goto end_all_install1;
endif;
case 18:
//此行需修改,否则原样写入文件:单位名称
globalstr="Application(\"thissoftuser\")=uninname & \"" + svSerial + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("写global.asa文件失败,请手动修改", WARNING);
isSucced=0;
goto end_all_install1;
endif;
case 23:
//此行需修改,是否有短信设备标志，有为"yes",无为"no"
globalstr="Application(\"IsSMS\")= \"no\"";
if haveSMS="Yes" then
globalstr="Application(\"IsSMS\")= \"yes\"";
endif;
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("写global.asa文件失败,请手动修改", WARNING);
isSucced=0;
goto end_all_install1;
endif;
case 30:
//此行需修改,否则原样写入文件:ＳＱＬ连接
globalstr="Application(\"SqlLink\")=\"Provider=SQLOLEDB.1;Password=" + destpw + ";Persist Security Info=True;User ID=" + destsa + ";Initial Catalog=" + DBName +";Data Source=" + destsvr + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("写global.asa文件失败,请手动修改", WARNING);
isSucced=0;
goto end_all_install1;
endif;
case 32:
//此行需修改,否则原样写入文件:ＳＱＬ连接
globalstr="Application(\"ConnectSql\")=\"Driver=SQL Server;Server=" + destsvr + ";Database=" + DBName + ";UID=" + destsa + ";PWD=" + destpw + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("写global.asa文件失败,请手动修改", WARNING);
isSucced=0;
goto end_all_install1;
endif;
default:
//原样写入文件
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("写global.asa文件失败,请手动修改", WARNING);
isSucced=0;
goto end_all_install1;
endif;
endswitch;
asaline=asaline+1;//下一行
endwhile;
endif;
// 关闭文件
CloseFile (nvFileHandle);
CloseFile (nvFileHandlebak);
endif;
endif;
if (isSucced==1) then
szTitle = "创建配置文件";
szMsg = "恭喜，自动修改配置文件成功!";
SprintfBox (INFORMATION, szTitle, szMsg, "global.asa");
endif;
end_all_install1:
//SdShowMsg (" 正在注册 "+TMP_PRODUCT_NAME+" 用到的组件....", FALSE);
//szTitle = TARGETDIR + "\\cnt\\AspAppG.dll";
//注册组件：解密用
//if (LaunchAppAndWait("regsvr32.exe /s ",szTitle,WAIT) < 0) then
//szMsg="系统所必需的组件未注册成功！\n请先运行" + TARGETDIR + "\\cnt\\Setup_Ent.exe，再访问本电子政务！";
//SprintfBox (INFORMATION, "安装提示信息", szMsg, "");
//endif;
szTitle = TARGETDIR + "\\cnt\\AspcnUP.dll";
//注册组件：上传用
//if (LaunchAppAndWait("regsvr32.exe /s ",szTitle,WAIT) < 0) then
//szMsg="系统所必需的组件未注册成功！\n请先运行:REGSVR32 " + TARGETDIR + "\\cnt\\AspcnUP.dll手工注册组件，再访问本电子政务！";
//SprintfBox (INFORMATION, "安装提示信息", szMsg, "");
//endif;
szTitle = TARGETDIR + "\\cnt\\pmi_com.dll";
//注册组件：授权
//if (LaunchAppAndWait("regsvr32.exe /s ",szTitle,WAIT) < 0) then
//szMsg="系统所必需的组件未注册成功！\n请先运行:REGSVR32 " + TARGETDIR + "\\cnt\\pmi_com.dll手工注册组件，再访问本电子政务！";
//SprintfBox (INFORMATION, "安装提示信息", szMsg, "");
//endif;
//授权服务器信息写入注册表--->开始
|
来源：互联网
阅读：613 次
日期：2006-11-23
|
|
【 双击滚屏 】 【 推荐朋友 】 【 收藏 】 【 打印 】 【 关闭 】
【 字体：大 中 小 】
|
文学作品 