Install Shield Script小结（调用api，com,bat）

老大让我在先前打包程序基础上，把现在项目打包了（web项目）。基本要求是这样子的，用项目包括所需的控件，建虚拟目录。在用户可对SQLSERVER 对行配置，也可安装包内SQLEXPRESS（如果用户配置后无法连接且判断机器内未安装SQLSERVER即安装包内SQLEXPRESS），捣鼓了一星期，把学到的共享下。语法主要看下那个教程就可以，函数直接F1

基本资料：
InstallshieldX安装制作杂记.rar
installshieldjc.rar

再就是InstallShield和帮助，推荐它的官方论坛http://community.installshield.com/

1.用InstallShield Script调用WINAPI方法
如取得机器的登陆用户名。MSDN

GetUserName

The GetUserName function retrieves the name of the user associated with the current thread.

Use the GetUserNameEx function to retrieve the user name in a specified format. Additional information is provided by the IADsADSystemInfo interface.

BOOL GetUserName(
  LPTSTR lpBuffer,
  LPDWORD nSize
);

.......

DLL	Requires Advapi32.dll.
Unicode	Implemented as GetUserNameW (Unicode) and GetUserNameA (ANSI). Note that Unicode support on Windows Me/98/95 requires Microsoft Layer for Unicode.

.......
参照installshieldjc.rar里的对应于Winapi里的函数类型声明，于api函数签名对应，如下声明使用：

prototype BOOL Advapi32.GetUserNameA(BYREF STRING, BYREF NUMBER );
function OnBegin()
STRING strLogonUser;
NUMBER numLogonUser
begin
//

.
numLogonUser = 255;
GetUserNameA(strLogonUser, numLogonUser);
MessageBox(strLogonUser,INFORMATION);
//

.
end;

2.用InstallShield Script调用其他Com
例1:使用DOM

prototype WriteConfig(STRING);
function WriteConfig(info)
STRING fileName;
OBJECT configDoc, child1,child2;
begin
     set configDoc = CoCreateObject("MSXML.DOMDocument");
     fileName=INSTALLDIR^"oceswebs\\Web.config";
    // MessageBox(fileName,INFORMATION);
    if configDoc.Load(fileName) then
        set child1 = configDoc.selectSingleNode("//configuration/appSettings/add[@key='CONNECTIONSTRINGFORPROVINCE']/@value");
             set child2 = configDoc.selectSingleNode("//configuration/connectionStrings/add[@name='CONNECTIONSTRINGFORPROVINCE']/@connectionString");
             child1.text=info;
             child2.text=info;

            //MessageBox(child.text,INFORMATION);
    else
        MessageBox("未找到Web.Config配置文件",INFORMATION) ;
    endif;
       configDoc.save(fileName);
    set configDoc = NOTHING;
end;

用 set configDoc = CoCreateObject("MSXML.DOMDocument");创建对象后，即可轻松通过XPATH操作XML了
例2:使用ADO：

//测试数据库连接方法
//参数：SERVERNAME,服务器名
//DBNAME,数据库名
//DBUSER 用户名
//PWD,   登陆密码
//ATHMODE    登陆模式 0为sql登陆模式，1为WINDOWS验证登陆模式
//返回值－1，无法连接不上sql server
// 返回值  0  连接上sql server 但无此数据库
// 返回值  1  连接上sql server 并存在此数据库
#ifndef    CONNDB
#define    CONNDB   1
  prototype ConnDB(STRING,STRING,STRING,STRING,NUMBER);
  function NUMBER ConnDB(SERVERNAME,DBNAME,DBUSER,PWD,ATHMODE)
    OBJECT oADOcnn, oADOrs;
    STRING svCnn, svSQL;
    NUMBER nvReturn, nvSize, nvFileHandle;
    STRING svResult, szPath, szFileName, svBuffer, szTmp;
    STRING gsSQLServer, gsSQLUID, gsSQLPass, gsSQLDBName;
    BOOL gbWindowsLogin;
