SetupFactory-脚本

2013-05-17 23:22 ⁄ 工业·编程 ⁄ 共 5142字 ⁄ 字号小中大 ⁄ 暂无评论

1、写注册表

lResult = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "SOFTWARE\\MapInfo\\MapX\\5.0");
if not lResult then
Registry.CreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\\MapInfo\\MapX\\5.0");
end;
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\MapInfo\\MapX\\5.0", "ProgramDir", "C:\\Program Files\\MapInfo\\MapX 5.0", REG_MULTI_SZ);
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\MapInfo\\MapX\\5.0", "SearchPaths", "", REG_MULTI_SZ);
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\MapInfo\\MapX\\5.0", "GeoDictionary", "", REG_MULTI_SZ);
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\MapInfo\\MapX\\5.0", "VersionCode", "5.02", REG_MULTI_SZ);
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\MapInfo\\MapX\\5.0", "CommonDLLDir", "C:\\Program Files\\MapInfo\\MapX 5.0", REG_MULTI_SZ);

程序打包：setup factory使用方法

2、注册文件

lreg = SessionVar.Expand('"%AppFolder%\\MapX 5.0\\regsvr32.exe" /s ');
lfile = SessionVar.Expand('"%AppFolder%\\MapX 5.0\\MAPX50.DLL"');
localfile = String.Concat(lreg,lfile);
File.Run(localfile, "", "", SW_SHOWNORMAL, false);
--result = Dialog.Message("注意",localfile, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

3、检查Oracle客户端是否安装

function isOracleClientInstalled()
retVal = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\Oracle\\HOME0");
-- 提供额外的检查
return retVal;
end;

4、下载文件（s)

function downloadFile(remoteUrl, localFile, title)
retVal = ""
httpOK = HTTP.TestConnection(remoteUrl);
if (httpOK) then
    StatusDlg.Show(0, false);
    StatusDlg.SetTitle(title);
    HTTP.Download(remoteUrl, localFile);
    StatusDlg.Hide();
    err = Application.GetLastError();
    if err == 0 then
      return localFile;
    end;
end;

if (not httpOK) then
    return "";
end;
end;

function downloadFiles(remotePath, files, localPath, title)
StatusDlg.Show(0, false);
StatusDlg.SetTitle(title);
for idx, f in files do
    remoteFile = String.Concat(remotePath, f);
    localFile = String.Concat(localPath, String.Replace(f, "/", "\\"));
    HTTP.Download(remoteFile, localFile);
    err = Application.GetLastError();
    if err ~= 0 then
      return "";
    end;
end;
StatusDlg.Hide();
return localPath;
end;

5、添加Oracle连接串

function addOracleLocalService(serviceName, host, port, remoteService)
oraFile = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\Oracle", "ORACLE_HOME");
oraFile = String.Concat(oraFile, "\\network\\admin\\tnsnames.ora");

stroraFile = TextFile.ReadToString(oraFile);
svcPos = 1;
oraFileLen = String.Length(stroraFile);

while svcPos > 0 and svcPos < oraFileLen do
    svcPos = String.Find(stroraFile, serviceName, svcPos + String.Length(serviceName), false);
    if svcPos > 0 and prevIsNotSymbol(stroraFile, svcPos) and nextSymbol(stroraFile, svcPos + String.Length(serviceName), oraFileLen) == '=' then
      break;
    end;
end;

if svcPos == -1 then
    stroraFile =
    String.Concat(serviceName,
      String.Concat(" =\r\n (DESCRIPTION =\r\n    (ADDRESS_LIST =\r\n      (ADDRESS = (PROTOCOL = TCP)(HOST = ",
        String.Concat(host,
          String.Concat(")(PORT = ",
            String.Concat(port,
              String.Concat("))\r\n    )\r\n    (CONNECT_DATA =\r\n      (SERVICE_NAME = ",
                String.Concat(remoteService,
                  ")\r\n    )\r\n )"
                )
              )
            )
          )
        )
      )
    );
    stroraFile = String.Concat("\r\n", stroraFile);
    orabakFile = String.Concat(oraFile, ".sbk");
    File.Copy(oraFile, orabakFile);
    TextFile.WriteFromString(oraFile, stroraFile, true);
end;
end;

6、修改hosts文件

function addSdeLocalHosts(LName,MapIP)
hostsFile = _WindowsFolder;
hostsFile = String.Concat(hostsFile, "\\system32\\drivers\\etc\\hosts");
--Debug.SetTraceMode(turn_on);
--Debug.ShowWindow(true);
--Debug.SetTraceMode(true);
Avar =String.Concat(MapIP,"      ");
Avar =String.Concat(Avar,LName);
--strhostFile = TextFile.ReadToString(hostsFile);
--strhostFile =String.Concat(strhostFile,Avar);
strhostFile =String.Concat("\r\n",Avar);
   -- strhostFile=Avar;
    hostsbakFile = String.Concat(hostsFile, ".sbk");
    File.Copy(hostsFile, hostsbakFile);
    TextFile.WriteFromString(hostsFile,strhostFile, true);
end;

7、检查fromwork2.0是否安装

function isDotNETInstalled()
retVal = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE,
"Software\\Microsoft\\.NETFramework\\Policy\\v2.0");
-- 做额外的检查
return retVal;
end;

8、其它

DlgProgressBar.SetRange(CTRL_PROGRESS_BAR_01, 0, 5);
DlgProgressBar.SetStep(CTRL_PROGRESS_BAR_01, 1);

-- Test if Oracle 9i Client is installed.
-- If not, download from the location specified by session variable "%OracleDownloadUrl%"
-- and install it.
DlgProgressBar.SetProperties(CTRL_PROGRESS_BAR_01, {Text="正在验证Oracle客户端安装..."});
DlgProgressBar.Step(CTRL_PROGRESS_BAR_01);
if not isOracleClientInstalled() then
localOracleStartFolder = SessionVar.Expand("%TempFolder%\\Oracle\\");
localOracle = String.Concat(localOracleStartFolder, "Oracle9iClient.msi");
oracleUrl = SessionVar.Get("%OracleDownloadUrl%");
if downloadFile(oracleUrl, localOracle, "正在下载Oracle客户端……") == localOracle then
   runMSINoAttention(localOracle, localOracleStartFolder);
else
    Dialog.Message("错误",
      "不能下载安装Oracle客户端，安装完本软件后，请自行下载安装。",
      MB_OK,
      MB_ICONEXCLAMATION);
end;
end;

-- If oracle client does exist or has just been installed, register local oracle service name.
DlgProgressBar.SetProperties(CTRL_PROGRESS_BAR_01, {Text="正在验证Oracle客户端服务名..."});
DlgProgressBar.Step(CTRL_PROGRESS_BAR_01);
if isOracleClientInstalled() then
addOracleLocalService(
SessionVar.Get("%OracleLocalService%"),
SessionVar.Get("%Oracle