以前编写的inno setup脚本,涵盖了自定义安装界面,调用dll等等应用 (转)

; Script generated by the Inno Setup 脚本向导.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

; 为1的时候表示定义成试用版本

#define VERSION_TYPE ReadIni('Setup.ini', 'SetupType', 'type', '0')

#if VERSION_TYPE == "2"

#define LIVE_VERSION

#define MyAppName "流媒体系统(PMS)"

#define MyAppId "1954A698-2322-46F1-B732-8DDF96693DA5"

#define MyOutputBaseFilename "live_server_setup"

#elif VERSION_TYPE == "1"

#define VOD_VERSION

#define MyAppName "流媒体系统(PMS)"

#define MyAppId "DA255679-F103-4170-8B75-B9A7EF4CBC1B"

#define MyOutputBaseFilename "vod_server_setup"

#else

#define FULL_VERSION

#define MyAppName "流媒体系统(PMS)"

#define MyAppId "4AC618B5-8C69-4D47-918A-261AA895B6D7"

#define MyOutputBaseFilename "full_server_setup"

#endif

#define RegUrl "http://www.xxx.net"

#define MyAppVersion "1.0"

#define MyAppPublisher "XXX科技有限公司"

#define MyAppURL "http://www.xxx.net"

#define MyAppExeName "InstanceConfig.exe"

[Setup]

; NOTE: The value of AppId uniquely identifies this application.

; Do not use the same AppId value in installers for other applications.

; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

