论坛风格切换切换到宽版
发帖 回复
返回列表
  • 467阅读
  • 3回复

新手有关 Inno Setup 打包后 如何在完成页面 添加 设置某某网址为主页 [复制链接]

 上一主题 下一主题
离线ppqq
初级用户
 

发帖
1
金钱
10
威望
1
只看楼主 倒序阅读 0 发表于: 01-27

第一次 用Inno Setup 不懂 希望 大大 没能 帮忙

新手有关 Inno Setup 打包后 如何在完成页面

在完成页面添加 设置
复制代码
  1. www.baidu.com

百度网址为主页和在完成页面 添加一些文字及网址连接


在第2个页面上 添加一些 选项 安装程序的一些选项

附送 原代码  这代码不是我写的


复制代码
  1. [Setup]
  2. AppId={{FBDFDB8E-04D7-4CDB-8ADE-F002ECDEB6D7}
  3. AppName=0
  4. AppVersion=0.0.0.0
  5. AppVerName=0
  6. AppPublisher=0
  7. DefaultDirName={pf}\55555
  8. DefaultGroupName=333
  9. AllowNoIcons=yes
  10. OutputDir=D:\
  11. OutputBaseFilename=11111111111111
  12. SetupIconFile=D:\01.ico
  13. Compression=lzma/ultra64
  14. SolidCompression=yes
  15. VersionInfoVersion=0.0.0.0
  16. VersionInfoTextVersion=0.0.0.0
  17. VersionInfoCompany=2222222222
  18. VersionInfoDescription=111111111
  19. DisableReadyPage=yes
  20. DisableProgramGroupPage=yes
  21. InternalCompressLevel=ultra64
  22. DirExistsWarning=no
  24. [Messages]
  25. SetupAppTitle=鱼
  26. DiskSpaceMBLabel=所需空间: [mb] MB
  27. ButtonBack=上一步(&P)
  28. ButtonNext=下一步(&N)
  30. [CustomMessages]
  31. SetupWindowTitle=----By：3只鱼
  32. WelcomePage=....................
  33. SelectDirPage=......嘿嘿.....
  35. InstallingPage=正在安装
  36. FinishedPage=....................
  37. FinishedHeadingLabel=安装向导完成
  39. [Dirs]
  40. Name: {pf}\InnoSetup Installation Information; Attribs: hidden
  42. [Languages]
  43. Name: "chinesesimp"; MessagesFile: "compiler:Languages\ChineseSimp.isl"
  45. [Files]
  46. Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy solidbreak;
  47. Source: BlackLite.cjstyles; DestDir: {tmp}; Flags: dontcopy solidbreak;
  48. Source: 欢迎.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak;
  49. Source: 选项.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak;
  50. Source: 安装.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak;
  51. Source: 完成.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak;
  52. Source: Close1.bmp; Flags: dontcopy solidbreak
  53. Source: Close2.bmp; Flags: dontcopy solidbreak
  54. Source: Close3.bmp; Flags: dontcopy solidbreak
  55. Source: license.txt; DestDir: {tmp}; Flags: dontcopy solidbreak;
  56. Source: "D:\music.mp3"; Flags: dontcopy
  57. Source: "D:\NSISADDIN\callnsis.dll"; DestDir: "{tmp}"; Flags: dontcopy
  58. Source: "D:\NSISADDIN\NewAdvSplash.dll"; DestDir: "{tmp}"; Flags: dontcopy
  59. Source: "D:\NSISADDIN\splash.gif"; DestDir: "{tmp}"; Flags: dontcopy
  61. [Files]
  62. Source: "D:\Users\Administrator\Desktop\03.exe"; DestDir: "{app}"; Flags: ignoreversion
  65. [code]
  67. Const
  68. //动画
  69.   AW_Hor_Positive = $1;
  70.   AW_Hor_Negative = $2;
  71.   AW_Ver_Positive = $4;
  72.   AW_Ver_Negative = $8;
  73.   AW_Center = $10;
  74.   AW_Hide = $10000;
  75.   AW_Activate = $20000;
  76.   AW_Slide = $40000;
  77.   AW_Blend = $80000;
  78. //透明
  79.   TransparentColor = clLime;  //要去掉的图片底色
  80.   TransparentPercent = 80;
  81.   WS_EX_LAYERED = $80000;
  82.   WS_EX_TRANSPARENT = $20;
  83.   LWA_COLORKEY = 1;
  84.   LWA_ALPHA = 2;
  85.   GWL_EXSTYLE = (-20);
  86.   WM_SYSCOMMAND = $0112;
  87. //动画
  88. function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL;
  89.   external 'AnimateWindow@user32 stdcall';
  90. //透明
  91. function SetLayeredWindowAttributes(hwnd: HWND; crKey: TColor; bAlpha: BYTE; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall';
  92. function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
  93. function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
  94. function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';
  95. //皮肤
  96. procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
  97. external 'LoadSkin@files:isskin.dll stdcall';
  98. procedure UnloadSkin();
  99. external 'UnloadSkin@files:isskin.dll stdcall';
  100. function ShowWindow(hWnd: Integer; uType: Integer): Integer;
  101. external 'ShowWindow@user32.dll stdcall';
  102. var
  103. SetupWindowlabel: Tlabel; //标题文字
  104. underlabel: Tlabel; //底部文字
  105. licenseCheckBox: TCheckBox; //协议选框
  106. TaskBox1,TaskBox2,TaskBox3,RunBox1,RunBox2,RunBox3,RunBox4: TCheckBox;  //创建目录页面选框和新页面复选框
  107. TaskBox1Label,TaskBox2Label,TaskBox3Label,TaskBox4Label,TaskBox5Label,TaskBox6Label,NewLabel,NewStatusLabel,FinishedLabel3,FinishedLabel4,RunBox1Label,RunBox2Label,RunBox3Label,RunBox4Label: TLabel;  //请选择安装目录
  108. //可用空间
  109. freespacelabel: TLabel;
  110. FreeMB, TotalMB: Cardinal;
  111. //所需空间
  112. NewDiskSpaceLabel: Tlabel;
  113. //欢迎协议
  114. licenseLabel1,licenseCheckBoxlabel: TLabel;
  115. Notice: TRichEditViewer;
  116. //关闭按钮
  117. CloseBtn: TBitmapImage;
  119. //安装百分比
  120. ProgressLabel: TLabel;
  122. //可用空间
  123. function ProperFormat(FreeMB: Cardinal): string;
  124. begin
  125.   if FreeMB >= 1024 then
  126.     Result:= Format('可用空间: %d.%d GB', [Trunc(FreeMB/1024), Round((FreeMB/1024-Trunc(FreeMB/1024))*10)])
  127.   else
  128.     Result:= '可用空间: ' + IntToStr(FreeMB) + ' MB';
  129. end;
  131. procedure UpdateFreeSpaceOnDisk(Sender: TObject);
  132. begin
  133.   if GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeMB, TotalMB) then
  134.     freespacelabel.Caption:= ProperFormat(FreeMB)
  135.   else
  136.     freespacelabel.Caption:= '可用空间: 0 MB';
  137. end;
  139. //单击“取消”直接退出
  140. procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
  141. begin
  142.   Confirm := False;
  143. end;
  145. //关闭按钮
  146. procedure CloseBtnOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  147. begin
  148.   CloseBtn.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Close3.bmp'));
  149. end;
  151. procedure CloseBtnOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  152. begin
  153.   CloseBtn.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Close2.bmp'));
  154. end;
  156. procedure CloseBtnOnMouseEnter(Sender: TObject);
  157. begin
  158.   CloseBtn.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Close2.bmp'))
  159. end;
  161. procedure CloseBtnOnMouseLeave(Sender: TObject);
  162. begin
  163.   CloseBtn.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Close1.bmp'));
  164. end;
  166. procedure CloseBtnOnClick(Sender: TObject);
  167. begin
  168. WizardForm.Close;
  169. end;
  171. //协议选框
  172. procedure licenseCheckBoxClick(Sender: TObject);
  173. begin
  174. WizardForm.NextButton.Enabled := licenseCheckBox.Checked;
  175. end;
  177. procedure licenseCheckBoxlabelOnClick(Sender: TObject);
  178. begin
  179. if licenseCheckBox.Checked = False then
  180.    licenseCheckBox.Checked := True
  181.    else
  182.    licenseCheckBox.Checked := False;
  183. end;
  186. procedure WizardFormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  187. begin
  188.   ReleaseCapture
  189.   SendMessage(WizardForm.Handle, WM_SYSCOMMAND, $F012, 0)
  190. end;
  192. var
  193. WizardFormImage: TBitmapImage;
  195. Type
  196.   HSAMPLE = DWORD;
  197.   HCHANNEL = DWORD;
  199. var
  200.   MusicSwitchLabel0, MusicSwitchLabel1, MusicSwitchLabel2: TNewStaticText;
  201.   sample: HSAMPLE;
  202.   channel: HCHANNEL;
  204. // 以下是所调用的插件函数
  207. procedure callplug(parentwnd: Integer; pluginname,funcname,param1,param2,param3,param4,param5,param6,param7,param8,param9,param10: PChar);
  208. external 'callplug@files:callnsis.dll stdcall delayload';
  210. procedure URLLabelOnClick(Sender: TObject);
  211. var
  212.   ErrorCode: Integer;
  213. begin
  214.   ShellExec('open', 'http://www.baidu.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
  215. end;
  216. procedure AboutButtonOnClick(Sender: TObject);
  217. begin
  218.   MsgBox(#13 '谢谢大家的支持哦' #13 #13'温馨提醒.有风险.请慎重！' #13#13 'By:3只鱼', mbInformation, MB_OK);
  219. end;
  220. var
  221. BGMusicFile, SplashFile: string;
  222. SplashForm: TForm;
  223. SplashFileName: String;
  224. I: Integer;
  225.     AboutButton, CancelButton: TButton;
  226.     URLLabel: TNewStaticText;
  227.     Function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
  228. external 'mciSendStringA@winmm.dll stdcall';
  230. procedure InitializeWizard();
  231. begin
  234.   { Create the pages }
  235. WizardForm.PAGENAMELABEL.Font.Color:= clred;
  236. WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;
  237. WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
  238. WizardForm.WELCOMELABEL2.Font.Color:= clblack;
  239.    CancelButton := WizardForm.CancelButton;
  240.      AboutButton := TButton.Create(WizardForm);
  241.      AboutButton.Left := 20;
  242.      AboutButton.Top := 372;
  243.      AboutButton.Width :=  ScaleX(55);
  244.      AboutButton.Height := ScaleY(22);
  245.      AboutButton.Caption := '&关于';
  246.      AboutButton.OnClick := @AboutButtonOnClick;
  247.      AboutButton.Parent := WizardForm;
  248.   URLLabel := TNewStaticText.Create(WizardForm);
  249.     URLLabel.Caption := '谢谢支持';
  250.     URLLabel.Cursor := crHand;
  251.     URLLabel.OnClick := @URLLabelOnClick;
  252.     URLLabel.Parent := WizardForm;
  253.     { Alter Font *after* setting Parent so the correct defaults are inherited first }
  254.     URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
  255.     URLLabel.Font.Color := clBlue;
  256.     URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
  257.     URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
  258.     WizardForm.LICENSEACCEPTEDRADIO.Checked := true;
  259.    // 释放临时文件
  260.   ExtractTemporaryFile('CallNSIS.DLL');
  261.   ExtractTemporaryFile('NewAdvSplash.DLL');
  262.   ExtractTemporaryFile('splash.gif');
  264.   BGMusicFile := ExpandConstant('{tmp}\mymusic.mp3');
  265.   SplashFile := ExpandConstant('{tmp}\splash.gif');
  267.   // 闪屏：显示时间 1600、淡入 800、淡出 500、透明颜色 -2 （表示 gif 图像本身透明）
  268.   callplug(0,ExpandConstant('{tmp}\NewAdvSplash.dll'),'show','3000','800','500','-2',SplashFile,'','','','','');
  270. begin
  271. ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\music.mp3')));
  272. SplashForm := TForm.create(nil);
  273. with SplashForm do
  274.    begin
  275. mciSendString(ExpandConstant('play {tmp}\music.mp3'),0,0,0);
  276. Close;
  277. Free;
  278.    end;
  279.     end;
  281. WizardForm.BorderStyle:=bsNone; //去标题框
  282. WizardForm.ClientWidth:=540
  283. WizardForm.ClientHeight:=400
  284. ExtractTemporaryFile('欢迎.bmp');
  285. ExtractTemporaryFile('选项.bmp');
  286. ExtractTemporaryFile('安装.bmp');
  287. ExtractTemporaryFile('完成.bmp');
  288. ExtractTemporaryFile('Close1.bmp');
  289. ExtractTemporaryFile('Close2.bmp');
  290. ExtractTemporaryFile('Close3.bmp');
  291. WizardFormImage := TBitmapImage.Create(WizardForm);
  292. WizardFormImage.Parent := WizardForm;
  293. WizardFormImage.Align := alClient;  //图片拉伸
  294. //WizardFormImage.SendToBack;  //显示底部横线
  295. WizardFormImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\欢迎.bmp'))
  296. WizardFormImage.OnMouseDown:=@WizardFormMouseDown;
  297. SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED)
  298. SetLayeredWindowAttributes(WizardForm.Handle, TransparentColor,(255 * TransparentPercent) / 100, LWA_COLORKEY)
  299. //标题文字
  300. SetupWindowlabel := TLabel.Create(WizardForm);
  301. SetupWindowlabel.Parent := WizardForm;
  302. SetupWindowlabel.Caption := ExpandConstant('{cm:SetupWindowTitle}');  //控件文字  '#13'
  303. SetupWindowlabel.Font.Name := '宋体';
  304. SetupWindowlabel.Font.Size := 9
  305. SetupWindowlabel.Font.Color := clblack;
  306. SetupWindowlabel.Font.Style := [fsBold]
  307. SetupWindowlabel.Transparent := True;
  308. SetupWindowlabel.AutoSize := False;
  309. SetupWindowlabel.WordWrap := True;
  310. SetupWindowlabel.Left := ScaleX(10);
  311. SetupWindowlabel.Top := ScaleY(10);
  312. SetupWindowlabel.Width := WizardForm.Width;
  313. SetupWindowlabel.Height := ScaleY(14);
  314. SetupWindowlabel.OnMouseDown:=@WizardFormMouseDown;
  315. //底部文字
  316. underlabel := TLabel.Create(WizardForm);
  317. underlabel.Parent := WizardForm;
  318. underlabel.Font.Name := '宋体';
  319. underlabel.Font.Size := 9
  320. underlabel.Font.Color := clblack;
  321. underlabel.Font.Style := []
  322. underlabel.Transparent := True;
  323. underlabel.AutoSize := False;
  324. underlabel.WordWrap := True;
  325. underlabel.Left := ScaleX(10);
  326. underlabel.Top := ScaleY(362);
  327. underlabel.Width := WizardForm.Width;
  328. underlabel.Height := ScaleY(14);
  329. underlabel.OnMouseDown:=@WizardFormMouseDown;
  330. //关闭按钮
  331. CloseBtn := TBitmapImage.Create(WizardForm);
  332. CloseBtn.ShowHint := True;
  333. CloseBtn.Cursor := crHand;
  334. CloseBtn.OnMouseDown := @CloseBtnOnMouseDown;
  335. CloseBtn.OnMouseUp := @CloseBtnOnMouseUp;
  336. CloseBtn.OnMouseEnter := @CloseBtnOnMouseEnter;
  337. CloseBtn.OnMouseLeave := @CloseBtnOnMouseLeave;
  338. CloseBtn.Parent := WizardForm;
  339. CloseBtn.Width := 39
  340. CloseBtn.Height := 20
  341. CloseBtn.Left := WizardForm.Width - CloseBtn.Width;
  342. CloseBtn.Top := 0
  343. CloseBtn.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Close1.bmp'));
  344. CloseBtn.OnClick:= @CloseBtnOnClick;
  345. //WizardForm
  346. WizardForm.OuterNotebook.Hide;
  347. WizardForm.BeveledLabel.Width := 0
  348. WizardForm.BeveledLabel.Height := 0
  349. //CancelButton
  350. WizardForm.CancelButton.Left:=464
  351. WizardForm.CancelButton.Top:=371
  352. WizardForm.CancelButton.Width:=70
  353. WizardForm.CancelButton.Height:=23
  354. //BackButton
  355. WizardForm.BackButton.Left:=317
  356. WizardForm.BackButton.Top:=WizardForm.CancelButton.Top
  357. WizardForm.BackButton.Width:=WizardForm.CancelButton.Width
  358. WizardForm.BackButton.Height:=WizardForm.CancelButton.Height
  359. //NextButton
  360. WizardForm.NextButton.Left:=WizardForm.BackButton.Left + WizardForm.BackButton.Width + 1
  361. WizardForm.NextButton.Top:=WizardForm.CancelButton.Top
  362. WizardForm.NextButton.Width:=WizardForm.CancelButton.Width
  363. WizardForm.NextButton.Height:=WizardForm.CancelButton.Height
  364. //欢迎协议
  365. licenseLabel1 := TLabel.Create(WizardForm);
  366. licenseLabel1.Parent := WizardForm;  //位置
  367. licenseLabel1.Caption := '在安装软件前，请仔细阅读许可协议。';
  368. licenseLabel1.Font.Color := clBlack; //控件文字颜色
  369. licenseLabel1.Transparent := True; //控件透明显示
  370. licenseLabel1.Left := 15;
  371. licenseLabel1.Top := ScaleY(50);
  372. licenseLabel1.Width := WizardForm.Width - 30;
  373. //licenseLabel1.Height := ScaleY(13);
  374. //欢迎协议
  375. Notice:= TRichEditViewer.Create(WizardForm);
  376. Notice.Parent := WizardForm;
  377. Notice.Top:= licenseLabel1.Top + 23;
  378. Notice.Left:= licenseLabel1.Left;
  379. Notice.Width:= licenseLabel1.Width;
  380. Notice.Height:= ScaleY(198);
  381. Notice.ReadOnly:= true;
  382. Notice.SCROLLBARS:= ssVertical;
  383. Notice.Font.Size := 9
  384. ExtractTemporaryFile('license.txt');
  385. Notice.Lines.LoadFromFile(ExpandConstant('{tmp}\license.txt'));
  387. licenseCheckBox := TCheckBox.Create(WizardForm);
  388. licenseCheckBox.Parent := WizardForm;
  389. licenseCheckBox.Left := Notice.Left;
  390. licenseCheckBox.Top := ScaleY(281);
  391. licenseCheckBox.Width := ScaleX(13);
  392. licenseCheckBox.Height := ScaleY(13);
  393. licenseCheckBox.Checked := false
  394. licenseCheckBox.OnClick := @licenseCheckBoxClick;
  396. //欢迎协议
  397. licenseCheckBoxlabel := TLabel.Create(WizardForm);
  398. licenseCheckBoxlabel.Parent := WizardForm;  //位置
  399. licenseCheckBoxlabel.Caption := '我已阅读并同意软件许可协议';
  400. licenseCheckBoxlabel.Font.Color := clBlack; //控件文字颜色
  401. licenseCheckBoxlabel.Transparent := True; //控件透明显示
  402. licenseCheckBoxlabel.Left := licenseCheckBox.Left + licenseCheckBox.Width + 2;
  403. licenseCheckBoxlabel.Top := licenseCheckBox.Top + 1;
  404. licenseCheckBoxlabel.Width := 300;
  405. licenseCheckBoxlabel.OnClick := @licenseCheckBoxlabelOnClick;
  406. //NewLabel
  407. NewLabel := TLabel.Create(WizardForm);
  408. NewLabel.Parent := WizardForm;
  409. NewLabel.Font.Name := '宋体';
  410. NewLabel.Font.Size := 9  
  411. NewLabel.Font.Color := clblack;
  412. NewLabel.Font.Style := []
  413. NewLabel.Transparent := True;
  414. NewLabel.AutoSize := False;
  415. NewLabel.WordWrap := True;
  416. NewLabel.Left := ScaleX(20);
  417. NewLabel.Top := ScaleY(108);
  418. NewLabel.Width := WizardForm.Width - ScaleX(40);
  419. NewLabel.Height := ScaleY(14);
  421. WizardForm.DirEdit.Left:=NewLabel.Left + 55;
  422. WizardForm.DirEdit.Top:=75
  423. WizardForm.DirEdit.Width:=WizardForm.Width - 160
  424. WizardForm.DirEdit.Font.Size := ScaleY(9);
  425. WizardForm.DirEdit.Font.Name := 'MS Sans Serif';
  426. WizardForm.DirEdit.Height:=18
  427. //WizardForm.DirEdit.BringToFront
  428. WizardForm.DirEdit.Parent := WizardForm;
  429. //DirBrowseButton
  430. WizardForm.DirBrowseButton.Left:=WizardForm.DirEdit.Left + WizardForm.DirEdit.Width + 3
  431. WizardForm.DirBrowseButton.Top:=WizardForm.DirEdit.Top - 1
  432. WizardForm.DirBrowseButton.Width:=WizardForm.CancelButton.Width
  433. WizardForm.DirBrowseButton.Height:=WizardForm.CancelButton.Height
  434. WizardForm.DirBrowseButton.Parent := WizardForm;
  438. //DiskSpaceLabel
  439. WizardForm.DiskSpaceLabel.Left:=WizardForm.DirEdit.Left
  440. WizardForm.DiskSpaceLabel.Top:=WizardForm.DirEdit.Top + 30
  441. WizardForm.DiskSpaceLabel.Width:=100;
  442. WizardForm.DiskSpaceLabel.Height:=14
  443. WizardForm.DiskSpaceLabel.Color := $00F1E0C2; //控件文字颜色
  444. WizardForm.DiskSpaceLabel.Parent := WizardForm; //位置
  446. NewDiskSpaceLabel := TLabel.Create(WizardForm);
  447. NewDiskSpaceLabel.Parent := WizardForm;
  448. NewDiskSpaceLabel.Transparent := true;
  449. NewDiskSpaceLabel.Left := WizardForm.DirEdit.Left;
  450. NewDiskSpaceLabel.Top := WizardForm.DirEdit.Top + 30
  451. NewDiskSpaceLabel.Width := ScaleX(100);
  452. NewDiskSpaceLabel.Height := ScaleY(13);
  456. //DiskSpaceLabel
  457. WizardForm.DiskSpaceLabel.Left:=WizardForm.DirEdit.Left
  458. WizardForm.DiskSpaceLabel.Top:=WizardForm.DirEdit.Top + 30
  459. WizardForm.DiskSpaceLabel.Width:=100;
  460. WizardForm.DiskSpaceLabel.Height:=14
  461. WizardForm.DiskSpaceLabel.Color := $00F1E0C2; //控件文字颜色
  462. WizardForm.DiskSpaceLabel.Parent := WizardForm; //位置
  464. NewDiskSpaceLabel := TLabel.Create(WizardForm);
  465. NewDiskSpaceLabel.Parent := WizardForm;
  466. NewDiskSpaceLabel.Transparent := true;
  467. NewDiskSpaceLabel.Left := WizardForm.DirEdit.Left;
  468. NewDiskSpaceLabel.Top := WizardForm.DirEdit.Top + 30
  469. NewDiskSpaceLabel.Width := ScaleX(100);
  470. NewDiskSpaceLabel.Height := ScaleY(13);
  472. //可用空间
  473. freespacelabel:= TLabel.Create(WizardForm);
  474. freespacelabel.Parent:= WizardForm;
  475. freespacelabel.Left:= WizardForm.DiskSpaceLabel.Left + WizardForm.DiskSpaceLabel.Width + 20;
  476. freespacelabel.Top:= WizardForm.DiskSpaceLabel.Top;
  477. freespacelabel.Height:= WizardForm.DiskSpaceLabel.Height;
  478. freespacelabel.Width:= WizardForm.DiskSpaceLabel.Width;
  479. freespacelabel.Transparent := True; //控件透明显示
  480. if GetSpaceOnDisk(ExtractFileDrive(WizardDirValue), True, FreeMB, TotalMB) then
  481. freespacelabel.Caption:= ProperFormat(FreeMB);
  482. WizardForm.DirEdit.OnChange := @UpdateFreeSpaceOnDisk;
  483. //ProgressGauge
  484. WizardForm.ProgressGauge.Left:=0;
  485. WizardForm.ProgressGauge.Top:=310;
  486. WizardForm.ProgressGauge.Width:=WizardForm.Width;
  487. WizardForm.ProgressGauge.Height:=18
  488. WizardForm.ProgressGauge.Min:=0
  489. WizardForm.ProgressGauge.Max:=100
  490. WizardForm.ProgressGauge.Parent := WizardForm;
  491. //安装百分比
  492. ProgressLabel := TLabel.Create(WizardForm);
  493. ProgressLabel.Top := WizardForm.ProgressGauge.Top + 30;
  494. ProgressLabel.Left:= 80;
  495. ProgressLabel.AutoSize := True;
  496. ProgressLabel.Transparent := True;
  497. ProgressLabel.Parent := WizardForm;
  498. //皮肤
  499. ExtractTemporaryFile('BlackLite.cjstyles');
  500. LoadSkin(ExpandConstant('{tmp}\BlackLite.cjstyles'), 'NORMALBlackLite.INI');
  501. end;
  504. function StatusMsg(MyMsg: string): Boolean;
  505. begin
  506. Result:= True;
  507. NewStatusLabel.Caption:= MyMsg;
  508. end;
  510. procedure Progress();
  511. begin
  512. //安装百分比
  513. ProgressLabel.Caption:= IntToStr((WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min)/((WizardForm.ProgressGauge.Max - WizardForm.ProgressGauge.Min)/101)) + '%';
  514. end;
  516. procedure CurPageChanged(CurPageID: Integer);
  517. begin
  518.   if CurPageID = wpWelcome then
  519.     begin
  520.     underlabel.Caption := ExpandConstant('{cm:WelcomePage}');  //控件文字  '#13'
  521.     WizardFormImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\欢迎.bmp'))
  522.     Wizardform.NextButton.Enabled:= licenseCheckBox.Checked;
  523.     licenseCheckBox.show
  524.     licenseLabel1.Show
  525.     Notice.show
  526.     licenseCheckBoxlabel.show
  527.     NewLabel.hide
  528.     WizardForm.DirEdit.hide
  529.     WizardForm.DirBrowseButton.hide
  531.     WizardForm.DiskSpaceLabel.hide
  532.     NewDiskSpaceLabel.hide
  533.     freespacelabel.hide
  534.     WizardForm.ProgressGauge.hide
  535.     end;
  536.   if CurPageID = wpSelectDir then
  537.     begin
  538.     underlabel.Caption := ExpandConstant('{cm:SelectDirPage}');  //控件文字  '#13'
  539.     WizardFormImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\选项.bmp'))
  540.     licenseLabel1.hide
  541.     Notice.hide
  542.     licenseCheckBox.hide
  543.     licenseCheckBoxlabel.hide
  544.     NewLabel.hide
  545.     WizardForm.DirEdit.show
  546.     WizardForm.DirBrowseButton.show
  548.     WizardForm.DiskSpaceLabel.hide
  549.     NewDiskSpaceLabel.show
  550.     NewDiskSpaceLabel.Caption := WizardForm.DiskSpaceLabel.Caption;
  551.     freespacelabel.show
  552.     WizardForm.ProgressGauge.hide
  554.     WizardForm.NextButton.Caption := '安装(&I)'
  555.     end;
  556.   if CurPageID = wpSelectComponents then
  557.     begin
  558.     licenseCheckBox.hide
  559.     licenseCheckBoxlabel.hide
  560.     NewLabel.show
  561.     WizardForm.DirEdit.hide
  562.     WizardForm.DirBrowseButton.hide
  564.     WizardForm.DiskSpaceLabel.hide
  565.     NewDiskSpaceLabel.hide
  566.     freespacelabel.hide
  567.     WizardForm.ProgressGauge.hide
  569.     end;
  570.   if CurPageID = wpInstalling then
  571.     begin
  572.     underlabel.Caption := ExpandConstant('{cm:InstallingPage}');  //控件文字  '#13'
  573.     WizardFormImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\安装.bmp'))
  574.     licenseCheckBox.hide
  575.     licenseCheckBoxlabel.hide
  576.     NewLabel.hide
  577.     WizardForm.DirEdit.hide
  578.     WizardForm.DirBrowseButton.hide
  580.     WizardForm.DiskSpaceLabel.hide
  581.     NewDiskSpaceLabel.hide
  582.     freespacelabel.hide
  583.     WizardForm.ProgressGauge.show
  585.     end;
  586.     if CurPageID = wpFinished then
  587.     begin
  588.     underlabel.Caption := ExpandConstant('{cm:FinishedPage}');  //控件文字  '#13'
  589.     WizardFormImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\完成.bmp'))
  590.     licenseCheckBox.hide
  591.     licenseCheckBoxlabel.hide
  592.     NewLabel.hide
  593.     WizardForm.DirEdit.hide
  594.     WizardForm.DirBrowseButton.hide
  596.     WizardForm.DiskSpaceLabel.hide
  597.     NewDiskSpaceLabel.hide
  598.     freespacelabel.hide
  599.     ProgressLabel.hide
  600.     WizardForm.ProgressGauge.hide
  602.     WizardForm.NextButton.Left := WizardForm.CancelButton.Left
  603.     end;
  604. end;
  607. procedure DeinitializeSetup();
  608. begin
  609.   AnimateWindow(StrToInt(ExpandConstant('{wizardhwnd}')),500,AW_Center + AW_Hor_Positive + AW_Hide);  //动画
  610. //皮肤
  611. ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  612. UnloadSkin();
  613. end;
  615. [Run]
  616. Filename: "http://www.baidu.com";  Flags: shellexec
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线qiuquan
中级用户

发帖
120
金钱
1200
威望
120
只看该作者 1 发表于: 01-27
老是设别人主页也不是办法呀，别人安装的时候会很反感的。
回复
举报
离线xuchangqing
初级用户

发帖
3
金钱
20
威望
2
只看该作者 2 发表于: 03-08
顶你一下，好贴要顶！
回复
举报
离线5412
初级用户

发帖
6
金钱
60
威望
6
只看该作者 3 发表于: 03-10
前来学习中~~
回复
举报
发帖 回复
返回列表