begin

    //gsSQLServer = "192.168.75.80";
    //gsSQLDBName="solotemp";
    //gsSQLUID = "sa";
    //gsSQLPass = "iflyecl";
    gsSQLServer =  SERVERNAME;
    gsSQLDBName = DBNAME;
    gsSQLUID = DBUSER;
    gsSQLPass= PWD;
    gbWindowsLogin = ATHMODE;

    if (gbWindowsLogin = TRUE) then
        svCnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=";
        svCnn = svCnn + gsSQLUID + ";Initial Catalog=master;Data Source=" + gsSQLServer;
    else
        svCnn = "Provider=SQLOLEDB.1;Password=" + gsSQLPass + ";Persist Security Info=True;User ID=";
        svCnn = svCnn + gsSQLUID + ";Initial Catalog=master;Data Source=" + gsSQLServer;
    endif;
    //login to the master database

    try
        set oADOcnn = CreateObject("ADODB.Connection");
    catch
        MessageBox ("Error :" + Err.Description , WARNING);
        nvReturn= -1;
        return nvReturn;
    endcatch;

    oADOcnn.ConnectionTimeout = 32;
    oADOcnn.CommandTimeout = 8;
    oADOcnn.CursorLocation = 3; //adUseClient
    try
    oADOcnn.Open(svCnn);
    catch
        MessageBox ("Error :" + Err.Description , WARNING);
        nvReturn= -1;
        return nvReturn;
    endcatch;
    oADOcnn.CommandTimeout = 8;
    oADOcnn.CursorLocation = 3; //adUseClient

    //adOpenDynamic =2 , adOpenForwardOnly =0
    //adLockReadOnly =1, adLockOptimistic =3

    svSQL = "Select * from sysdatabases where [name] = N'"+gsSQLDBName+"'";
        //MessageBox(svSQL,INFORMATION);
    set oADOrs = oADOcnn.Execute(svSQL);
    if (!oADOrs.BOF) then
        MessageBox( "Database "+gsSQLDBName+" exists", WARNING);
         nvReturn=1;
    else
        MessageBox( "Database "+gsSQLDBName+" Does NOT exists,GO on to Creat it", INFORMATION);
        nvReturn=0;
    endif;
    set oADOrs = NULL;

    oADOcnn.Close();
    set oADOcnn = NULL;
      return  nvReturn;

end;

3.调用批处理bat：

sMsg="Excute Configure file and SQL

.";
                               SdShowMsg (sMsg, TRUE);
                               result = result + LaunchAppAndWait(INSTALLDIR^"Component\\config.bat","",LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);
                             sCmdLine= sServerName+" \""+ sUserName+"\" \""+ sPWD+ "\"";
                              result = result + LaunchAppAndWait(INSTALLDIR^"Component\\setup2.bat",sCmdLine,LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN);
                            SdShowMsg (sMsg, FALSE);

调用bat很简单，想提醒下如果把参数传入bat的话。我被搞的很郁闷。注意引号，免得传错，还是用例子说明吧：
setup2.bat的内容如下：

@echo off
"sqlcmd.exe" -S %1 -U %2 -P %3 -i "c:\ecl\ecl_init2.sql"

我要把 server name,username,password传入，即sServerName+" \""+ sUserName+"\" \""+ sPWD+ "\""; 传入，关于LaunchAppAndWait提醒一点，开始以为它和LaunchApp一样，只要找到bat,或exe文件，运行即返回值即返回0，安装程序就控制不了它了，当我用它来启动一个服务时，结果服务启动失败，返回了-1。我到处MessageBox也找到这个原因。

posted on 2007-08-11 16:03 Haozes 阅读(5386) 评论(3) 编辑收藏举报

刷新页面返回顶部

Haozes's Tech Space

Install Shield Script小结（调用api，com,bat）

GetUserName

导航

公告