情迁QQ机器人安装包开源

<pre name="code" class="plain">; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
#define MyAppName "情迁ＱＱ机器人"
;应用名称
#define AppVerName "情迁ＱＱ机器人"
;文件名称 卸载时候可以显示
#define MyAppURL "http://51bwn.com/"
;相关链接    显示 不了
#define MyAppExeName "51bwn_qqrobot.exe"
;安装后主程序名
#define MyAppPublisher "情随事迁"
;公司名称 
#define LicenseFile "许可文件.txt"
;开始安装的许可文件
#define InfoAfterFile "安装后显示.txt"
;安装后显示文件
#define SetupIconFile " qq.ico"
;安装包程序图标
#define OutputDir "C:\Users\yan\Desktop"
;#define OutputDir "C:\Documents and Settings\chuanzhiboke\桌面"
;编译后安装包位置
#define AppVersion "1.6.20150619"
;产品版本
#define VersionInfoVersion "1.6"
;信息版本->无法查看
#define VersionInfoTextVersion "20150619"
;文件版本
#define AppCopyright "版权所有 (C) 情随事迁1.5-51bwn.com"
;版权->windows7显示
#define DefaultDirName "D:\qqrobot"
;文件默认安装路径
;#define  ""
 #define OutputBaseFilename "情迁ＱＱ机器人_20150619_setup"
