新建
上传
首页
助手
最?/div>
资料?/div>
工具

 

 

InstallShield

制作的打包程序——代码示?/p>

 

收藏

 

 

 

代码如下:有用的地方要用,但是,要根据实际情况,哦?/p>

 

 

至少有些方法可以直接裁出来用的?/p>

 

 

有些是我自己编写的,有些是从网上搜来的方法。做一?/p>

IS

的打包程序还真是不容易呢?/p>

 

 

Setup.Rul 

 

view plaincopy to clipboardprint? 

//=========================================================================== 

 

 

 

// 

 

 

 

// 

 

File Name: 

 

 

 

Setup.rul 

 

 

 

// 

 

 

 

// 

 

Description: 

 

Blank setup main script file 

 

 

 

// 

 

 

 

// 

 

Comments: 

 

 

 

 

Blank setup is an empty setup project. If you want to 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

create a new project via. step-by step instructions use the 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Project Assistant. 

 

 

 

// 

 

 

 

//

描述:空白设置主脚本文件

 

 

 

 

// 

评论:空白的设置是一个空的安装项目。如果你想通过创建一个新的项目。分步说明使

用项目助?/p>

 

 

 

 

//=========================================================================== 

 

 

 

 

 

 

// Included header files ---------------------------------------------------- 

 

 

#include "ifx.h" 

 

 

 

 

 

 

BOOL bWinLogin; 

 

 

 

 

 

 

 

 

 

string szServer, szUser, szPassword; 

 

 

 

 

 

 

 

//--------------------------------------------------------------- 

 

 

 

 

prototype 

 

WriteDBInfo(STRING); 

 

 

 

function 

 

WriteDBInfo(dbConnection) 

 

 

 

 

 

 

 

 

 

 

 

 

string svResult; 

 

 

 

 

 

 

 

 

 

 

number nvFileHandle; 

 

 

 

begin 

 

 

 

 

 

 

 

//

写获取连接数据库文件

 

 

 

 

 

 

 

 

OpenFileMode(FILE_MODE_APPEND); 

 

 

 

 

 

 

 

 

if 

