用Inno Setup制作WEB程序安装包
最近做了一个WEB程序的安装包，我把制作的过程做个介绍，贴出源码给大家做个参考
看看inno 的脚本
[Setup]
AppCopyright=test
AppName=test
AppVerName=test v2.0
SolidCompression=true
OutputDir=Output\
OutputBaseFilename=test_setup
DefaultDirName={pf}\Lms
DefaultGroupName=Lms
;安装程序的基本信息
[_ISTool]
UseAbsolutePaths=false
[UninstallDelete]
Type: files; Name: {app}\init_test.log
Type: dirifempty; Name: {app}\database
;需要提示卸载程序额外删除的目录
[Run]
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-5-20;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-5-32-545;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}\database"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
Filename: {tmp}\init_test.exe; Parameters: """{app}"" 2.0"; Description: Configure SQLServer; StatusMsg: Configuring Database; Flags: postinstall skipifdoesntexist
;uncomment this line to use for dotnet 1.1
;Filename: {tmp}\SetACL.exe; Parameters: "-ot file -on ""{win}\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden
Filename: {tmp}\SetACL.exe; Parameters: "-ot file -on ""{win}\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden
;安装过程需要运行的程序，SetACL.EXE是一个第三方组件使用方法大家可以google一下，init_test.exe为附加数据库和数据还有设置asp.net版本的程序
[Dirs]
Name: {app}\database
Name: {app}\course
;产生目录
[Types]
Name: Custom; Description: Custom installation; Flags: iscustom
[Files]
Source: 3rdParty\SetACL.exe; DestDir: {tmp}; flags: deleteafterinstall
Source: test\*; DestDir: {app}; Excludes:*.webinfo,*.vspscc, \obj,Thumbs.db,CVS,*.pdb,*.cs,*.scc,*.bak,*.csproj,*.log,*.Old,*.user,*.lic,*.sln,*.suo,8.rar; Flags: recursesubdirs
Source: test_table.sql; DestDir: {tmp}; Flags: deleteafterinstall
Source: test_Data.sql; DestDir: {tmp}; Flags: deleteafterinstall
Source: init_test.exe; DestDir: {tmp}; flags: deleteafterinstall
;需要随安装包一起打包的文件
[Code]
const
VDirName = 'test';
Vwebctrl = 'webctrl_client';
IISServerNumber = '1';
function SafeCreateOleObject(ProgId:String;ExceptionMsg:String):Variant;
var
retobj:Variant;
begin
try
retobj := CreateOleObject(ProgId);
except
RaiseException(ExceptionMsg+''#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
end;
Result:=retobj;
end;
{
create virtual directory, pointing to installation directory
}
procedure SetupIIS;
var
IIS, WebSite, WebServer, WebRoot, VDir: Variant;
begin
{ Create the main IIS COM Automation object }
IIS:=SafeCreateOleObject('IISNamespace','Please install Microsoft IIS first.');
{ Connect to the IIS server }
WebSite := IIS.GetObject('IIsWebService', GetComputerNameString() + '/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', IISServerNumber);
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
{ (Re)create a virtual dir }
try
WebRoot.Delete('IIsWebVirtualDir', VDirName);
except
end;
try
WebRoot.Delete('IIsWebVirtualDir', Vwebctrl);
except
end;
If DirExists(ExpandConstant('{app}')) then
begin
VDir := WebRoot.Create('IIsWebVirtualDir', VDirName);
VDir.AccessRead := True;
VDir.AccessFlags:=529;
VDir.AppFriendlyName := 'LMS Website';
VDir.Path := ExpandConstant('{app}\');
VDir.EnableDirBrowsing:=False;
VDir.EnableDefaultDoc:=True;
VDir.DefaultDoc :='Default.aspx';
VDir.AppCreate(True);
VDir.SetInfo();
end;
If DirExists(ExpandConstant('{app}\IEWebControl\'+Vwebctrl)) then
begin
VDir := WebRoot.Create('IIsWebVirtualDir', Vwebctrl);
VDir.AccessRead := True;
VDir.AccessFlags:=529;
VDir.AppFriendlyName := 'visual web ctral';
VDir.Path := ExpandConstant('{app}\IEWebControl\'+Vwebctrl);
VDir.EnableDirBrowsing:=False;
VDir.EnableDefaultDoc:=True;
VDir.DefaultDoc :='default.htm';
VDir.AppCreate(True);
VDir.SetInfo();
end;
end;
procedure ControlIIS(bState:boolean);
var
resultcode:integer;
param:string;
begin
if bState then
param:='START'
else param:='STOP';
Exec('NET.EXE',param+' "IIS ADMIN"',
ExpandConstant('{sys}'),SW_SHOW,ewWaitUntilTerminated,resultcode
);
end;
;在IIS默认站点下添加虚拟目录
procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssPostInstall:
begin
SetupIIS();
//ControlIIS(true);
end;
ssInstall:
//ControlIIS(false);
else
;
end;
end;
再来看一下init_lms.exe的主要方法：
private void CreateDatabase()
{
string sql = " CREATE DATABASE "
+ dbName;
if (IsLocalInstall())
{
sql += " ON PRIMARY (NAME = " + dbDataName + ", "
+ " FILENAME = '" + getDir("database\\" + dbDataName + ".mdf") + "', "
+ " SIZE = 5MB,"
+ " FILEGROWTH =1) "
+ " LOG ON (NAME =" + dbLogName + ", "
+ " FILENAME = '" + getDir("database\\" + dbLogName + ".ldf") + "', "
+ " SIZE = 1MB, "
+ " FILEGROWTH =1) ";
}
sql += " COLLATE Chinese_PRC_CI_AS";
try
{
this.Cursor = Cursors.WaitCursor;
frmProg.StepText("drop database");
if (chkCreateDB.Checked)
{
try
{
execSQL("master", "DROP DATABASE " + dbName);
writeLog("old database dropped");
}
catch (Exception)
{
writeLog("database not found or unable to be dropped");
}
}
frmProg.StepText("creating database");
if (chkCreateDB.Checked)
{
try
{
execSQL("master", sql);
writeLog("DB CREATED:" + sql);
}
catch (Exception e)
{
writeLog("DB CREATING ERROR:" + e.Message);
}
}
frmProg.StepText("creating tables");
if (chkTables.Checked)
{
writeLog("exec lmsdb_table.sql");
dmoExecSQL(sqlb_t.ToString());//dbName, sqlb);
}
frmProg.StepText("initialize base data");
if (chkDatas.Checked)
{
//writeLog(sqlb.ToString());
writeLog("exec lmsbasedata.sql");
dmoExecSQL(sqlb_d.ToString());//execSQL(dbName, sqlb);
}
frmProg.StepText("database initialization is done");
}
finally
{
this.Cursor = Cursors.Default;
}
}
这个方法主要是创建数据库文件
private void setAspNetVersion(string m,string i)
{
string dotnetdir=addBackSlash(Environment.GetEnvironmentVariable("windir"))+"Microsoft.Net";
string[] dirs = Directory.GetDirectories(dotnetdir+"\\Framework\\");
foreach (string d in dirs)
{
int p = d.LastIndexOf("\\v");
if (p >= 0)
{
string v = d.Substring(p + 2);
aspver = v;
string[] mi = v.Split(new char[] { '.' });
if (mi[0].CompareTo(m)==0 && mi[1].CompareTo(i)>=0)
{
//found the directory
string regiis = d + "\\aspnet_regiis.exe";
if (File.Exists(regiis)){
Process proc=new Process();
try{
proc.StartInfo.FileName=regiis;
proc.StartInfo.Arguments = "-s W3SVC/1/ROOT/Lms";
proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
proc.StartInfo.CreateNoWindow=true;
proc.Start();
proc.WaitForExit(10000);
}catch (Win32Exception e){
if(e.NativeErrorCode == ERROR_FILE_NOT_FOUND)
{
Console.WriteLine(e.Message + ". Check the path.");
} else if (e.NativeErrorCode == ERROR_ACCESS_DENIED)
{
Console.WriteLine(e.Message +
". You do not have permission to run.");
}
} //catch
}//if file.exists
}//if compare version
}//if pos>=0
}//for each
}
这个方法主要是利用aspnet_regiis.exe来修改ASP.NET的版本，这个文件在Microsoft.Net目录下