以前编写的inno setup脚本,涵盖了自定义安装界面,调用dll等等应用 (转)
以前编写的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;
以前编写的inno setup脚本,涵盖了自定义安装界面,调用dll等等应用 (转)的更多相关文章
- inno setup脚本,涵盖了自定义安装界面,调用dll等等应用
; Script generated by the Inno Setup 脚本向导. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETU ...
- Inno Setup脚本语法大全
Inno Setup脚本语法大全 ResourceShare Bruce 11个月前 (10-28) 6136浏览 0评论 Inno Setup 是什么?Inno Setup 是一个免费的 Win ...
- Inno Setup 脚本
给你个我用的例子: Delphi/Pascal code ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 2 ...
- Inno Setup自定义安装界面脚本
; 脚本由 Inno Setup 脚本向导 生成! ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档! #define MyAppName "RemoteCard&quo ...
- Inno Setup脚本
某天夜晚一场狂风暴雨,由于办公室座位旁的窗户没关,笔记本电脑泡了一夜水,无法开机,无奈送修,里面的大量资料也不知道会不会丢失. is的脚本只有重新写了,重新研究了一下检测程序是否正在运行的判断方法,另 ...
- INNO SETUP脚本向导创建的基本脚本
脚本范例分析:先来看看一段用INNO SETUP脚本向导创建的基本脚本的[Setup]段: [Setup] AppName=Premiere 6.5 汉化补丁-----------------(程 ...
- 在Unicode版Inno Setup中使用ISSkin给安装程序添加皮肤
原文 http://www.cnblogs.com/2356/archive/2009/10/27/1590565.html 在Unicode版Inno Setup中使用ISSkin给安装程序添加皮肤 ...
- 【转载】inno setup 水波纹效果,检测安装vcredist_x86.exe等
以下inno setup脚本,实现了:1.水波纹效果 2.安装时检测是否安装其他版本,并在欢迎页面添加文字提示 4.检测安装vcredist_x86.exe 3.卸载时添加提示 ; 脚本由 Inno ...
- 使用Inno SetUp脚本打包Winform程序
在开发桌面程序时,往往需要用到打包工具将程序打包为exe可执行文件. 之前在项目中用了下 InstallShield Limited Edition for Visual Studio 2015,它 ...
随机推荐
- LEETCODE —— Best Time to Buy and Sell Stock II [贪心算法]
Best Time to Buy and Sell Stock II Say you have an array for which the ith element is the price of a ...
- 通过反射得到object[]数组的类型并且的到此类型所有的字段及字段的值
private string T_Account(object[] list) { StringBuilder code = new StringBuilder(); //得到数据类型 Type t ...
- SQL SERVER调用textcopy写文件
SET @PATH = 'textcopy /S ' + @LServer + ' /U '+ @LUser + ' /P '+ @LPass + ' /D '+ @LDB + ' /T '+@tab ...
- SQL Server DBA日常查询视图_数据库对象视图
1.数据库 use master; exec sp_helpdb 1.1查询数据库大小 1.2查询数据库状态 use msdb select name, user_access_desc, --用户访 ...
- 调Windows 7的图片浏览器查看图片
public static void viewPicFromWindows(string pPicPath) { if (pPicPath!="" && Syste ...
- wdcp的安装扩展模块
其实就是官方包里面的所有附加模块全部支持啦.~~是在官方的基础上修改的优化了每次都解压缩php源码包,按需解压缩使用方法如下wget http://git.oschina.net/loblog/mem ...
- HTML 全局属性_02
New : HTML5 新属性. 属性 描述 accesskey 设置访问元素的键盘快捷键. class 规定元素的类名(classname) contenteditableNew 规定是否可编辑元素 ...
- OAF_文件系列3_实现OAF多行表中附件功能AttachmentImage(案例)
20150727 Created By BaoXinjian
- ant 自定义taskdef的工作目录
上次同事在用ant执行多层目录的测试用例的时候遇到了一些问题,也就是自定义的taskdef的工作目录总是在开始执行ant的那个目录,而有一些地方用到了当前目录,因此很多测试用命的代码出现了“找不到自定 ...
- bootstrap-列表组
<div class="container"> <!-- list-group 列表组 给ul添加 list-group-item 列表项 给li添加 --> ...