AppId={{{#MyAppId}}

AppMutex={{{#MyAppId}}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

AppPublisher={#MyAppPublisher}

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

DefaultDirName={pf}\xxx\media server

DefaultGroupName={#MyAppName}

AllowNoIcons=yes

LicenseFile=license.txt

OutputDir=output

OutputBaseFilename={#MyOutputBaseFilename}

SetupIconFile=setup.ico

Compression=lzma

SolidCompression=yes

VersionInfoVersion={#MyAppVersion}

VersionInfoCompany={#MyAppPublisher}

VersionInfoCopyright=Copyright (C) 2010-2013

VersionInfoProductName={#MyAppName}

VersionInfoProductVersion={#MyAppVersion}

[Languages]

Name: cn; MessagesFile: compiler:Languages\chinese.isl

[Files]

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

; 用来检测安装程序中输入的注册码是否有效

Source: ..\build\register_help.dll; Flags: dontcopy

Source: ..\build\libeay32.dll; Flags: dontcopy

Source: ..\build\vcredist2008_x86.exe; Flags: dontcopy

#ifdef FULL_VERSION

Source: ..\build\server.conf; DestDir: {app}

Source: ..\build\media_service.exe; DestDir: {app}

Source: ..\build\libmysql.dll; DestDir: {app}

Source: ..\build\libeay32.dll; DestDir: {app}

Source: ..\build\zlib1.dll; DestDir: {app}

Source: ..\build\register_check.exe; DestDir: {app}

Source: ..\build\QtCore4.dll; DestDir: {app}

Source: ..\build\QtGui4.dll; DestDir: {app}

Source: ..\build\mglobal.dll; DestDir: {app}

Source: ..\build\msvcp100.dll; DestDir: {app}

Source: ..\build\msvcr100.dll; DestDir: {app}

Source: ..\build\initconfig.exe; DestDir: {app}

Source: ..\build\InstanceConfig.exe; DestDir: {app}

;Source: ..\build\php-fpm.exe; DestDir: {app}

Source: ..\build\管理统计页面.url; DestDir: {app}

Source: ..\build\示例页面.url; DestDir: {app}

Source: ..\build\launchlist; DestDir: {app}

;Source: ..\build\phpcgi; DestDir: {app}

Source: ..\build\lighttpd.conf; DestDir: {app}\lmp\lighttpd\conf; Flags: ignoreversion

Source: ..\build\my.ini; DestDir: {app}\lmp\mysql; Flags: ignoreversion

; web服务器整套目录

Source: ..\build\lmp\*; DestDir: {app}\lmp; Flags: recursesubdirs createallsubdirs

; doc文档目录

Source: ..\doc\*; DestDir: {app}\help; Flags: recursesubdirs createallsubdirs

; 播放器相关目录

Source: ..\build\swfs\*; DestDir: {app}\swfs; Flags: recursesubdirs createallsubdirs

; 播放器SDK相关目录

Source: ..\build\scriptlib\*; DestDir: {app}\scriptlib; Flags: recursesubdirs createallsubdirs

#endif

[Dirs]

Name: {app}\videos

[Tasks]

Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}

[Icons]

Name: {group}\sample\示例页面; Filename: {app}\示例页面.url

Name: {group}\help\安装说明; Filename: {app}\help\安装说明.pdf

Name: {group}\help\功能说明; Filename: {app}\help\功能说明.pdf

Name: {group}\help\开发说明; Filename: {app}\help\开发说明.pdf

Name: {group}\help\配置说明; Filename: {app}\help\配置说明.pdf

Name: {group}\help\统计模块; Filename: {app}\help\统计模块.pdf

Name: {group}\流媒体系统(PMS)系统配置; Filename: {app}\{#MyAppExeName}

Name: {group}\{cm:UninstallProgram, PMS系统配置}; Filename: {uninstallexe}

Name: {group}\流媒体系统(PMS)统计管理; Filename: {app}\管理统计页面.url; IconFilename: {app}\{#MyAppExeName};

Name: {commondesktop}\流媒体系统(PMS)统计管理; Filename: {app}\管理统计页面.url; Tasks: desktopicon; IconFilename: {app}\{#MyAppExeName};

Name: {commondesktop}\流媒体系统(PMS)系统配置; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon

Name: {commondesktop}\ 开启PMS服 务; Filename: {app}\media_service.exe; Parameters: -r; IconFilename: {app}\{#MyAppExeName}; Tasks: desktopicon

Name: {commondesktop}\ 停止PMS服 务; Filename: {app}\media_service.exe; Parameters: -s; IconFilename: {app}\{#MyAppExeName}; Tasks: desktopicon

[Run]

; 删除服务

Filename: {app}\media_service.exe; Parameters: -u; Flags: runhidden

; 安装服务

Filename: {app}\media_service.exe; Parameters: -i; Flags: runhidden

[UninstallRun]

; 停止服务

Filename: {app}\media_service.exe; Parameters: -s; Flags: runhidden

; 删除服务

Filename: {app}\media_service.exe; Parameters: -u; Flags: runhidden

[CustomMessages]

Key_Form_Caption=注册向导

Key_Form_Description=将序列号提交给xxx以获取注册码

Key_Form_codeLabel_Caption0=序列号:

Key_Form_keyLabel_Caption0=注册码:

Domain_Form_Caption=域名设置

Domain_Form_Description=配置当前服务器域名

[Messages]

BeveledLabel=xxx网络科技

[Code]

var

codeLabel: TLabel;

keyLabel: TLabel;

key: TMemo;

code: TMemo;

keyPage: TWizardPage;

domainEdit: TNewEdit;

domainPage: TWizardPage;

// 获取序列号

function getCode(szCode: PChar; inLen: Integer): Integer;

external 'getCode@files:register_help.dll,libeay32.dll,msvcr100.dll stdcall setuponly delayload loadwithalteredsearchpath';

// 进行检查

function regCheck(const regKey: PChar): Boolean;

external 'regCheck@files:register_help.dll,libeay32.dll,msvcr100.dll stdcall setuponly delayload loadwithalteredsearchpath';

// 进行注册

function regSave(const regKey, regPath: PChar): Boolean;

external 'regSave@files:register_help.dll,libeay32.dll,msvcr100.dll stdcall setuponly delayload loadwithalteredsearchpath';

// 清理注册

procedure regClear(const regPath: PChar);

external 'regClear@files:register_help.dll,libeay32.dll,msvcr100.dll stdcall setuponly delayload loadwithalteredsearchpath';

function OpenSCManager(const machine: LongInt; const dbName: LongInt; access: Dword):LongInt;

external 'OpenSCManagerA@Advapi32.dll stdcall';

function OpenService(svcMgr: LongInt; const svcName: pchar; access: Dword):LongInt;

external 'OpenServiceA@Advapi32.dll stdcall';

function CloseServiceHandle(svc: LongInt):Boolean;

external 'CloseServiceHandle@Advapi32.dll stdcall';

///判定服务是否存在

function serviceExists(name: string): boolean;

var

SvcMgr, Svc: LongInt;

begin

Result := False;

SvcMgr := OpenSCManager(0,0,1);

if SvcMgr = 0 then Exit;

Svc := OpenService(SvcMgr, PChar(name), 4);

if Svc = 0 then

begin

CloseServiceHandle(SvcMgr);

Exit;

end;

CloseServiceHandle(Svc);

CloseServiceHandle(SvcMgr);

Result := true;

end;

///停止服务

procedure stopService;

var

ResultCode: Integer;

begin

Exec(ExpandConstant('{tmp}\media_service.exe'), '-s', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

end;

{ Key_Form_ShouldSkipPage }

function Key_Form_ShouldSkipPage(Page: TWizardPage): Boolean;

var

codeStr: String;

begin

SetLength(codeStr, 1024);

getCode(PChar(codeStr), 1024);

code.Text := codeStr;

Result := False;

end;

// 注册码编辑框改变事件

procedure Key_Form_KeyChange(Sender: TObject);

begin

// 检测注册码

if regCheck(PChar(key.Text)) then

WizardForm.NextButton.Enabled := True

else

WizardForm.NextButton.Enabled := False;

end;

procedure RegURLLabelOnClick(Sender: TObject);

var

ErrorCode: Integer;

begin

ShellExec('open', ExpandConstant('{#RegURL}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;

{ Key_Form_CreatePage }

function Key_Form_CreatePage(PreviousPageId: Integer): Integer;

var

URLLabel: TNewStaticText;

begin

keyPage := CreateCustomPage(

PreviousPageId,

ExpandConstant('{cm:Key_Form_Caption}'),

ExpandConstant('{cm:Key_Form_Description}')

);

{ codeLabel }

codeLabel := TLabel.Create(keyPage);

with codeLabel do

begin

Parent := keyPage.Surface;

Caption := ExpandConstant('{cm:Key_Form_codeLabel_Caption0}');

Left := ScaleX(0);

Top := ScaleY(0);

Width := ScaleX(40);

Height := ScaleY(13);

end;

{ keyLabel }

keyLabel := TLabel.Create(keyPage);

with keyLabel do

begin

Parent := keyPage.Surface;

Caption := ExpandConstant('{cm:Key_Form_keyLabel_Caption0}');

Left := ScaleX(0);

Top := ScaleY(82);

Width := ScaleX(40);

Height := ScaleY(13);

end;

{ key }

key := TMemo.Create(keyPage);

with key do

begin

Parent := keyPage.Surface;

Left := ScaleX(0);

Top := ScaleY(98);

Width := ScaleX(410);

Height := ScaleY(106);

ScrollBars := ssVertical;

TabOrder := 0;

OnChange := @Key_Form_KeyChange;

end;

{ code }

code := TMemo.Create(keyPage);

with code do

begin

Parent := keyPage.Surface;

Left := ScaleX(0);

Top := ScaleY(16);

Width := ScaleX(410);

Height := ScaleY(60);

ReadOnly := True;

ScrollBars := ssVertical;

TabOrder := 1;

end;

with keyPage do

begin

OnShouldSkipPage := @Key_Form_ShouldSkipPage;

end;

Result := keyPage.ID;

URLLabel := TNewStaticText.Create(keyPage);

with URLLabel do

begin

Caption := '获取注册码';

Cursor := crHand;

OnClick := @RegURLLabelOnClick;

Parent := keyPage.Surface;

Font.Style := URLLabel.Font.Style + [fsUnderline];

Font.Color := clBlue;

Left := ScaleX(350);

Top := ScaleY(210);

end;

end;

{ 设置域名页面相关代码 }

procedure Domain_Form_EditChange(sender: TObject);

begin

if domainEdit.Text = '' then

WizardForm.NextButton.Enabled := False

else

WizardForm.NextButton.Enabled := True;

end;

function Domain_Form_CreatePage(PreviousPageId: Integer): Integer;

var

domainLabel: TNewStaticText;

begin

domainPage := CreateCustomPage(

PreviousPageId,

ExpandConstant('{cm:Domain_Form_Caption}'),

ExpandConstant('{cm:Domain_Form_Description}')

);

domainLabel := TNewStaticText.Create(domainPage);

with domainLabel do

begin

Parent := domainPage.Surface;

Caption := '请确保输入的域名是有效的，并指向当前服务器IP，否则可以直接填写本机' + #13#10 + 'IP地址，或者保持默认值不变';

Left := ScaleX(0);

Top := ScaleY(60);

Width := ScaleX(400);

Height := ScaleY(28);

end;

domainEdit := TNewEdit.Create(domainPage);

with domainEdit do

begin

Parent := domainPage.Surface;

Text := GetComputerNameString;

Left := ScaleX(0);

Top := ScaleY(90);

Width := ScaleX(400);

Height := ScaleY(13);

OnChange := @Domain_Form_EditChange;

end;

end;

procedure URLLabelOnClick(Sender: TObject);

var

ErrorCode: Integer;

begin

ShellExec('open', ExpandConstant('{#MyAppURL}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;

// 安装初始化

function InitializeSetup(): Boolean;

begin

if serviceExists('MediaSrv') then

begin //服务存在，先停止它

if MsgBox('服务已经存在，要继续吗?', mbConfirmation, MB_YESNO) = IDNO then

begin

Result := False;

Exit;

end;

ExtractTemporaryFile('media_service.exe');

ExtractTemporaryFile('msvcr100.dll');

ExtractTemporaryFile('msvcp100.dll');

stopService;

end;

result := True;

end;

procedure InitializeWizard();

var

URLLabel: TNewStaticText;

begin

Key_Form_CreatePage(wpSelectDir);

Domain_Form_CreatePage(keyPage.ID);

URLLabel := TNewStaticText.Create(WizardForm);

with URLLabel do

begin

Caption := ExpandConstant('{#MyAppURL}');

Cursor := crHand;

OnClick := @URLLabelOnClick;

Parent := WizardForm;

Font.Style := URLLabel.Font.Style + [fsUnderline];

Font.Color := clBlue;

Left := ScaleX(20);

Top := WizardForm.ClientHeight - ScaleY(30);

end;

end;

// 页面切换事件

procedure CurPageChanged(CurPageID: Integer);

var

ResultCode: Integer;

file: String;

buf: String;

begin

WizardForm.BackButton.Enabled := True;

if CurPageID = keyPage.ID then

WizardForm.NextButton.Enabled := False

else if CurPageID = wpFinished then

begin

///////////////////////////////////////////////////////////

// 帮助设置HOST_NAME为用户设置的域名

file := ExpandConstant('{app}\lmp\htdocs\sample\config.php');

if LoadStringFromFile(file, buf) then

begin

StringChangeEx(buf, '%HOST_NAME%', domainEdit.Text, False);

SaveStringToFile(file, buf, False);

end;

file := ExpandConstant('{app}\管理统计页面.url');

if LoadStringFromFile(file, buf) then

begin

StringChangeEx(buf, '%HOST_NAME%', domainEdit.Text, False);

SaveStringToFile(file, buf, False);

end;

file := ExpandConstant('{app}\示例页面.url');

if LoadStringFromFile(file, buf) then

begin

StringChangeEx(buf, '%HOST_NAME%', domainEdit.Text, False);

SaveStringToFile(file, buf, False);

end;

///////////////////////////////////////////////////////////

// 禁用完成按钮

WizardForm.NextButton.Enabled := False;

// 正式写入注册文件

regSave(PChar(key.Text), WizardDirValue);

// 执行自动初始化

Exec(ExpandConstant('{app}\initconfig.exe'), '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

// 执行配置设置

Exec(ExpandConstant('{app}\InstanceConfig.exe'), '-r', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);

// 启动服务

Exec(ExpandConstant('{app}\media_service.exe'), '-r', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

// 启用完成按钮

WizardForm.NextButton.Enabled := True;

end

else if CurPageID = wpInstalling then

begin

// 安装运行时库

ExtractTemporaryFile('vcredist2008_x86.exe');

// 执行2008库安装

Exec(ExpandConstant('{tmp}\vcredist2008_x86.exe'), '/q', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

end

else if CurPageID = domainPage.ID then

begin

WizardForm.BackButton.Enabled := False;

end;

end;

// 卸载

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

begin

if CurUninstallStep = usUninstall then

begin

DeleteFile(ExpandConstant('{app}\lsc'));

end;

end;

// 检查重启逻辑

function UninstallNeedRestart(): Boolean;

begin

if serviceExists('MediaSrv') then

result := True

else

result := False;

end;