【Inno Setup】 仿QQ浏览器源码

最新推荐文章于 2024-01-31 16:32:46 发布
最新推荐文章于 2024-01-31 16:32:46 发布
阅读量4.3k 收藏 5
点赞数 7
分类专栏： Inno Setup 5
本文为博主原创文章，未经博主允许不得转载。
本文链接：https://blog.csdn.net/u013059441/article/details/60869700
版权 
#define MyAppName "QQ 浏览器"
[Setup]
AppName={#MyAppName}
AppVersion={#MyAppName}
AppVerName={#MyAppName}
AppPublisher={#MyAppName}
DefaultDirName=.\QQ浏览器
DefaultGroupName={#MyAppName}
OutputDir=.
OutputBaseFilename={#MyAppName}
SetupIconFile=install.ico
UninstallIconFile=install.ico
VersionInfoVersion=1.0.0.0
VersionInfoTextVersion=1.0.0.0
VersionInfoDescription={#MyAppName}
versioninfocopyright=NotOrdinary
VersionInfoProductName={#MyAppName}
DisableReadyPage=yes
DisableProgramGroupPage=yes
DirExistsWarning=no
DisableDirPage=yes
//Uninstallable=no
[Messages]
SetupAppTitle=
SetupWindowTitle={#MyAppName} 安装向导
BeveledLabel=
[Files]
Source: {tmp}\*; DestDir: {tmp}; Flags: dontcopy solidbreak ; Attribs: hidden system
//Source: {app}\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
;[Icons]
;Name: {commondesktop}\{#MyAppName}; Filename: {app}\Compil32.exe; WorkingDir: {app};  check:tubiao;
;Name: {group}\{#MyAppName}; Filename: {app}\Compil32.exe; WorkingDir: {app}; check:cxz;
;Name: {group}\卸载 {#MyAppName}; Filename: {uninstallexe}; WorkingDir: {app};check:cxz;
;[Registry]
;Root: HKCU; Subkey: "Software\Microsoft\Internet Explorer\Main"; ValueType: string; ValueName: "Start Page"; ValueData: "http://write.blog.csdn.net/postedit/60869700"; check: iehomeck;
;Root: HKCU; Subkey: "Software\Microsoft\Internet Explorer\Main"; ValueType: string; ValueName: "Default_Page_URL"; ValueData: "http://write.blog.csdn.net/postedit/60869700"; check: iehomeck;
//主页
//Root: HKCR; SubKey: .iss; ValueType: string; ValueData: InnoSetupScriptFile; Flags: uninsdeletevalue uninsdeletekeyifempty ;
[Code]
type
  TBtnEventProc = procedure (h:HWND);
  TPBProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;  //百分比

Const
//鼠标指向
  MyCursor1 = 101;
  MyCursor2 = 102;
  Radius  = 9;
  GWL_EXSTYLE = (-20);
  GCL_STYLE = (-26);
  CS_DROPSHADOW = $20000;
//窗口移动
  WM_SYSCOMMAND = $0112;
//卸载
//  WS_EX_APPWINDOW = $40000;
//按钮
  BtnClickEventID      = 1;
  BtnMouseEnterEventID = 2;
//botva2
function ImgLoad(Wnd :HWND; FileName :PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetVisibility(img :Longint; Visible :boolean); external 'ImgSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetPosition(img :Longint; NewLeft, NewTop, NewWidth, NewHeight :integer); external 'ImgSetPosition@files:botva2.dll stdcall';
procedure ImgSetTransparent(img:Longint; Value:integer); external 'ImgSetTransparent@{tmp}\botva2.dll stdcall delayload';
procedure ImgRelease(img :Longint); external 'ImgRelease@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown;  external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';
function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallback@{tmp}\innocallback.dll stdcall delayload';
function BtnCreate(hParent:HWND; Left,Top,Width,Height:integer; FileName:PAnsiChar; ShadowWidth:integer; IsCheckBtn:boolean):HWND;  external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetText(h:HWND; Text:PAnsiChar);  external 'BtnSetText@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetVisibility(h:HWND; Value:boolean); external 'BtnSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFont(h:HWND; Font:Cardinal); external 'BtnSetFont@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFontColor(h:HWND; NormalFontColor, FocusedFontColor, PressedFontColor, DisabledFontColor: Cardinal); external 'BtnSetFontColor@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEvent(h:HWND; EventID:integer; Event:Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetCursor(h:HWND; hCur:Cardinal); external 'BtnSetCursor@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEnabled(h:HWND; Value:boolean); external 'BtnSetEnabled@{tmp}\botva2.dll stdcall delayload';
function GetSysCursorHandle(id:integer):Cardinal; external 'GetSysCursorHandle@{tmp}\botva2.dll stdcall delayload';
function BtnGetChecked(h:HWND):boolean; external 'BtnGetChecked@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetChecked(h:HWND; Value:boolean); external 'BtnSetChecked@{tmp}\botva2.dll stdcall delayload';
procedure CreateFormFromImage(h:HWND; FileName:PAnsiChar); external 'CreateFormFromImage@{tmp}\botva2.dll stdcall delayload';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function PBCallBack(P:TPBProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
procedure ImgSetVisiblePart(img:Longint; NewLeft, NewTop, NewWidth, NewHeight : integer); external 'ImgSetVisiblePart@files:botva2.dll stdcall';
function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint;
  external 'SetLayeredWindowAttributes@user32 stdcall';
function SetClassLong(hWnd: HWND; nlndex: integer; dwNewLong: integer ): integer; external 'SetClassLongA@user32 stdcall';
function GetClassLong(IntPtr:hwnd;nIndex:integer ):integer; external 'GetClassLongA@user32 stdcall';
function CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): THandle; external 'CreateRoundRectRgn@gdi32 stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: THandle; bRedraw: Boolean): Integer; external 'SetWindowRgn@user32 stdcall';
function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';


procedure ShapeForm(aForm: TForm; edgeSize: integer);
var
  FormRegion:LongWord;
begin
  FormRegion:=CreateRoundRectRgn(0,0,aForm.Width,aForm.Height,edgeSize-6,edgeSize-6);
  SetWindowRgn(aForm.Handle,FormRegion,True);
end;
var
  Timer1,Timer2,Timerbj,Timerjs: TTimer;
  a,ys:integer;WizardFormImage,line1,line2,line3,line4,dire: Longint;
  a1,T1,xds,xds1,RCode:integer;
  gddh,dirimg,logo,logo1,PBOldProc,pbImg,pbbgImg: Longint;
  CancelBtn,backBtn,Startbtn,NextBtn,nextbtn1,Okbtn,Okbtn1, DirBrowseBtn: HWND;
  A1Check,A2Check,A3Check,A4Check,A5Check,A6Check,A7Check,A8Check: HWND;
  WFButtonFont:tfont;
  Label1,Label2,Label3,Label4,Label5,Label6,Label7,Label8,Label9,Label10,
  Label11,Label12,Label13,Label14,Label15:tlabel; Edit1:Tedit;
  Xkxy,Yhty:TRichEditViewer;

function PBProc(h:hWnd;Msg,wParam,lParam:Longint):Longint;
var
  pr,i1,i2 : Extended;
  w : integer;
begin
  Result:=CallWindowProc(PBOldProc,h,Msg,wParam,lParam);
  if (Msg=$402) and (WizardForm.ProgressGauge.Position>WizardForm.ProgressGauge.Min) then begin
    i1:=WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min;
    i2:=WizardForm.ProgressGauge.Max-WizardForm.ProgressGauge.Min;
    pr:=i1*100/i2;
    w:=Round(390*pr/100);
    ImgSetPosition(pbImg,519/2-190,175+40,w,5);
    ImgApplyChanges(WizardForm.Handle);
  end;
end;

procedure WizardFormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture
  SendMessage(WizardForm.Handle, WM_SYSCOMMAND, $F012, 0)
end;


procedure CancelBtnClick(hBtn:HWND);
begin
WizardForm.CancelButton.Click;
end;

procedure NextBtnClick(hBtn:HWND);
begin
dirimg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\DirImg.png'),(41),167,350,24,True,True);
BtnSetVisibility(backBtn,true);BtnSetVisibility(NextBtn,false);
BtnSetVisibility(Startbtn,false);BtnSetVisibility(DirBrowseBtn,true);
Label2.Hide;Label3.Hide;
Edit1.show;Label4.show;Label5.show;Label6.show;
Label7.show;Label8.show;
BtnSetVisibility(nextbtn1,true)
BtnSetVisibility(A1Check,false);BtnSetVisibility(A2Check,true);
BtnSetVisibility(A3Check,true);BtnSetVisibility(A4Check,true);
BtnSetVisibility(A5Check,true);BtnSetVisibility(A6Check,true);
ImgRelease(logo)
ImgApplyChanges(WizardForm.Handle)
end;
procedure NextBtn1Click(hBtn:HWND);
begin
WizardForm.NextButton.Click;
end;
procedure backBtnClick(hBtn:HWND);
begin
BtnSetVisibility(backBtn,false);BtnSetVisibility(Startbtn,true);
BtnSetVisibility(NextBtn,true);BtnSetVisibility(DirBrowseBtn,false);
logo:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\wz.png'),(170),175,183,20,True,True);
Label2.show;Label3.show;
Edit1.hide;Label4.hide;Label5.hide;Label6.hide;
Label7.hide;Label8.hide;
BtnSetVisibility(nextbtn1,false)
BtnSetVisibility(A1Check,true);BtnSetVisibility(A2Check,false);
BtnSetVisibility(A3Check,false);BtnSetVisibility(A4Check,false);
BtnSetVisibility(A5Check,false);BtnSetVisibility(A6Check,false);
ImgRelease(dirimg)
ImgApplyChanges(WizardForm.Handle)
end;

procedure XYClick(Sender: TObject);
begin
BtnSetVisibility(NextBtn,false)
BtnSetVisibility(A1Check,false)
BtnSetVisibility(Startbtn,false)
BtnSetVisibility(Okbtn,true)
Xkxy.SetBounds((25),(45), (470),(250));
Label2.hide;Label3.hide;
end;

procedure OkBtnClick(hBtn:HWND);
begin
BtnSetVisibility(NextBtn,true)
BtnSetVisibility(A1Check,true)
BtnSetVisibility(Startbtn,true)
BtnSetVisibility(Okbtn,false)
Xkxy.SetBounds((-1000),(45), (470),(0));
Label2.show;Label3.show;
end;


procedure YhClick(Sender: TObject);
begin
BtnSetVisibility(A2Check,false);BtnSetVisibility(A3Check,false);
BtnSetVisibility(A4Check,false);BtnSetVisibility(A5Check,false);
BtnSetVisibility(backBtn,false);BtnSetVisibility(nextbtn1,false)
BtnSetVisibility(Okbtn1,true); BtnSetVisibility(DirBrowseBtn,false);
Yhty.SetBounds((25),(45), (470),(250));
Label4.Hide;Label5.Hide;Label6.Hide;Label7.Hide;Label8.Hide;
end;

procedure OkBtn1Click(hBtn:HWND);
begin
BtnSetVisibility(A2Check,true);BtnSetVisibility(A3Check,true);
BtnSetVisibility(A4Check,true);BtnSetVisibility(A5Check,true);
BtnSetVisibility(backBtn,true);BtnSetVisibility(nextbtn1,true)
BtnSetVisibility(Okbtn1,false)BtnSetVisibility(DirBrowseBtn,true);
Yhty.SetBounds((-1000),(45), (470),(0));
Label4.show;Label5.show;Label6.show;Label7.show;Label8.show;
end;



procedure EditdirOnClick(hBtn:HWND);
begin
WizardForm.DirBrowseButton.Click;
Edit1.Text:=WizardForm.DirEdit.Text;
end;

procedure Editchanged(Sender: TObject);
begin
WizardForm.DirEdit.Text:=Edit1.Text;
end;

procedure A1onoff(hBtn:HWND);
begin
if BtnGetChecked(A1Check) then
  begin
  Label9.hide;
  BtnSetEnabled(Startbtn,true);BtnSetEnabled(NextBtn,true);
  end  else
  begin
  Label9.show;
  BtnSetEnabled(Startbtn,false);BtnSetEnabled(NextBtn,false);
  end
end;

procedure label2click(sender :TObject);
begin
BtnSetChecked(A1Check, not BtnGetChecked(A1Check));
if BtnGetChecked(A1Check) then
  begin
  Label9.hide;
  BtnSetEnabled(Startbtn,true);BtnSetEnabled(NextBtn,true);
  end  else
  begin
  Label9.show;
  BtnSetEnabled(Startbtn,false);BtnSetEnabled(NextBtn,false);
  end
end;

procedure label4click(sender :TObject);
begin
BtnSetChecked(A2Check, not BtnGetChecked(A2Check));
end;

procedure label5click(sender :TObject);
begin
BtnSetChecked(A3Check, not BtnGetChecked(A3Check));
end;

procedure label6click(sender :TObject);
begin
BtnSetChecked(A4Check, not BtnGetChecked(A4Check));
end;

procedure label7click(sender :TObject);
begin
BtnSetChecked(A5Check, not BtnGetChecked(A5Check));
end;


procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
  Cancel := True;
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if PageID=wpFinished then
  result := true;
end;

function InitializeSetup: Boolean;
var
ResultStr: String;
ResultCode: Integer;
 SetupRunning: Integer;
begin
    if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppName}_is1', 'UninstallString', ResultStr) then
    begin
    if msgbox('检测到旧版本，点击"确定"将自动卸载旧版本，点击"取消"退出安装',mbInformation,MB_OKCANCEL)=idok then
      begin
      ResultStr := RemoveQuotes(ResultStr);
      Exec(ResultStr, '/VERYSILENT', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
      Result := true;
      end else
      begin
      Result := False;
      end
    end else
    begin
    Result := true;
    end
 //检测安装包是否多次打开
  SetupRunning:=FindWindowByWindowName('QQ 浏览器 安装向导');
  while SetupRunning<>0 do
  begin
        result := false;
        SetupRunning := 0;
  end;

end;
procedure InitializeWizard();
begin
ExtractTemporaryFile('btn_by.png');
ExtractTemporaryFile('btn_n.png');
ExtractTemporaryFile('btn_ok.png');
ExtractTemporaryFile('btn_sc.png');
ExtractTemporaryFile('btn_b.png');
ExtractTemporaryFile('btn_s1.png');
ExtractTemporaryFile('btn_s2.png');
ExtractTemporaryFile('btn_close.png');
ExtractTemporaryFile('window.png');
ExtractTemporaryFile('DirImg.png');
ExtractTemporaryFile('Pbbg.png');
ExtractTemporaryFile('Pbjd.png');
ExtractTemporaryFile('wz.png');
ExtractTemporaryFile('license.txt')
ExtractTemporaryFile('license1.txt')
WizardForm.Width:=519
WizardForm.Height:=354
//WizardForm.Color:=$00FFC268
WizardForm.BorderStyle:=bsnone
WizardForm.OuterNotebook.Hide;
WizardForm.Bevel.Left:=-1000
WizardForm.Center;
WizardForm.Top:=WizardForm.Top-100;
WFButtonFont:=TFont.Create;
WFButtonFont.Name:='宋体'
WFButtonFont.Size:=9;
ShapeForm(WizardForm, radius);//圆角
WizardForm.OnMouseDown:=@WizardFormMouseDown;

WizardFormImage:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\window.png'),(0), (0),518,353,True,True);

Startbtn:=BtnCreate(WizardForm.Handle,185,220,152,48,ExpandConstant('{tmp}\btn_s1.png'),1,False);
BtnSetEvent(Startbtn,BtnClickEventID,WrapBtnCallback(@NextBtn1Click,1));

SetClassLong(WizardForm.Handle, GCL_STYLE,GetClassLong(WizardForm.Handle, GCL_STYLE)+CS_DROPSHADOW);


NextBtn:=BtnCreate(WizardForm.Handle,519-95-2,350-31-16,95,28,ExpandConstant('{tmp}\btn_n.png'),1,False);
BtnSetEvent(NextBtn,BtnClickEventID,WrapBtnCallback(@NextBtnClick,1));
BtnSetFont(NextBtn,WFButtonFont.Handle);
BtnSetFontColor(NextBtn,clBlack,clBlack,clBlack,clGray);
BtnSetText(NextBtn,ExpandConstant('自定义安装'));

backBtn:=BtnCreate(WizardForm.Handle,1,350-31-16,75,28,ExpandConstant('{tmp}\btn_b.png'),1,False);
BtnSetEvent(backBtn,BtnClickEventID,WrapBtnCallback(@backBtnClick,1));
BtnSetFont(backBtn,WFButtonFont.Handle);
BtnSetFontColor(backBtn,clBlack,clBlack,clBlack,clGray);
BtnSetText(backBtn,ExpandConstant('返回'));


nextbtn1:=BtnCreate(WizardForm.Handle,202,264,116,40,ExpandConstant('{tmp}\btn_s2.png'),1,False);
BtnSetEvent(nextbtn1,BtnClickEventID,WrapBtnCallback(@NextBtn1Click,1));

Okbtn:=BtnCreate(WizardForm.Handle,519/2-40,350-31-16,80,28,ExpandConstant('{tmp}\btn_ok.png'),1,False);
BtnSetEvent(Okbtn,BtnClickEventID,WrapBtnCallback(@OkbtnClick,1));
BtnSetFont(Okbtn,WFButtonFont.Handle);
BtnSetFontColor(Okbtn,clBlack,clBlack,clBlack,clGray);
BtnSetText(Okbtn,ExpandConstant('确定'));

Okbtn1:=BtnCreate(WizardForm.Handle,519/2-40,350-31-16,80,28,ExpandConstant('{tmp}\btn_ok.png'),1,False);
BtnSetEvent(Okbtn1,BtnClickEventID,WrapBtnCallback(@Okbtn1Click,1));
BtnSetFont(Okbtn1,WFButtonFont.Handle);
BtnSetFontColor(Okbtn1,clBlack,clBlack,clBlack,clGray);
BtnSetText(Okbtn1,ExpandConstant('确定'));

//取消
CancelBtn:=BtnCreate(WizardForm.Handle,519-13-15,15,13,13,ExpandConstant('{tmp}\btn_close.png'),1,False)
BtnSetEvent(CancelBtn,BtnClickEventID,WrapBtnCallback(@CancelBtnClick,1));

//浏览
DirBrowseBtn:=BtnCreate(WizardForm.Handle,402,167,74,24,ExpandConstant('{tmp}\btn_by.png'),1,False);
BtnSetEvent(DirBrowseBtn,BtnClickEventID,WrapBtnCallback(@EditdirOnClick,1));
BtnSetFontColor(DirBrowseBtn,Clblack,Clblack,Clblack,$B6B6B6);
BtnSetFont(DirBrowseBtn,WFButtonFont.Handle);
BtnSetText(DirBrowseBtn,ExpandConstant('浏览...'));
第一页
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm;
    Caption := 'QQ浏览器7.0 安装向导';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Color:=clBlack
    Left := (25);
    Top := (20);
  end;
 
  Label2 := TLabel.Create(WizardForm);
  with Label2 do
  begin
    Parent := WizardForm;
    Caption := '同意QQ浏览器的';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Color:=$002A2A2A
    Left := (45);
    Top := (310);
    OnClick:=@label2click;
  end;
 
  Label3 := TLabel.Create(WizardForm);
  with Label3 do
  begin
    Parent := WizardForm;
    Caption := '用户许可协议';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Style:=[fsUnderline]
    Font.Color:=$00AF6205
    Left := 140;
    Top := Label2.Top;
    OnClick:=@XYClick;
  end;
  Label9 := TLabel.Create(WizardForm);
  with Label9 do
  begin
    Parent := WizardForm;
    Caption := '安装前请阅读并同意此协议';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Color:=$001D40F1
    Left := Label3.Left+75;
    Top := Label2.Top;
  end;
 
第二页
  Edit1 := TEdit.Create(WizardForm);
  with Edit1 do
  begin
    Parent := WizardForm;
    Text := WizardForm.DirEdit.Text;
    Font.Size:=9
    Left := 46;
    Top := 172 ;
    Width :=340
    Height  :=14
    BorderStyle :=bsnone;
    TabStop :=false;
    OnChange:=@Editchanged;
  end;
 
  Label4 := TLabel.Create(WizardForm);
  with Label4 do
  begin
    Parent := WizardForm;
    Caption := '创建桌面图标';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Color:=$002A2A2A
    Left := 41+5+13;
    Top := 205;
    OnClick:=@label4click;
  end;
 
  Label5 := TLabel.Create(WizardForm);
  with Label5 do
  begin
    Parent := WizardForm;
    Caption := '设置默认浏览器';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Color:=$002A2A2A
    Left := Label4.Left;
    Top := Label4.top+24;
    OnClick:=@label5click;
  end;
 
  Label6 := TLabel.Create(WizardForm);
  with Label6 do
  begin
    Parent := WizardForm;
    Caption := '添加到快速启动栏';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Color:=$002A2A2A
    Left := 41+5+13+200;
    Top := 205;
    OnClick:=@label6click;
  end;

  Label7 := TLabel.Create(WizardForm);
  with Label7 do
  begin
    Parent := WizardForm;
    Caption := '参与';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Color:=$002A2A2A
    Left := Label6.Left;
    Top := Label6.top+24;
    OnClick:=@label7click;
  end;
 
  Label8 := TLabel.Create(WizardForm);
  with Label8 do
  begin
    Parent := WizardForm;
    Caption := '用户体验改善计划';
    Transparent := true;
    Font.Size:=9
    Font.Name:='微软雅黑'
    Font.Style:=[fsUnderline]
    Font.Color:=$00AF6205
    Left := Label7.Left+29;
    Top := Label6.top+24;
    OnClick:=@YhClick;
  end;
 
  Xkxy:= TRichEditViewer.Create(WizardForm);
  Xkxy.Parent := WizardForm;
  Xkxy.ReadOnly:= true;
  Xkxy.SCROLLBARS:= ssVertical;
  Xkxy.Font.Size := 9
  Xkxy.SetBounds((25),(45), (470),(250));
  Xkxy.Lines.LoadFromFile(ExpandConstant('{tmp}\license.txt'));

  Yhty:= TRichEditViewer.Create(WizardForm);
  Yhty.Parent := WizardForm;
  Yhty.ReadOnly:= true;
  Yhty.SCROLLBARS:= ssVertical;
  Yhty.Font.Size := 9
  Yhty.SetBounds((25),(45), (470),(250));
  Yhty.Lines.LoadFromFile(ExpandConstant('{tmp}\license1.txt'));

xds:=41;
xds1:=207
A1Check:=BtnCreate(WizardForm.Handle,25,350-38,13,12,ExpandConstant('{tmp}\btn_sc.png'),1,True);
BtnSetEvent(A1Check,BtnClickEventID,WrapBtnCallback(@A1onoff,1));
A2Check:=BtnCreate(WizardForm.Handle,xds,xds1+25*0,13,12,ExpandConstant('{tmp}\btn_sc.png'),1,True);
A3Check:=BtnCreate(WizardForm.Handle,xds,xds1+25*1,13,12,ExpandConstant('{tmp}\btn_sc.png'),1,True);
A4Check:=BtnCreate(WizardForm.Handle,xds+200,xds1+25*0,13,12,ExpandConstant('{tmp}\btn_sc.png'),1,True);
A5Check:=BtnCreate(WizardForm.Handle,xds+200,xds1+25*1,13,12,ExpandConstant('{tmp}\btn_sc.png'),1,True);

PBOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBCallBack(@PBProc,4));
BtnSetChecked(A1Check,true);BtnSetChecked(A2Check,true);BtnSetChecked(A3Check,true);
BtnSetChecked(A4Check,true);BtnSetChecked(A5Check,true);
ImgApplyChanges(WizardForm.Handle);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.NextButton.Width:=0;
WizardForm.NextButton.TabStop:=false
WizardForm.CancelButton.Width:=0;
WizardForm.CancelButton.TabStop:=false
WizardForm.BackButton.Width:=0;
WizardForm.BackButton.TabStop:=false
BtnSetVisibility(backBtn,false);BtnSetVisibility(DirBrowseBtn,false);
BtnSetVisibility(NextBtn,false);BtnSetVisibility(Startbtn,false);
BtnSetVisibility(A1Check,false);BtnSetVisibility(A2Check,false);
BtnSetVisibility(A3Check,false);BtnSetVisibility(A4Check,false);
BtnSetVisibility(A5Check,false);BtnSetVisibility(A6Check,false);
Edit1.hide;Label4.hide;Label5.hide;Label6.hide;Label9.Hide;
Label7.hide;Label8.hide;
Xkxy.SetBounds((-1000),(45), (470),(2));
Yhty.SetBounds((-1000),(45), (470),(2));
BtnSetVisibility(Okbtn,false);BtnSetVisibility(Okbtn1,false);
BtnSetVisibility(nextbtn1,false)

  if CurPageID = wpWelcome then
  begin
  WizardFormImage:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\window.png'),(0), (0),518,353,True,True);
  logo:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\wz.png'),(170),175,183,20,True,True);
  BtnSetVisibility(A1Check,true);
  BtnSetVisibility(NextBtn,true)
  BtnSetVisibility(Startbtn,true)
  end
  if CurPageID = wpInstalling then
  begin
  WizardFormImage:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\window.png'),(0), (0),518,353,True,True);
  logo:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\wz.png'),(170),175,183,20,True,True);
  pbbgImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\Pbbg.png'),519/2-190,175+40,390,5,True,True);
  pbImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\Pbjd.png'),0,0,0,0,True,True);
  end;
  if CurPageID = wpFinished then
  begin
  WizardFormImage:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\window.png'),(0), (0),518,353,True,True);
  end;
 
ImgApplyChanges(WizardForm.Handle);
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
if PBOldProc<>0 then SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBOldProc);
end;

 

NotOrdinary
关注
  • 7
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
自定义Inno Setup安装界面（仿QQ安装界面）
08-31
自定义Inno Setup安装界面（仿QQ安装界面） ，本脚本纯属学习使用，如发生问题，作者不负任何责任。有异议，请联系1218476693@qq.com
Inno Setup仿有道
08-23
对于Inno Setup美化，我也是初步涉及，只知道网上有好多深度定制的。其实我这个也是在别人上修改的，但发现下载下来居然编译一大堆错误，最后通过在百度、Google上搜了挺多的资料，终于可以运行起来了，所以就把完整的放上来了，有需要的可以下载参考一下。我是基于这个上面修改的http://blog.csdn.net/HarounCloud/article/details/50613590
使用InnoSetup实现Setup安装程序界面美化
最新发布
活下去,学下去
01-31 548
之前我写过一篇《Unity发布PC版，使用Inno Setup制作安装程序》，建议先看那一下那篇文章。今天，我要讲讲通过InnoSetup如何实现Setup安装程序的界面美化。类型数值范围占字节数格式shortint-128 ~ 1281带符号 8 位inteter2带符号 16 位longint4带符号 32 位byte0 ~ 2551带符号 8 位word0 ~ 655352带符号 16 位例：12345varbegin。
inno setup自定义安装界面
05-27
自己替换app目录下的程序文件 ，替换temp目录下的界面图片，再修改脚本相应代码即可。注意：必须要用inno setup增强版封装，该资源包包含对.net FormWork 4 的封装。{code} 文件夹下的 Code.iss 是界面代码，version.h 是配置文件 可以在里面修改应用名称，公司 、版本号等信息。
inno setup仿有道云安装界面
09-14
inno setup仿有道云安装界面，自己替换app目录下的UI界面图片，再修改脚本相应代码即可。注意：必须要用inno setup增强版封装
Beautiful-InnoSetup-Demo:美丽的InnoSetup演示
05-10
Beautiful-InnoSetup-Demo 本Demo使用InnoSetup，结合botva2.dll和InnoCallback.dll实现Setup程序的界面美化 我对应的博客文章： 效果如下
innosetup-6.0.4.zip
04-13
安装包制作神器，小巧精致。Inno Setup是一款Windows免费的安装制作软件，Inno Setup功能强大，制作快速，对于一般的Windows安装制作都能够快速地完成，并且Inno Setup软件小巧、操作简便、界面精美，功能齐全。脚本化安装包制作过程，支持DOS指令，驱动安装一行代码搞定。
Inno自定义界面学习笔记（六）之自定义卸载界面
sspdfn的专栏
03-17 1365
could not call proc
Inno setup 界面设计入门（一）环境准备
applek_Case的博客
10-10 4124
前言 本套教程为进阶而写的，最终构建一个完整的炫酷的界面，包括界面，安装，注册表以及常见的安装功能实现。需要你知道基本的inno setup知识，比如说inno setup是干什么的，会基本的脚本创建。本教程不需要你掌握Pascal语法，使用的是通俗易懂的话语教学以及图文讲解。最终实现效果如图所示 本人的csdn博客为：http://blog.csdn.net/applek_case 有什么
INNOSETUP 仿有道云安装包界面
热门推荐
InnoSetup小站
01-31 1万+
INNO 仿QQ安装界面下载地址 http://download.csdn.net/detail/harouncloud/9423528 - 先上图片 - 1 快速安装 - 2 自定义 - 3 安装 - 4 安装完成 注 该脚本借鉴网友们的成果，做了部分优化，本脚本纯属学习使用，如发生问题，作者不负任何责任。如果对本帖有任何异议，请联系harouncloud@foxm
inno setup QQ音乐安装包界面
applek_Case的博客
10-09 2984
最近研究了inno setup代码，模仿了一下QQ音乐2017版本安装包的界面。效果如图所示
innosetup界面美化工具.zip
07-07
innosetup安装界面美化： 解压压缩包中的 Inno Setup 5.5.zip，运行Inno Setup 5.5\Inno Setup 5\Compil32.exe，右上角可以改变语言。 打开build.iss文件，一些自定义字段请按需修改，点击Inno Setup工具栏中的 ‘绿色小三角’ 来运行脚本，或者先点击 ‘构建’, 构建完成后点‘运行’，编译通过后会自动运行安装程序，同时dst目录会生成最终的安装程序。 想自定义的话，修改psd文件，重新生成图标即可；修改尺寸需修改iss脚本请读代码。
Innosetup软件及安装界面美化iss脚本
04-19
附件中包含个人博客中介绍的应用Innosetup制作软件exe安装包的相关工具软件和脚本以及实例用到的美工图片。
inno setup仿大厂安装包，脚本和安装包都可运行
03-11
inno setup安装包 可运行的脚本
Inno Setup 仿有道云界面
10-30
Inno Setup 仿有道云界面
innosetup 仿有道云安装包
01-31
该脚本借鉴网友们的成果，做了部分优化，本脚本纯属学习使用，如发生问题，作者不负任何责任。有异议，请联系[email protected]
inno setup制作安装包时添加系统和用户环境变量（Path路径）
12-07
本资源是在前人基础上进行修改整合而成。主要功能是使用inno setup制作安装包时，在安装完成之后实现将指定路径添加到用户和系统环境变量的Path中。下载文件后，请参考文件头部的说明进行操作。如有问题，请联系我：[email protected]。感谢原版作者Jared Breland 的贡献。本版的修改：（1）增加了添加用户环境变量；（2）对代码结构进行了微调；（3）对代码进行了进一步注释。
innosetup（Inno Setup）免费的安装制作软件
08-24
Inno Setup 是一个免费的安装制作软件，小巧、简便、精美是其最大特点，支持pascal脚本，能快速制作出标准Windows2000风格的安装界面，足以完成一般安装任务。
inno setup 修改环境变量方法
09-07
利用inno setup软件制作安装包，利用该文件能够 修改环境变量
innosetup仿qq音乐
09-06
Inno Setup是一个功能强大的安装程序制作工具，它可以帮助开发人员制作自己的安装程序。仿QQ音乐可以通过使用Inno Setup来创建一个类似的安装程序。 首先，我们需要收集QQ音乐的所有必要文件和组件。这些可以包括安装程序本身、QQ音乐的可执行文件、音乐文件和其他必要的库文件。 然后，我们可以使用Inno Setup的脚本语言来编写安装程序的脚本。脚本语言可以定义安装程序的界面、安装路径、安装过程中的操作等。我们可以自定义安装界面，例如添加欢迎页面、选择安装路径页面和完成安装页面。 接下来，我们可以在脚本中添加一些自定义逻辑，以便在安装过程中执行一些操作。例如，我们可以添加一个自动运行QQ音乐的选项，在安装完成后自动启动QQ音乐。 在脚本编写完成后，我们可以使用Inno Setup的编译器将脚本编译成可执行的安装程序。编译后的安装程序可以在Windows操作系统上运行，并按照我们在脚本中定义的方式进行安装。 最后，我们可以测试安装程序，确保它可以正常安装和运行。如果有任何错误或问题，我们可以修改脚本，并重新编译安装程序。 总的来说，使用Inno Setup可以非常方便地制作一个仿QQ音乐的安装程序。通过定义安装界面、安装路径和自定义操作，我们可以创建一个与QQ音乐类似的安装程序，使用户能够轻松安装和享受音乐。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

NotOrdinary

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值