[Setup]
; 注: AppId的值为单独标识该应用程序。
; 不要为其他安装程序使用相同的AppId值。
; (生成新的GUID，点击 工具|在IDE中生成GUID。)
AppId={{9F70F01C-6E6E-4334-8E39-E4A277CAEAF6}
AppName={#MyAppName}
;产品名称
AppVerName={#AppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={#DefaultDirName}
DefaultGroupName={#MyAppName}
AppVersion={#AppVersion}
VersionInfoVersion={#VersionInfoVersion}
VersionInfoTextVersion={#VersionInfoTextVersion}
; 产品版本
AppCopyright={#AppCopyright}
; 版权信息
; 文件版本
LicenseFile={#LicenseFile}
;InfoBeforeFile=F:\Mrphj_CF\帮助与说明.txt
InfoAfterFile={#InfoAfterFile}
;输出文件路径   {commondesktop}
;OutputDir={#outputdir}
;OutputDir={#OutputDir}
;在当前目录
OutputDir= {#OutputDir}
OutputBaseFilename={#OutputBaseFilename}
SetupIconFile={#SetupIconFile}
Compression=lzma2/ultra64
SolidCompression=yes
WizardImageFile=image.bmp
WizardSmallImageFile=image1.bmp
; 开启密码
;Password=6227003031200780828
UsePreviousTasks=yes
;Encryption=yes
[Languages]
; These files are stubs
; To achieve better results after recompilation, use the real language files 
Name: "chs"; MessagesFile: "chs.isl"; 

[Tasks]
Name: desktopicon; Description: "创建桌面快捷方式(&D)"; GroupDescription: "添加快捷方式:";
Name: desktopicon\common; Description: "对于所有用户"; GroupDescription: "添加快捷方式:"; 
Name: desktopicon\user; Description: "仅对当前用户"; GroupDescription: "添加快捷方式";


;Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"
; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1

[CustomMessages]
chs.NameAndVersion=%1 v%2
chs.AdditionalIcons=附加图标:
chs.CreateDesktopIcon=创建桌面快捷图标(&D)
chs.CreateQuickLaunchIcon=创建任务栏快速启动图标(&Q)
chs.ProgramOnTheWeb=%1 网站
chs.UninstallProgram=卸载 %1
chs.LaunchProgram=运行 %1
chs.AssocFileExtension=将扩展名为 %2 的文件与 %1 建立关联(&A)
chs.AssocingFileExtension=正在将扩展名为 %2 的文件与 %1 建立关联...


[Files]
Source: "F:\setup\qqrobot\使用简介.txt"; DestDir: "{app}"; Flags: isreadme
Source: "F:\setup\qqrobot\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
;Flags: isreadme
Source: "F:\setup\qqrobot\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "ISSkin.dll"; DestDir: {app}; Flags: dontcopy
Source: "Office2007.cjstyles"; DestDir: {tmp}; Flags: dontcopy


; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
[Icons]
Name: "{group}\启动{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\情迁ＱＱ机器人数据管理工具"; Filename: "{app}\情迁ＱＱ机器人数据管理工具.exe"
Name: "{commondesktop}\情迁ＱＱ机器人数据管理工具"; Filename: "{app}\情迁ＱＱ机器人数据管理工具.exe"
Name: "{group}\情迁QQ机器人进程守护"; Filename: "{app}\情迁QQ机器人进程守护.exe"
Name: "{commondesktop}\情迁QQ机器人进程守护"; Filename: "{app}\情迁QQ机器人进程守护.exe"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{group}\卸载{#MyAppName}"; Filename: "{app}\unins000.exe";
Name: "{group}\{#MyAppName}官网"; Filename: "http://51bwn.com/";
;Name: "{group}\黑界网络淘宝店铺"; Filename: "http://shop108156197.taobao.com/";
Name: "{group}\情迁软件官方体验群298081857"; Filename: "http://jq.qq.com/?_wv=1027&k=Y7hrEQ";
;Name: "{group}\黑界网络产品交流群106605356"; Filename: "http://qm.qq.com/cgi-bin/qm/qr?k=AKALBCQrTvinzSTvBjt0Mu6dFDCQAq8-/";

[Registry]
;Root: HKCU; Subkey: "Software\Valve\Steam"; ValueType: string; ValueName: "Rate";
;Root: HKCU; Subkey: "Software\Valve\Steam"; ValueType: string; ValueName: "Skin";
;Root: HKCU; Subkey: "Software\Valve\Steam"; ValueType: string; ValueName: "51BWN.COM"; ValueData: "qq694886526"

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "运行{#MyAppName}"; Flags: nowait postinstall skipifsilent
Filename: "{app}\情迁QQ机器人进程守护.exe"; Description: "运行进程守护软件"; Flags: postinstall nowait skipifsilent unchecked
Filename: "{app}\情迁ＱＱ机器人数据管理工具.exe"; Description: "运行据管理工具"; Flags: postinstall nowait skipifsilent unchecked
Filename: "{app}\qqdebug.exe"; Description: "运行CMD调试工具"; Flags: postinstall nowait skipifsilent unchecked

;Filename: "{app}\{#MyAppExeName}"; Description: "运行情迁火线启动器"; Flags: nowait postinstall skipifsilent
;Filename: "{app}\cstrike.exe"; Description: "运行情迁火线主程序"; Flags: postinstall nowait skipifsilent unchecked

;Filename: "{app}\key.exe";
[Messages]
ClickNext=单击“下一步”继续，或单击“取消”退出安装程序。%n%n%n%n%n%n%n%n本程序由情随事迁制作%n%n欢迎网络爱好者共同讨论%n%n网址： http://www.51BWN.COM
[Code]
{ RedesignWizardFormBegin } // 不要删除这一行代码。
// 不要修改这一段代码，它是自动生成的。
procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    Color := clGreen;
    AutoScroll := False;
    ClientHeight := ScaleY(360);
  end;

  with WizardForm.InnerPage do
  begin
    Color := clGreen;
  end;

  with WizardForm.GroupEdit do
  begin
    Text := '聊天应用\{#MyAppName}';
  end;

  with WizardForm.TasksList do
  begin
    Color := clWhite;
  end;

  with WizardForm.ReadyMemo do
  begin
    Color := clWhite;
  end;

{ ReservationBegin }
  // 这一部分是提供给你的，你可以在这里输入一些补充代码。

{ ReservationEnd }
end;
// 不要修改这一段代码，它是自动生成的。
{ RedesignWizardFormEnd } // 不要删除这一行代码。

// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: AnsiString; lpszIniFileName: AnsiString);
external 'LoadSkin@files:isskin.dll stdcall';

// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

// Importing ShowWindow Windows API from User32.DLL
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external '[email protected] stdcall';

function InitializeSetup(): Boolean;
begin
	ExtractTemporaryFile('Office2007.cjstyles');
	LoadSkin(AnsiString(ExpandConstant('{tmp}\Office2007.cjstyles')), '');
	Result := True;
end;
procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox('上一安装包版本：1.5 当前版本：1.6'#13#13'更多请点击联系QQ 694886526 或加群298081857 网址http://51bwn.com'#13#13'支付宝：17099953960 财付通694886526 建设银行6227 0030 3120 0780 828', mbInformation, mb_Ok);
end;
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.51bwn.com', '', '', SW_SHOW, ewNoWait, ErrorCode)
end;
procedure InitializeWizard();
var
AboutButton: TButton;
URLLabel: TNewStaticText;
begin
  RedesignWizardForm;
AboutButton := TButton.Create(WizardForm);
AboutButton.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width;
AboutButton.Top := WizardForm.CancelButton.Top;
AboutButton.Width := WizardForm.CancelButton.Width;
AboutButton.Height := WizardForm.CancelButton.Height;
AboutButton.Caption := '版本(&A)';
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
URLLabel.Left := AboutButton.Left + AboutButton.Width + 10;
URLLabel.Caption := 'www.51bwn.com';
URLLabel.Font.Style := [fsBold, fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Font.Name := '宋体';
URLLabel.Font.Height := ScaleY(-13);
URLLabel.Parent := WizardForm;
URLLabel.Hint := '点击访问相关网站';
URLLabel.ShowHint := True;
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030102C02000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F10105436F6C6F720707636C477265656E0D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020C00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E65725061676505436F6C6F720707636C477265656E0B506172656E74436F6C6F720800F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F75705061676500F108544E6577456469740947726F75704564697404546578741419000000E8818AE5A4A9E5BA94E794A85C7B234D794170704E616D657D000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B735061676500F110544E6577436865636B4C697374426F78095461736B734C69737405436F6C6F720707636C5768697465000000F110544E65774E6F7465626F6F6B506167650952656164795061676500F108544E65774D656D6F0952656164794D656D6F05436F6C6F720707636C576869746500000000000000