2. 程式人生 > >inno setup製作安裝包的經驗

inno setup製作安裝包的經驗

阿新 • • 發佈：2019-01-27

   利用inno setup製作安裝包，inno setup下面編寫的指令碼語言用的pascal語言，不過編寫安裝包也只是需要用到簡單的pascal語言語法，然後瞭解一下一些inno setup安裝過程預設執行的函式，其實這些函式右鍵的安裝事件裡面都是有的，大家將需要用到的自己瞭解瞭解就行。

  指令碼語言執行的都是一些Command命令，這些如果不懂上網一搜一大堆，inno setup可以自己定製自己想要實現的介面，相對於vs裡面製作安裝的程式還比較靈活的，inno setup裡面有一些固定的程式碼格式，例如icons、files等等知道就可以了，廢話不多說直接上我這次安裝包的程式，程式後面我都帶上了註釋，希望各位都能看的懂。

  ; 指令碼用 Inno Setup 指令碼嚮導 生成。
; 查閱文件獲取建立 INNO SETUP 指令碼檔案的詳細資料！

#define SERIES              "***"
#define MyAppId             "{736AE8B4-49C3-4142-A4CB-13CC80D43B12}"
#define OUT_PUT_DIR         "E:\innoDebug"//輸出檔案的路徑
#define IN_put_dir          "E:\kmsEnt"//輸入檔案的路徑
#define LICENSE             "E:\kmsEnt\download\len.txt"//協議的路徑
#define INSTALL_MODE        0 ;如果是更新標誌位為1，如果是安裝標誌位為0，到時候根據情況需要手動更新標誌位
#define WEB_URL             "Login.aspx"


#if (SERIES == "XXXX")
  #define MyAppName "KMS-Enterprise"
  #define MyAppVersion "1.0"
  #define MyAppPublisher "XXXX"
  #define MyAppURL "http://www.****.com.cn/"
  #define MyDirName "XXXX"
  #define OutAppName
  #define MyAppUninstallName "KMS_Uninstall"