(FindFile(ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?

?

?

?

?

","DBConnection.txt", svResult) < 0) then //

没有,需?/p>

create

一?/p>

 

 

 

 

 

 

 

 

 

 

 

 

 

CreateFile(nvFileHandle,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?/p>

例数据库

","DBConnection.txt"); 

 

 

 

 

 

 

 

 

else 

 

 

 

 

 

 

 

 

 

 

 

 

OpenFile 

(nvFileHandle 

,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

示例数据?

Ͼλ
新建
上传
首页
助手
最?/div>
资料?/div>
工具

 

 

InstallShield

制作的打包程序——代码示?/p>

 

收藏

 

 

 

代码如下:有用的地方要用,但是,要根据实际情况,哦?/p>

 

 

至少有些方法可以直接裁出来用的?/p>

 

 

有些是我自己编写的,有些是从网上搜来的方法。做一?/p>

IS

的打包程序还真是不容易呢?/p>

 

 

Setup.Rul 

 

view plaincopy to clipboardprint? 

//=========================================================================== 

 

 

 

// 

 

 

 

// 

 

File Name: 

 

 

 

Setup.rul 

 

 

 

// 

 

 

 

// 

 

Description: 

 

Blank setup main script file 

 

 

 

// 

 

 

 

// 

 

Comments: 

 

 

 

 

Blank setup is an empty setup project. If you want to 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

create a new project via. step-by step instructions use the 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Project Assistant. 

 

 

 

// 

 

 

 

//

描述:空白设置主脚本文件

 

 

 

 

// 

评论:空白的设置是一个空的安装项目。如果你想通过创建一个新的项目。分步说明使

用项目助?/p>

 

 

 

 

//=========================================================================== 

 

 

 

 

 

 

// Included header files ---------------------------------------------------- 

 

 

#include "ifx.h" 

 

 

 

 

 

 

BOOL bWinLogin; 

 

 

 

 

 

 

 

 

 

string szServer, szUser, szPassword; 

 

 

 

 

 

 

 

//--------------------------------------------------------------- 

 

 

 

 

prototype 

 

WriteDBInfo(STRING); 

 

 

 

function 

 

WriteDBInfo(dbConnection) 

 

 

 

 

 

 

 

 

 

 

 

 

string svResult; 

 

 

 

 

 

 

 

 

 

 

number nvFileHandle; 

 

 

 

begin 

 

 

 

 

 

 

 

//

写获取连接数据库文件

 

 

 

 

 

 

 

 

OpenFileMode(FILE_MODE_APPEND); 

 

 

 

 

 

 

 

 

if 

(FindFile(ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?

?

?

?

?

","DBConnection.txt", svResult) < 0) then //

没有,需?/p>

create

一?/p>

 

 

 

 

 

 

 

 

 

 

 

 

 

CreateFile(nvFileHandle,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?/p>

例数据库

","DBConnection.txt"); 

 

 

 

 

 

 

 

 

else 

 

 

 

 

 

 

 

 

 

 

 

 

OpenFile 

(nvFileHandle 

,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

示例数据?

">
新建
上传
首页
助手
最?/div>
资料?/div>
工具

 

 

InstallShield

制作的打包程序——代码示?/p>

 

收藏

 

 

 

代码如下:有用的地方要用,但是,要根据实际情况,哦?/p>

 

 

至少有些方法可以直接裁出来用的?/p>

 

 

有些是我自己编写的,有些是从网上搜来的方法。做一?/p>

IS

的打包程序还真是不容易呢?/p>

 

 

Setup.Rul 

 

view plaincopy to clipboardprint? 

//=========================================================================== 

 

 

 

// 

 

 

 

// 

 

File Name: 

 

 

 

Setup.rul 

 

 

 

// 

 

 

 

// 

 

Description: 

 

Blank setup main script file 

 

 

 

// 

 

 

 

// 

 

Comments: 

 

 

 

 

Blank setup is an empty setup project. If you want to 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

create a new project via. step-by step instructions use the 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Project Assistant. 

 

 

 

// 

 

 

 

//

描述:空白设置主脚本文件

 

 

 

 

// 

评论:空白的设置是一个空的安装项目。如果你想通过创建一个新的项目。分步说明使

用项目助?/p>

 

 

 

 

//=========================================================================== 

 

 

 

 

 

 

// Included header files ---------------------------------------------------- 

 

 

#include "ifx.h" 

 

 

 

 

 

 

BOOL bWinLogin; 

 

 

 

 

 

 

 

 

 

string szServer, szUser, szPassword; 

 

 

 

 

 

 

 

//--------------------------------------------------------------- 

 

 

 

 

prototype 

 

WriteDBInfo(STRING); 

 

 

 

function 

 

WriteDBInfo(dbConnection) 

 

 

 

 

 

 

 

 

 

 

 

 

string svResult; 

 

 

 

 

 

 

 

 

 

 

number nvFileHandle; 

 

 

 

begin 

 

 

 

 

 

 

 

//

写获取连接数据库文件

 

 

 

 

 

 

 

 

OpenFileMode(FILE_MODE_APPEND); 

 

 

 

 

 

 

 

 

if 

(FindFile(ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?

?

?

?

?

","DBConnection.txt", svResult) < 0) then //

没有,需?/p>

create

一?/p>

 

 

 

 

 

 

 

 

 

 

 

 

 

CreateFile(nvFileHandle,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?/p>

例数据库

","DBConnection.txt"); 

 

 

 

 

 

 

 

 

else 

 

 

 

 

 

 

 

 

 

 

 

 

OpenFile 

(nvFileHandle 

,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

示例数据?

Ͼλ">
Ͼλ
Ŀ

InstallShield 打包实例 - 百度文库
新建
上传
首页
助手
最?/div>
资料?/div>
工具

 

 

InstallShield

制作的打包程序——代码示?/p>

 

收藏

 

 

 

代码如下:有用的地方要用,但是,要根据实际情况,哦?/p>

 

 

至少有些方法可以直接裁出来用的?/p>

 

 

有些是我自己编写的,有些是从网上搜来的方法。做一?/p>

IS

的打包程序还真是不容易呢?/p>

 

 

Setup.Rul 

 

view plaincopy to clipboardprint? 

//=========================================================================== 

 

 

 

// 

 

 

 

// 

 

File Name: 

 

 

 

Setup.rul 

 

 

 

// 

 

 

 

// 

 

Description: 

 

Blank setup main script file 

 

 

 

// 

 

 

 

// 

 

Comments: 

 

 

 

 

Blank setup is an empty setup project. If you want to 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

create a new project via. step-by step instructions use the 

 

 

 

// 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Project Assistant. 

 

 

 

// 

 

 

 

//

描述:空白设置主脚本文件

 

 

 

 

// 

评论:空白的设置是一个空的安装项目。如果你想通过创建一个新的项目。分步说明使

用项目助?/p>

 

 

 

 

//=========================================================================== 

 

 

 

 

 

 

// Included header files ---------------------------------------------------- 

 

 

#include "ifx.h" 

 

 

 

 

 

 

BOOL bWinLogin; 

 

 

 

 

 

 

 

 

 

string szServer, szUser, szPassword; 

 

 

 

 

 

 

 

//--------------------------------------------------------------- 

 

 

 

 

prototype 

 

WriteDBInfo(STRING); 

 

 

 

function 

 

WriteDBInfo(dbConnection) 

 

 

 

 

 

 

 

 

 

 

 

 

string svResult; 

 

 

 

 

 

 

 

 

 

 

number nvFileHandle; 

 

 

 

begin 

 

 

 

 

 

 

 

//

写获取连接数据库文件

 

 

 

 

 

 

 

 

OpenFileMode(FILE_MODE_APPEND); 

 

 

 

 

 

 

 

 

if 

(FindFile(ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?

?

?

?

?

","DBConnection.txt", svResult) < 0) then //

没有,需?/p>

create

一?/p>

 

 

 

 

 

 

 

 

 

 

 

 

 

CreateFile(nvFileHandle,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

?/p>

例数据库

","DBConnection.txt"); 

 

 

 

 

 

 

 

 

else 

 

 

 

 

 

 

 

 

 

 

 

 

OpenFile 

(nvFileHandle 

,ProgramFilesFolder+"\\"+@COMPANY_NAME+"\\

示例数据?



ļ׺.doc޸Ϊ.docĶ

  • ̼ܵܽ
  • Ⱦѧ
  • ()ƬƵĻˮ_ҵ
  • ɽеҪ̬״
  • е϶ѧźŴо
  • 110kVϱվй׼
  • Ԥʵ鱨
  • ƹ̻γҵϰ
  • Ƕʽʵָ
  • ƷƷ,У԰Ʈī

վ

԰ Ͼλ
ϵͷ779662525#qq.com(#滻Ϊ@)