#endif
[Setup]
; 注意: AppId 的值是唯一識別這個程式的標誌。
; 不要在其他程式中使用相同的 AppId 值。
; (在編譯器中點選選單“工具 -> 產生 GUID”可以產生一個新的 GUID)
AppId={{#MyAppId}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={sd}\{#MyDirName}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputDir={#OUT_PUT_DIR}
OutputBaseFilename={#MyAppName} V{#MyAppVersion}
LicenseFile={#LICENSE}
;Password={#PASSWORD}
Compression=lzma
SolidCompression=yes
;ChangesEnvironment=yes
;AlwaysRestart=yes

[Languages]
//Name: "default"; MessagesFile: "compiler:Default.isl"
Name: "english"; MessagesFile: "compiler:Languages\English.isl"

[License]

[Files]//輸入的檔案資訊
Source: "{#IN_put_dir}\*"; DestDir: "{app}";
Source: "{#IN_put_dir}\download\*"; DestDir: "{app}\download";Flags: recursesubdirs createallsubdirs
Source: "{#IN_put_dir}\download\kmsnew.sql"; Flags: dontcopy
//Source: "{#FILE_URL}\KMS_Pro.exe"; DestDir: "{app}"; Flags: ignoreversion
//Source: "{#FILE_URL}\..\Backup\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall; Components: main
//Source: "{#FILE_URL}\..\Socket\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall; Components: datebase
//Source: "{#FILE_URL}\..\MySQL\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall; Components: datebase
//Source: "{#FILE_URL}\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: main
//Source: "{#FILE_URL}\..\Dll\X86\*"; DestDir: {app}; Flags: ignoreversion uninsrestartdelete; Components: main

[Icons]
Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{app}\{#MyAppURL}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{app}\{#MyAppUninstallName}.exe"
Name: "{userdesktop}\{#MyAppName}"; Filename: "{code:GetURLDir}";

[Run]
Filename: "{app}\download\AccessDatabaseEngine_X64.exe";Check:IsWin64;Flags:waituntilterminated;
Filename: "{app}\download\AccessDatabaseEngine.exe";Check:Not IsWin64;Flags:waituntilterminated;
//Filename: "{app}\download\jiaoben.bat";Flags:waituntilterminated;
//Filename: "{app}\Driver\CP210xVCPInstaller_x64.exe";Tasks:yes; Check:IsWin64;
//Filename: "{app}\Driver\CP210xVCPInstaller_x86.exe";Tasks:yes; Check:Not IsWin64;
//Filename: "{app}\MessageCatDriver\PL2303_Prolific_DriverInstaller_x86.exe";Tasks:yes2;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D003010A608000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874034C010B436C69656E74576964746803F1010D4578706C6963697457696474680301020E4578706C696369744865696768740373010D506978656C73506572496E636802600A54657874486569676874020C00F10A544E6577427574746F6E0A4E657874427574746F6E074F6E436C69636B07105F4E657874427574746F6E436C69636B0000F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B5061676509496E6E65725061676500F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E74735061676500F10C544E6577436F6D626F426F780A5479706573436F6D626F064865696768740214000000F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F757050616765084E6578745061676507094949537365727665720000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650C50726576696F757350616765070953514C536572766572000010544E65774E6F7465626F6F6B50616765094949537365727665720E506172656E7453686F7748696E74080853686F7748696E74080743617074696F6E060A494953205365727665720B4465736372697074696F6E06164949532053657276657220496E666F726D6174696F6E0C50726576696F757350616765071653656C65637450726F6772616D47726F757050616765084E65787450616765070953514C5365727665720006544C6162656C0A6C62536974654E616D65044C656674021703546F700233055769647468023606486569676874020C0743617074696F6E060953697465204E616D65000006544C6162656C096C624E657753697465044C656674021703546F70025E055769647468023606486569676874020C0743617074696F6E06095369746520506F7274000006544C6162656C064C6162656C32044C656674021103546F70027E055769647468023C06486569676874020C0743617074696F6E060A49502041646472657373000006544C6162656C064C6162656C33044C656674021D03546F70039E00055769647468023006486569676874020C0743617074696F6E060841707020506F6F6C00000A544E6577427574746F6E0D62746E436F6E6E656374494953044C656674020903546F70020605576964746802630648656967687402190743617074696F6E060B436F6E6E65637420494953085461624F726465720200074F6E436C69636B071262746E436F6E6E656374494953436C69636B00000A544E6577427574746F6E0D62746E43726561746553697465044C65667403030103546F70039600055769647468026B0648656967687402190743617074696F6E060B4372656174652053697465085461624F726465720201074F6E436C69636B071262746E43726561746553697465436C69636B000008544E6577456469740853697465506F7274044C656674025703546F70025605576964746803920006486569676874021407496D654E616D651209000000378C4C6BFC62F397938F6551D56C20003200085461624F726465720203000008544E65774564697408536974654E616D65044C656674025703546F700233055769647468039200064865696768740214085461624F726465720202000008544E65774564697406536974654970044C656674025603546F700276055769647468039200064865696768740214085461624F72646572020400000C544E6577436F6D626F426F780A4C7374417070706F6F6C044C656674025603546F7003960005576964746803910006486569676874021406437572736F72070B637248616E64506F696E74055374796C65070E637344726F70446F776E4C6973740A4974656D486569676874020C085461624F72646572020500000010544E65774E6F7465626F6F6B506167650953514C5365727665720E506172656E7453686F7748696E74080853686F7748696E74080743617074696F6E060A53514C205365727665720B4465736372697074696F6E061553514C2053657276657220496E666F6D6174696F6E0C50726576696F7573506167650709494953736572766572084E65787450616765070F53656C6563745461736B73506167650006544C6162656C076C6253716C4970044C656674022D03546F700222055769647468026606486569676874020C0743617074696F6E06115365727665722049502041646472657373000006544C6162656C064C6162656C31044C656674025703546F700252055769647468023C06486569676874020C0743617074696F6E060A4C6F67696E204E616D65000006544C6162656C056C62507764044C656674026303546F70027E055769647468023006486569676874020C0743617074696F6E060850617373776F7264000008544E6577456469740865647453716C4970044C65667403C20003546F70021E055769647468027906486569676874021407496D654E616D651209000000378C4C6BFC62F397938F6551D56C20003200085461624F726465720200000008544E657745646974086564744C6F67696E044C65667403C20003546F70024E055769647468027906486569676874021407496D654E616D651209000000378C4C6BFC62F397938F6551D56C20003200085461624F72646572020100000A544E6577427574746F6E0D62746E53716C436F6E74656374044C65667403D00003546F7003AD00055769647468026B0648656967687402190743617074696F6E060F437265617465204461746162617365085461624F726465720203074F6E436C69636B071262746E53716C436F6E74656374436C69636B00000D5450617373776F7264456469740670776453716C044C65667403C20003546F70027A0557696474680279064865696768740214085461624F72646572020200000000000000

[Code]
{ RedesignWizardFormBegin } // 不要刪除這一行程式碼。
// 不要修改這一段程式碼，它是自動生成的。
var
  OldEvent_NextButtonClick: TNotifyEvent;
  IISserver: TWizardPage;
  lbSiteName: TLabel;
  lbNewSite: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  btnConnectIIS: TNewButton;
  btnCreateSite: TNewButton;
  SitePort: TNewEdit;
  SiteName: TNewEdit;
  SiteIp: TNewEdit;
  LstApppool: TNewComboBox;
  SQLServer: TWizardPage;
  lbSqlIp: TLabel;
  Label1: TLabel;
  lbPwd: TLabel;
  edtSqlIp: TNewEdit;
  edtLogin: TNewEdit;
  btnSqlContect: TNewButton;
  pwdSql: TPasswordEdit;
   update:Integer;IISflag:Integer;Sqlflag:Integer;

procedure _NextButtonClick(Sender: TObject); forward;
procedure btnConnectIISClick(Sender: TObject); forward;
procedure btnCreateSiteClick(Sender: TObject); forward;
procedure btnSqlContectClick(Sender: TObject); forward;

procedure InitializeWizard;
begin
  { 建立自定義嚮導頁面 }
  IISserver := CreateCustomPage(wpSelectProgramGroup, 'IIS Server', 'IIS Server Information');
  SQLServer := CreateCustomPage(IISserver.ID, 'SQL Server', 'SQL Server Infomation');

  with WizardForm.NextButton do
  begin
    OldEvent_NextButtonClick := OnClick;
    OnClick := @_NextButtonClick;
  end;

  { IISserver }
  with IISserver.Surface do
  begin
    ShowHint := False;
  end;

  { lbSiteName }
  lbSiteName := TLabel.Create(WizardForm);
  with lbSiteName do
  begin
    Parent := IISserver.Surface;
    Caption := 'Site Name';
    Left := ScaleX(23);
    Top := ScaleY(51);
    Width := ScaleX(54);
    Height := ScaleY(12);
  end;

  { lbNewSite }
  lbNewSite := TLabel.Create(WizardForm);
  with lbNewSite do
  begin
    Parent := IISserver.Surface;
    Caption := 'Site Port';
    Left := ScaleX(23);
    Top := ScaleY(94);
    Width := ScaleX(54);
    Height := ScaleY(12);
  end;

  { Label2 }
  Label2 := TLabel.Create(WizardForm);
  with Label2 do
  begin
    Parent := IISserver.Surface;
    Caption := 'IP Address';
    Left := ScaleX(17);
    Top := ScaleY(126);
    Width := ScaleX(60);
    Height := ScaleY(12);
  end;

  { Label3 }
  Label3 := TLabel.Create(WizardForm);
  with Label3 do
  begin
    Parent := IISserver.Surface;
    Caption := 'App Pool';
    Left := ScaleX(29);
    Top := ScaleY(158);
    Width := ScaleX(48);
    Height := ScaleY(12);
  end;

  { btnConnectIIS }
  btnConnectIIS := TNewButton.Create(WizardForm);
  with btnConnectIIS do
  begin
    Parent := IISserver.Surface;
    Left := ScaleX(9);
    Top := ScaleY(6);
    Width := ScaleX(99);
    Height := ScaleY(25);
    Caption := 'Connect IIS';
    OnClick := @btnConnectIISClick;
  end;

  { btnCreateSite }
  btnCreateSite := TNewButton.Create(WizardForm);
  with btnCreateSite do
  begin
    Parent := IISserver.Surface;
    Left := ScaleX(259);
    Top := ScaleY(150);
    Width := ScaleX(107);
    Height := ScaleY(25);
    Caption := 'Create Site';
    OnClick := @btnCreateSiteClick;
  end;

  { SitePort }
  SitePort := TNewEdit.Create(WizardForm);
  with SitePort do
  begin
    Parent := IISserver.Surface;
    Left := ScaleX(87);
    Top := ScaleY(86);
    Width := ScaleX(146);
    Height := ScaleY(20);
  end;

  { SiteName }
  SiteName := TNewEdit.Create(WizardForm);
  with SiteName do
  begin
    Parent := IISserver.Surface;
    Left := ScaleX(87);
    Top := ScaleY(51);
    Width := ScaleX(146);
    Height := ScaleY(20);
  end;

  { SiteIp }
  SiteIp := TNewEdit.Create(WizardForm);
  with SiteIp do
  begin
    Parent := IISserver.Surface;
    Left := ScaleX(86);
    Top := ScaleY(118);
    Width := ScaleX(146);
    Height := ScaleY(20);
  end;

  { LstApppool }
  LstApppool := TNewComboBox.Create(WizardForm);
  with LstApppool do
  begin
    Parent := IISserver.Surface;
    Left := ScaleX(86);
    Top := ScaleY(150);
    Width := ScaleX(145);
    Height := ScaleY(20);
    Cursor := crHand;
    Style := csDropDownList;
  end;

  btnConnectIIS.TabOrder := 0;
  btnCreateSite.TabOrder := 1;
  SiteName.TabOrder := 2;
  SitePort.TabOrder := 3;
  SiteIp.TabOrder := 4;
  LstApppool.TabOrder := 5;

  { SQLServer }
  with SQLServer.Surface do
  begin
    ShowHint := False;
  end;

  { lbSqlIp }
  lbSqlIp := TLabel.Create(WizardForm);
  with lbSqlIp do
  begin
    Parent := SQLServer.Surface;
    Caption := 'Server IP Address';
    Left := ScaleX(45);
    Top := ScaleY(34);
    Width := ScaleX(102);
    Height := ScaleY(12);
  end;

  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := SQLServer.Surface;
    Caption := 'Login Name';
    Left := ScaleX(87);
    Top := ScaleY(82);
    Width := ScaleX(60);
    Height := ScaleY(12);
  end;

  { lbPwd }
  lbPwd := TLabel.Create(WizardForm);
  with lbPwd do
  begin
    Parent := SQLServer.Surface;
    Caption := 'Password';
    Left := ScaleX(99);
    Top := ScaleY(126);
    Width := ScaleX(48);
    Height := ScaleY(12);
  end;

  { edtSqlIp }
  edtSqlIp := TNewEdit.Create(WizardForm);
  with edtSqlIp do
  begin
    Parent := SQLServer.Surface;
    Left := ScaleX(194);
    Top := ScaleY(30);
    Width := ScaleX(121);
    Height := ScaleY(20);
  end;

  { edtLogin }
  edtLogin := TNewEdit.Create(WizardForm);
  with edtLogin do
  begin
    Parent := SQLServer.Surface;
    Left := ScaleX(194);
    Top := ScaleY(78);
    Width := ScaleX(121);
    Height := ScaleY(20);
  end;

  { btnSqlContect }
  btnSqlContect := TNewButton.Create(WizardForm);
  with btnSqlContect do
  begin
    Parent := SQLServer.Surface;
    Left := ScaleX(208);
    Top := ScaleY(173);
    Width := ScaleX(107);
    Height := ScaleY(25);
    Caption := 'Create Database';
    OnClick := @btnSqlContectClick;
  end;

  { pwdSql }
  pwdSql := TPasswordEdit.Create(WizardForm);
  with pwdSql do
  begin
    Parent := SQLServer.Surface;
    Left := ScaleX(194);
    Top := ScaleY(122);
    Width := ScaleX(121);
    Height := ScaleY(20);
  end;

  edtSqlIp.TabOrder := 0;
  edtLogin.TabOrder := 1;
  pwdSql.TabOrder := 2;
  btnSqlContect.TabOrder := 3;

{ ReservationBegin }
  // 這一部分是提供給你的，你可以在這裡輸入一些補充程式碼。

{ ReservationEnd }
end;
// 不要修改這一段程式碼，它是自動生成的。
{ RedesignWizardFormEnd } // 不要刪除這一行程式碼。
//頁面改變時執行的系統預設的函式
procedure CurPageChanged(CurPageID: Integer);
var
ErrorCode: Integer;
IniPortLines: TArrayOfString;
sLi: TStringList;
i:Integer;
j:Integer;//MgdVersion
test:String;
begin
update:={#INSTALL_MODE};//如果是更新標誌位為1，如果是安裝標誌位為0，到時候根據情況需要手動更新標誌位 InitializeWizard update:Integer;IISflag:Integer;Sqlflag:Integer;
if update=0 then
begin
if CurPageID = IISserver.ID then
begin
if IISflag=0 then
begin
ShellExec('open', ExpandConstant('{cmd}'), ' /c C:\Windows\System32\inetsrv\appcmd.exe list APPPOOL >c:\f.txt', '', SW_HIDE, ewNoWait, ErrorCode);//將應用程式池的資訊全部寫入C盤中的一個檔案內
Sleep(1000);
LoadStringsFromFile( 'c:\f.txt', IniPortLines );//讀取檔案內的字串，以陣列的形式將字串儲存起來
sLi := TStringList.Create;
for i:= 0 to GetArrayLength(IniPortLines)-1 do //for迴圈
  begin
  j:=Pos('" (',IniPortLines[i]);
  IniPortLines[i]:=Copy(IniPortLines[i],10,j-10);//擷取字串裡面的欄位
  sLi.Add(IniPortLines[i]);//將資料新增進入TSringList陣列中
  end;
   LstApppool.Items:=sLi;
WizardForm.NextButton.Enabled:=false;//控制頁面上下一步按鈕的是否有用
DeleteFile('c:\f.txt');//刪除檔案
end
else
  WizardForm.NextButton.Enabled:=true;//控制頁面上下一步按鈕的是否有用
end;
if CurPageID=SQLServer.ID then //根據頁面的id去判斷現在處於哪個頁面
begin
  if Sqlflag=0 then
    begin
    WizardForm.NextButton.Enabled:=false;//控制頁面上下一步按鈕的是否有用
    end
    else
    WizardForm.NextButton.Enabled:=true;//控制頁面上下一步按鈕的是否有用
end;
end
else
begin
 SiteName.Enabled:=false;//控制頁面上按鈕是否能用
 Siteport.Enabled:=false;//控制頁面上按鈕是否能用
 SiteIp.Enabled:=false;//控制頁面上按鈕是否能用
 edtSqlIp.Enabled:=false;//控制頁面上按鈕是否能用
 edtLogin.Enabled:=false;//控制頁面上按鈕是否能用
 pwdSql.Enabled:=false;//控制頁面上按鈕是否能用
 btnSqlContect.Enabled:=false;//控制頁面上按鈕是否能用
 btnCreateSite.Enabled:=false;//控制頁面上按鈕是否能用
 LstApppool.Enabled:=false;//控制頁面上按鈕是否能用
end;
end;

procedure _NextButtonClick(Sender: TObject);
begin
  OldEvent_NextButtonClick(Sender);
end;

procedure btnCreateSiteClick(Sender: TObject);
var
  a :Integer;
  dirstr:String;
  name:String;//網站名稱引數
  portk:String;//埠引數
  ipadr:String;//ip引數
  ErrorCode: Integer;//錯誤變數
  IniPortLines: TArrayOfString;//陣列
  count:Integer;//計數
begin
   dirstr:=ExpandConstant('{app}');//獲取當前安裝的路勁
   name:=SiteName.text;//將頁面上填寫的資訊存入變數裡面
   portk:=SitePort.text;//將頁面上填寫的資訊存入變數裡面
   ipadr:=SiteIp.text;//將頁面上填寫的資訊存入變數裡面
   //ShellExec('open', ExpandConstant('{cmd}'), '/c C:\Windows\System32\inetsrv', '', SW_HIDE, ewNoWait, ErrorCode);
   ShellExec('open', ExpandConstant('{cmd}'), ' /c C:\Windows\System32\inetsrv\appcmd.exe list site "'+name+'" >c:\b.txt', '', SW_HIDE, ewNoWait, ErrorCode);//在iis裡面查詢自己填寫的網站名稱是否存在
   Sleep(1000);
   LoadStringsFromFile( 'c:\b.txt', IniPortLines );//將檔案裡面的資訊以字串的形式取出來
   count:=GetArrayLength(IniPortLines);//獲取字串的長度
   if count>0 then
   begin
   MsgBox('The Site Name has Existed!',mbConfirmation,MB_OK);
   end
   else
   begin
   ShellExec('open', ExpandConstant('{cmd}'), '/c C:\Windows\System32\inetsrv\appcmd.exe add site /name:"'+name+'" /bindings:http/'+ipadr+':'+portk+': /physicalPath:"'+dirstr+'" /applicationDefaults.applicationPool:"'+LstApppool.Text+'"', '', SW_HIDE, ewNoWait, ErrorCode);//新增網站
   Sleep(1000);
   //ShellExec('open', ExpandConstant('{cmd}'), '/c C:\Windows\System32\inetsrv\appcmd.exe set site /name:"'+name+'" /applicationDefaults.applicationPool:"ASP.net v4.0"', '', SW_HIDE, ewNoWait, ErrorCode);
   DeleteFile('c:\b.txt');//刪除檔案
   MsgBox('Site Made Success!',mbConfirmation,MB_OK);
   ShellExec('open', ExpandConstant('{cmd}'), '/c netsh advfirewall firewall add rule name="KmsEnterprise" dir=in action=allow protocol=TCP localport='+portk, '', SW_HIDE, ewNoWait, ErrorCode);//開啟防火牆的埠
   if update=0 then
   begin
   WizardForm.NextButton.Enabled:=true;//控制頁面按鈕是否有用
   IISflag:=1;//標誌位資訊，全域性變數
   end
   end
   
   //MsgBox(dirstr+':'+name+':'+portk+':'+ipadr,mbConfirmation,MB_OK);
  //MsgBox(ExpandConstant('{app}'),mbConfirmation,MB_OK);


end;

//獲取桌面快捷方式的網址的函式
function GetURLDir( Param: String ) : String;
var
  URLDir          : String;
begin
  URLDir := 'http://'+SiteIp.text+':'+ SitePort.Text +'/{#WEB_URL}';//獲取網址
  Result := URLDir;//返回的引數
end;

procedure btnSqlContectClick(Sender: TObject);
var
  a :Integer;
  sqlip:String;
  sqlUser:string;
  sqlPwd:String;
  ErrorCode: Integer;
  IniPortLines: TArrayOfString;
  count:Integer;
  dIniPortLines: TArrayOfString;
  Path:String;
begin
ExtractTemporaryFile('kmsnew.sql');//解壓臨時檔案，下面獲取安裝包內的檔案用的
sqlip:=edtSqlIp.text;//獲取頁面輸入資訊
sqlUser:=edtLogin.text;//獲取頁面輸入資訊
sqlPwd:=pwdSql.text;//獲取頁面輸入資訊
ShellExec('open', ExpandConstant('{cmd}'), '/c osql.exe -S '+sqlip+' -U '+sqlUser+' -P '+sqlPwd+' -Q >c:\c.txt', '', SW_HIDE, ewNoWait, ErrorCode);//驗證輸入的資料庫資訊是否正確
Sleep(1000);
LoadStringsFromFile( 'c:\c.txt', IniPortLines );//讀取出檔案內的資訊
count:=GetArrayLength(IniPortLines);//獲取陣列長度
if count=0 then
begin
 ShellExec('open', ExpandConstant('{cmd}'), '/c osql.exe -S '+sqlip+' -U '+sqlUser+' -P '+sqlPwd+' -d kms -Q >c:\d.txt', '', SW_HIDE, ewNoWait, ErrorCode);//驗證資料庫名是否已經存在
 Sleep(1000);
 LoadStringsFromFile( 'c:\d.txt', dIniPortLines ); //讀取出檔案內的資訊
count:=GetArrayLength(dIniPortLines);//獲取陣列長度
  if count=0 then
  begin
  MsgBox('Database Create Success!',mbConfirmation,MB_OK);//彈出框
  if update=0 then
  begin
  WizardForm.NextButton.Enabled:=true;
  Sqlflag:=1;
  end
  end
  else begin
     //建立資料庫和資料庫表
     //建立資料庫
      ShellExec('open', ExpandConstant('{cmd}'), '/c osql.exe -S '+sqlip+' -U '+sqlUser+' -P '+sqlPwd+' -Q "create database kms"', '', SW_HIDE, ewNoWait, ErrorCode);//建立資料庫
      Sleep(1000);
      //執行kmsnew.sql檔案建立資料庫表
      //Path:= ExpandConstant('{app}')+'\download\kmsnew.sql';{userappdata} ExpandConstant('{tmp}/kmsnew.sql')
      //Path:= ExpandConstant('{#IN_put_dir}')+'\download\kmsnew.sql';
       Path:= ExpandConstant('{tmp}/kmsnew.sql'); //獲取安裝包內的檔案
      ShellExec('open', ExpandConstant('{cmd}'), '/c osql.exe -S '+sqlip+' -U '+sqlUser+' -P '+sqlPwd+' -d kms -i '+ExpandConstant('{tmp}')+'/kmsnew.sql', '', SW_HIDE, ewNoWait, ErrorCode);//建立資料庫表
      MsgBox('Database Create Success!！',mbConfirmation,MB_OK);
      if update=0 then
      begin
      WizardForm.NextButton.Enabled:=true;//控制頁面按鈕是否有用
      Sqlflag:=1;//標誌位引數
      end
  end

end
else
begin
//連線sqlserver失敗
 MsgBox('Sql Server Connect Failed,Please Check The Password！',mbConfirmation,MB_OK);
end;
DeleteFile('c:\c.txt');//刪除檔案
DeleteFile('c:\d.txt');//刪除檔案
  a := 1;
end;

procedure btnConnectIISClick(Sender: TObject);
var
  a :Integer;
  ErrorCode: Integer;
  IniPortLines: TArrayOfString;
  count:Integer;
  Path:String;
  IIS:Variant;
begin
//IIsNext.Enabled:=true;
//ExtractTemporaryFile('jiaoben.bat');//解壓臨時檔案，下面獲取安裝包內的檔案用的
//begin
try
     IIS:= CreateOleObject('IISNamespace');
     IIS:=Unassigned;
     MsgBox('IIS Connect Success!',mbConfirmation,MB_OK);
except
    RaiseException('無法檢測到iis伺服器，請確認是否正確安裝\n如確認已安裝完成請建立站點!');//.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)

end;

//ShellExec('open', ExpandConstant('{cmd}'), '/c iisreset /status >c:\a.txt', '', SW_HIDE, ewNoWait, ErrorCode);
//Sleep(1000);
 //LoadStringsFromFile( 'c:\a.txt', IniPortLines );
 //count:=GetArrayLength(IniPortLines);
 //if count = 7 then
 //begin
 //MsgBox('IIS Connect Success!',mbConfirmation,MB_OK);
 //end else
 //begin
      //Path:= ExpandConstant('{tmp}')+'/jiaoben.bat';
      //Path:=ExpandConstant('{cmd}');
      //ShellExec('open', ExpandConstant('{cmd}'), '/c '+ExpandConstant('{tmp}')+'/jiaoben.bat', '', SW_HIDE, ewNoWait, ErrorCode);
      //Sleep(2000);
      //MsgBox('IIS Connect Failed!!',mbConfirmation,MB_OK);
 //end;
 //Sleep(1000);
 //DeleteFile('c:\a.txt');
  //a := 1;
end;


{******************************************************************************
 *   設定環境變數函式
 ******************************************************************************}
procedure SetEnv( aEnvName, aEnvValue: String; aIsInstall , aIsAll : Boolean );
var
  sOrgValue             : String;
  x,len                 : Integer;
begin
  RegQueryStringValue( HKEY_LOCAL_MACHINE ,
    'SYSTEM\CurrentControlSet\Control\Session Manager\Environment' ,
    aEnvName, sOrgValue ) ;
  sOrgValue := Trim( sOrgValue );
  begin
    x   := pos( Uppercase( aEnvValue ) , Uppercase( sOrgValue ) );
    len := length(aEnvValue);
    if aIsInstall then                                                         //是安裝還是反安裝
    begin
      if not aIsAll then
      begin
          if length(sOrgValue) > 0 then
            aEnvValue := ';'+ aEnvValue;

          if x = 0 then
            Insert( aEnvValue , sOrgValue , length(sOrgValue) + 1 );
      end else
      begin
        sOrgValue := Trim( aEnvValue );
      end;
    end else
    begin
      if x > 0 then
        Delete( sOrgValue , x , len );
      if length( sOrgValue )= 0 then
      begin
        RegDeleteValue(HKEY_LOCAL_MACHINE,
          'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
          aEnvName);
        exit;
      end;
    end;
    StringChange( sOrgValue, ';;' , ';' );
    RegWriteStringValue(HKEY_LOCAL_MACHINE,
      'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
      aEnvName, sOrgValue ) ;
  end;
end;

{******************************************************************************
 *   修改配置檔案,安裝程式完成之後執行的函式
 ******************************************************************************}
procedure CurStepChanged( CurStep: TSetupStep );
var
  IniFile, OldString, NewString     : String;
  IniFileLines                      : TArrayOfString;
  i                                 : Integer;
  uninspath, uninsname, NewUninsName, MyAppName, MyAppId: string;
begin
  if CurStep = ssDone then
  begin
    IniFile   := ExpandConstant('{app}\Web.config');                         // 你的 INI 檔名
    OldString := '<add key="ConnectionString" value="Data Source=192.168.0.29;Initial Catalog=kms;Persist Security Info=false;Integrated Security=false;uid=admin;pwd=password"/>';                                                  // 要替換的舊字串
    NewString := '<add key="ConnectionString"    value="Data Source='+edtSqlIp.text+';Initial Catalog=kms;Persist Security Info=false;Integrated Security=false;uid='+edtLogin.text+';pwd='+pwdSql.text+'"/>';                               // 新字串
    //StringChange( NewString , '\', '/');
    //NewString := NewString + '/' ;
    //StringChange( NewString , '//', '/');

    LoadStringsFromFile( IniFile , IniFileLines );
    for i:= 0 to GetArrayLength(IniFileLines)-1 do  //迴圈語句
      if ( Pos( OldString , IniFileLines[i] ) > 0) then //在字串中存在
        StringChange(IniFileLines[i], OldString, NewString);//將新的字串替換老的字串
    SaveStringsToFile( IniFile , IniFileLines, False );//將資訊重新寫入檔案
    //SetEnv( 'MYSQL_HOME' , ExpandConstant('{app}\MySQL' ), true , true );
    //SetEnv( 'PATH' , ExpandConstant('%MYSQL_HOME%\bin' ), true ,false );
  end;

  if CurStep=ssDone then
  begin
  // 指定新的登錄檔名，請相應修改！
  //MyAppId := '{C893C605-CC64-44F4-B60B-30998FE892DF}';
  MyAppId := '{#MyAppId}';
  //NewUninsName := 'KMS_Uninstall';
  NewUninsName := '{#MyAppUninstallName}';

  // 以下重新命名解除安裝檔案
  uninspath:= ExtractFilePath(ExpandConstant('{uninstallexe}'));
  uninsname:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8);
  RenameFile(uninspath + uninsname + '.exe', uninspath + NewUninsName + '.exe');
  RenameFile(uninspath + uninsname + '.dat', uninspath + NewUninsName + '.dat');
  // 以下修改相應的登錄檔內容
  if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + MyAppId + '_is1') then
    begin
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + MyAppId + '_is1', 'UninstallString', '"' + uninspath + NewUninsName + '.exe"');
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + MyAppId + '_is1', 'QuietUninstallString', '"' + uninspath + NewUninsName + '.exe" /SILENT');
    end;
  end;
end;

{******************************************************************************
 *   解除安裝
 ******************************************************************************}
procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep );
var
  IsAppRunning: boolean;
begin
  case CurUninstallStep of
  usUninstall:
  begin
   
  end;
  usPostUninstall:
  begin // 解除安裝完成
    // MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);
    // ...insert code to perform post-uninstall tasks here...
    //ShellExec('open', 'http://www.dreams8.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
  end;
end;
end;







相關推薦

inno setup製作安裝包的經驗

   利用inno setup製作安裝包，inno setup下面編寫的指令碼語言用的pascal語言，不過編寫安裝包也只是需要用到簡單的pascal語言語法，然後瞭解一下一些inno setup安裝過程預設執行的函式，其實這些函式右鍵的安裝事件裡面都是有的，大家將需要用到

Inno setup製作安裝包時向登錄檔中寫安裝後的路徑

[Registry] Root:HKLM;Subkey:"Software\scas111";Flags:uninsdeletekeyifempty Root:HKLM;Subkey:"Softwa

inno setup製作安裝軟體防止重複安裝原始碼

                                                                                                         INNO：檢測程式是否已經安裝，是則彈出解除安裝提示   

一分鐘學會使用Inno Setup 製作安裝程式

    Inno Setup 是一款免費的安裝製作工具。簡潔而強大，支援 pascal 指令碼，既有適合新手的指令碼嚮導，也有適合高手的的指令碼編輯器。是一個不可多得的安裝製作軟體！目前的版本是Inno Setup 5. 這裡可以下載到最新的Inno Setup。 http:

用inno setup製作管理員許可權啟動的安裝包

inno setup製作的安裝包，預設是不需要管理員許可權啟動的。我們製作安裝包，往往需要做一些設定工作，這些設定工作可能用到管理員許可權。使用Resource Hacker修改inno setup資源，使inno settup生成的安裝包以管理員許可權啟

Windows下使用Inno Setup 製作exe安裝包

Inno Setup 詳解中文資料 其一：使用教程一、Inno Setup 是什麼？   InnoSetup 是一個免費的 Windows 安裝程式製作軟體。第一次發表是在 1997 年，Inno Setup 今天在功能設定和穩定性上的競爭力可能已經超過一些商業的安裝程式製作

Qt應用程式製作安裝包過程

準備工作： 一、新增環境變數 二、根據執行檔案，找到相對的Qt必備外掛環境 三、製作安裝包 一，新增Qt的開發環境變數       二、根據執行檔案，找到相對的Qt必備外掛環境  1）首先要釋出，在編譯器編譯一定要選擇”release“而不是”de

vs2010製作安裝包檔案出現未能在指定路徑下找到系統必備(Bootstrapper)的問題

1.本人在vs2010開發環境中製作安裝包檔案時，編譯時出現 " 警告: 未能在路徑“C:\Program Files\Microsoft SDKs\Windows\v7.0A\Bootstrapper\”找到系統必備“Microsoft .NET Framework 4 CHS Langu

分享一個使用NSIS製作安裝包的UI外掛

做軟體開發以來，接觸的安裝包製作方式也有幾種了，從最原始的MSI安裝包方式，到InnoSetup，再到NSIS；但一直都是使用其指令碼功能，並沒有在介面上做一些美化操作。 很早之前就想做一個介面可以自由定製的安裝包工具，一直沒有時間，就放下了。 最近有業務要求需要做

使用Mono Runtime Bundle製作安裝包讓C#桌面應用程式脫離net framework

之前有一個C#版本和ios版本（支援下載學生名單，點名等更多功能，該版本未上app store)的教輔助手幫助學校老師提交成績到教務系統（浙大正方web版）,一直打算用mfc寫一個vc++版本的可以方便的在未安裝net framework的電腦上使用，前幾天看到一篇文章再談為什麼要使用MONO  ，既然Uni

NSIS製作安裝包（一）

NSIS簡介： NISIS是win32免費的安裝，解除安裝系統。他的特點是指令碼簡潔高效；系統開銷小。當然進行安裝、解除安裝、系統設定、解壓檔案都沒有問題，幾乎可以做所有的事情。更多的功能請閱讀《NSIS幫助文件》 工具： NIS Edit + NSIS 思路： 基本上製作

NSIS製作安裝包，如何檢測並解除安裝已有版本

將如下程式碼追加到NSIS指令碼的尾部即可。 Var UNINSTALL_PROG Var OLD_VER Var OLD_PATH Function .onInit   ClearErrors

vs2010中C++呼叫python指令碼並製作安裝包

一、 準備工作 1. 安裝visual studio 210。 2. 安裝python編譯環境，筆者版本為2.7.2。 3. 安裝py2exe，用於給編寫好的python打包。 二、編寫python指令碼程式 以下程式為筆者為學校的bbs寫的登陸指令碼LilyLogin.

使用Innosetup製作安裝包的一些技巧

. 選擇安裝介面上的圖片 [Setup]  ;設定介面上的兩個圖片  WizardImageFile=WizModernImage.bmp  WizardSmallImageFile=WizSmallImage.bmp   2. 設定安裝介面上的文字 [Messag

Inno Setup獲取安裝引數

function GetMyParam(PName:String):String; var CmdLine : String; CmdLineLen : Integer; i : Integer; begin CmdLineLen:=ParamCount(

在用installshield製作安裝包時如何在登錄檔中寫檔案關聯

     最近在學習用installshield製作安裝包，這兩天遇到需要寫登錄檔的問題：通過登錄檔設定檔案關聯，即將一個帶有特殊字尾的檔案連線到一個應用程式上。怎麼在installshield中進行設定呢？ 首先我們先來學習一下注冊表，以下內容為轉載 認識登錄檔 一、六大

QT程式在Windows下製作安裝包釋出程式的方法

設計完成時，用release方式編譯程式，把生成的EXE檔案和其依賴的庫放在一個資料夾中，用setup2go生成安裝檔案。 好，我們啟動程式，選擇檔案>>>>>>>新建工程。 儲存工程專案 出現了安裝配置欄目，我們

Inno Setup 簡單安裝指令碼

; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! #define MyA

【Inno Setup】安裝前先解除安裝舊版本

從登錄檔中獲取 UninstallString 解除安裝資訊，Exec函式來進行解除安裝。。 APP_NAME 就是AppName 名字 [Code] function InitializeSetup(): boolean; var ResultStr: Stri

使用組策略分發軟體（製作安裝包）

二、定製自己的MSI檔案前面我們介紹了很多MSI檔案的內容，其實MSI並不神祕、複雜，我們自己都能製作，並且製作MSI檔案的工具已經在Windows的安裝盤上了。首先，找到Windows2000的安裝光碟，雙擊下邊的這個位置的檔案:valueadd/3rdparty/Mgmt/Winstleadmle.msi