inno setup yang

changNet

2015-08-29

关注关注

;此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

#include"{image}\fairy.iss"

[Setup]

;安装程序的描述名字

AppName=雨杰棋牌游戏3500

;应用程序版本

AppVersion=3.5.0.0

VersionInfoCompany=江苏雨杰网络科技有限公司

VersionInfoCopyright=Copyright@1998-2015江苏雨杰网络科技有限公司

;应用程序的评论

AppComments=江苏雨杰网络科技有限公司-中国第一家专业棋牌游戏开发公司

;版本信息

VersionInfoVersion=3.5.0.0

;应用发布

AppPublisher=江苏雨杰网络科技有限公司

;应用发布路径

AppPublisherURL=http://www.cnyxwl.com

;应用程序支持网址

AppSupportURL=http://www.cnyxwl.com

;应用程序更新网址

AppUpdatesURL=http://www.cnyxwl.com

;默认安装路径

DefaultDirName={pf}\yjqp3500

DefaultGroupName=雨杰棋牌游戏3500

;安装包的名字

OutputBaseFilename=雨杰棋牌游戏3500

;压缩模式

Compression=lzma2

;固态压缩模式

SolidCompression=yes

;允许无图标

AllowNoIcons=yes

;设置安装包的ico图标文件

SetupIconFile={image}\installer.ico

;禁用安装完成的页面

DisableReadyPage=yes

;禁用系统程序目录下创建的快捷目录完成的页面有效值：auto,yes或no

DisableProgramGroupPage=yes

;内部压缩级别与算法

InternalCompressLevel=ultra64

[Icons]

Name:"{group}\雨杰棋牌游戏中心";Filename:"{app}\GameLauncher.exe";WorkingDir:"{app}";

Name:"{group}\{cm:ProgramOnTheWeb,雨杰棋牌游戏中心}";Filename:"http://www.cnyxw.com/"

Name:"{group}\{cm:UninstallProgram,雨杰棋牌游戏中心}";Filename:"{uninstallexe}";

Name:"{commondesktop}\雨杰棋牌游戏中心";Filename:"{app}\GameLauncher.exe";WorkingDir:"{app}";

Name:"{userappdata}\Microsoft\InternetExplorer\QuickLaunch\雨杰棋牌游戏中心";Filename:"{app}\GameLauncher.exe";WorkingDir:"{app}";

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

;安装包包含的文件

[Files]

Source:"{image}\*";DestDir:{tmp};Flags:dontcopysolidbreak;

;Source:"{app}\*";DestDir:{app};Flags:ignoreversionrecursesubdirscreateallsubdirs;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

type

TPBProc=function(h:hWnd;Msg,wParam,lParam:Longint):Longint;

TTimerProc=procedure(h:longword;msg:longword;idevent:longword;dwTime:longword);

TBtnEventProc=procedure(h:HWND);

functionSetLayeredWindowAttributes(hwnd:HWND;crKey:TColor;bAlpha:BYTE;dwFlags:DWORD):Boolean;external'[email protected]';

functionGetWindowLong(Wnd:HWnd;Index:Integer):Longint;external'[email protected]';

functionLoadCursorFromFile(FileName:String):Cardinal;external'LoadCursorFromFileA@user32stdcall';

functionDeleteObject(p1:Longword):BOOL;external'[email protected]';

functionGetSysColor(nIndex:Integer):DWORD;external'[email protected]';

functionGetSystemMetrics(nIndex:Integer):Integer;external'[email protected]';

functionReleaseCapture():Longint;external'[email protected]';

functionSleep(Index:Integer):Longint;external'[email protected]';

functionGetTickCount():Longint;external'[email protected]';

functionSetWindowLong(Wnd:HWnd;Index:Integer;NewLong:Longint):Longint;external'[email protected]';

functionLoadImage(hInst:THandle;ImageName:PChar;ImageType:UINT;X,Y:Integer;Flags:UINT):THandle;external'[email protected]';

functionGetDC(hWnd:HWND):Longword;external'[email protected]';

functionSetWindowRgn(hWnd:HWND;hRgn:LongWord;bRedraw:BOOL):Integer;external'[email protected]';

functionReleaseDC(hWnd:HWND;hDC:LongWord):Integer;external'[email protected]';

functionAddFontResource(FileName:PAnsiChar):Integer;external'[email protected]';

functionRemoveFontResource(FileName:PAnsiChar):BOOL;external'[email protected]';

functionPBCallBack(P:TPBProc;ParamCount:integer):LongWord;external'wrapcallback@files:innocallback.dllstdcall';

functionCallWindowProc(lpPrevWndFunc:Longint;hWnd:HWND;Msg:UINT;wParam,lParam:Longint):Longint;external'[email protected]';

functionSetTimer(hWnd:LongWord;nIDEvent,uElapse:LongWord;lpTimerFunc:LongWord):LongWord;external'[email protected]';

functionKillTimer(hWnd:LongWord;nIDEvent:LongWord):LongWord;external'[email protected]';

functionWrapTimerProc(callback:TTimerProc;Paramcount:Integer):Longword;external'wrapcallback@files:innocallback.dllstdcall';

functionmciSendString(lpstrCommand,lpstrReturnString:PAnsiChar;uReturnLength:Cardinal;hWndCallback:HWND):Cardinal;external'[email protected]';

functionsndPlaySound(lpszSoundName:AnsiString;uFlags:cardinal):integer;external'[email protected]';

procedureCreateFormFromImage(h:HWND;FileName:PAnsiChar);external'CreateFormFromImage@files:botva2.dllstdcall';

functionCreateBitmapRgn(DC:LongWord;Bitmap:HBITMAP;TransClr:DWORD;dX:integer;dY:integer):LongWord;external'CreateBitmapRgn@files:botva2.dllstdcall';

procedureSetMinimizeAnimation(Value:Boolean);external'SetMinimizeAnimation@files:botva2.dllstdcall';

functionGetMinimizeAnimation:Boolean;external'GetMinimizeAnimation@files:botva2.dllstdcall';

functionImgLoad(Wnd:HWND;FileNameAnsiChar;Left,Top,Width,Height:integer;Stretch,IsBkg:boolean):Longint;external'ImgLoad@files:botva2.dllstdcall';

procedureImgSetVisiblePart(img:Longint;NewLeft,NewTop,NewWidth,NewHeight:integer);external'ImgSetVisiblePart@files:botva2.dllstdcall';

procedureImgSetVisibility(img:Longint;Visible:boolean);external'ImgSetVisibility@files:botva2.dllstdcall';

functionImgGetVisibility(img:Longint):boolean;external'ImgGetVisibility@files:botva2.dllstdcall';

procedureImgApplyChanges(h:HWND);external'ImgApplyChanges@files:botva2.dllstdcall';

procedureImgSetPosition(img:Longint;NewLeft,NewTop,NewWidth,NewHeight:integer);external'ImgSetPosition@files:botva2.dllstdcall';

functionBtnCreate(hParent:HWND;Left,Top,Width,Height:integer;FileNameAnsiChar;ShadowWidth:integer;IsCheckBtn:boolean):HWND;external'BtnCreate@files:botva2.dllstdcall';

procedureBtnSetEvent(h:HWND;EventID:integer;Event:Longword);external'BtnSetEvent@files:botva2.dllstdcall';

functionWrapBtnCallback(Callback:TBtnEventProc;ParamCount:Integer):Longword;external'wrapcallback@files:innocallback.dllstdcalldelayload';

proceduregdipShutdown;external'gdipShutdown@files:botva2.dllstdcall';

procedureBtnSetFont(h:HWND;Font:Cardinal);external'BtnSetFont@files:botva2.dllstdcall';

procedureBtnSetText(h:HWND;TextAnsiChar);external'BtnSetText@files:botva2.dllstdcall';

procedureBtnSetFontColor(h:HWND;NormalFontColor,FocusedFontColor,PressedFontColor,DisabledFontColor:Cardinal);external'BtnSetFontColor@files:botva2.dllstdcall';

procedureBtnSetEnabled(h:HWND;Value:boolean);external'BtnSetEnabled@files:botva2.dllstdcall';

procedureBtnSetVisibility(h:HWND;Value:boolean);external'BtnSetVisibility@files:botva2.dllstdcall';

functionBtnGetChecked(h:HWND):boolean;external'BtnGetChecked@files:botva2.dllstdcall';

procedureBtnSetChecked(h:HWND;Value:boolean);external'BtnSetChecked@files:botva2.dllstdcall';

procedureImgRelease(img:Longint);external'ImgRelease@files:botva2.dllstdcalldelayload';

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

const

TransparentColor=$ffffff;

TransparentPercent=80;

WS_EX_LAYERED=$80000;

WS_EX_TRANSPARENT=$20;

LWA_COLORKEY=1;

LWA_ALPHA=2;

GWL_EXSTYLE=(-20);

SM_CYBORDER=6;

SM_CYDLGFRAME=8;

WM_SYSCOMMAND=$0112;

//鼠标指向

MyCursor1=101;

MyCursor2=102;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//按钮

BtnClickEventID=1;

BtnMouseEnterEventID=2;

var

M_top,M_left,l_top,l_left:Longint;

Nun:Longint;

Frame0,Frame1:TForm;

WizardFormImage:Longint;//背景图

MinBtn,CloseBtn,NextBtn:HWND;//右上角按钮+取消窗口

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//快捷方式选框

DesktopCheck,licenseCheck,RunAppCheck:HWND;//

DesktopLabel,licenseLabel,licenseLabelFile,PackFilePathLabel,PackFilePathTitle,RunAppLabel:TLabel;//

timer1:TTimer;

gy,dh,io:integer;

//百分比

PrLabel:TLabel;

PBOldProc:Longint;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//百分比1211

functionPBProc(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;

sleep(50);

PrLabel.Caption:=IntToStr(Round(pr))+'%';

//显示图片进度这个脚本用不着

//w:=Round(797*pr/100);

//ImgSetPosition(progressbgImg,2,230,w,23);

//ImgSetVisiblePart(progressbgImg,0,0,w,23);

//ImgApplyChanges(WizardForm.Handle);

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//快捷方式

FunctionDesktopCheckClick():Boolean;

begin

ifBtnGetChecked(DesktopCheck)=truethen

Result:=true;

end;

functionColorToRGB(Color:TColor):Longint;

begin

ifColor<0then

Result:=GetSysColor(Colorand$000000FF)

else

Result:=Color;

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//释放文件到临时目录

procedureExtractTmpFiles;

var

i:Integer;

ImgFile:AnsiString;

begin

ExtractTemporaryFile('bg0.png');

ExtractTemporaryFile('bg.png');

ExtractTemporaryFile('MinBtn.png');

ExtractTemporaryFile('CloseBtn.png');

ExtractTemporaryFile('install.png');

ExtractTemporaryFile('CheckBox.png');

ExtractTemporaryFile('pr.png');

ExtractTemporaryFile('license.txt');

ExtractTemporaryFile('dh0.png');

ExtractTemporaryFile('dh1.png');

ExtractTemporaryFile('dh2.png');

ExtractTemporaryFile('dh3.png');

ExtractTemporaryFile('dh4.png');

fori:=0to23do

begin

ImgFile:=format('%.1d',[i+1])+'.png';

ExtractTemporaryFile(ImgFile);

end;

procedureTimer1Timer(Sender:TObject);

begin

gy:=gy+1;

ifgy=iothen

begin

CreateFormFromImage(Frame1.Handle,ExpandConstant('{tmp}\dh1.png'));

end

ifgy=io*2then

begin

CreateFormFromImage(Frame1.Handle,ExpandConstant('{tmp}\dh2.png'));

end

ifgy=io*3then

begin

CreateFormFromImage(Frame1.Handle,ExpandConstant('{tmp}\dh3.png'));

end

ifgy=io*4then

begin

CreateFormFromImage(Frame1.Handle,ExpandConstant('{tmp}\dh4.png'));

end

ifgy=io*5then

begin

CreateFormFromImage(Frame1.Handle,ExpandConstant('{tmp}\dh0.png'));

gy:=0;

end

ImgApplyChanges(Frame1.Handle);

end;

procedureWizardFormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);

begin

ifNun<>wpInstallingthen

begin

ReleaseCapture

SendMessage(WizardForm.Handle,WM_SYSCOMMAND,$F012,0)

end;

procedureFrameMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);

begin

ifNun<>wpInstallingthen

begin

ReleaseCapture

SendMessage(Frame0.Handle,WM_SYSCOMMAND,$F012,0)

end;

procedurePlayListCallback(FrameCount:Integer);

begin

AnimateFairy('(0-23)',nil);

end;

procedureNextBtnClick(hBtn:HWND);

begin

WizardForm.NextButton.Click;

end;

procedurelicenseCheckCheckClick(hBtn:HWND);

begin

ifBtnGetChecked(licenseCheck)=truethen

BtnSetEnabled(NextBtn,true)

else

BtnSetEnabled(NextBtn,false);

end;

procedureShowLicense(Sender:TObject);

var

ErrorCode:Integer;

begin

ShellExec('',ExpandConstant('{tmp}\license.txt'),'','',SW_SHOW,ewNoWait,ErrorCode)

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//文字路径

procedureNewDirBrowseButtonClick(Sender:TObject);

begin

WizardForm.DirBrowseButton.Click;

PackFilePathLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text,PackFilePathLabel.Font,PackFilePathLabel.Width-20);

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//创建异型窗口

procedureCreateFrame0;

begin

Frame0:=TForm.Create(nil);;

Frame0.BorderStyle:=bsNone;

CreateFormFromImage(Frame0.Handle,ExpandConstant('{tmp}\bg0.png'));

withTLabel.Create(Frame0)dobegin

Parent:=Frame0;

AutoSize:=False;

Left:=0;

Top:=0;

Width:=Frame0.CLientWidth;

Height:=Frame0.ClientHeight;

end;

Frame0.show;

end;

procedureCreateFrame1;

begin

Frame1:=TForm.Create(nil);;

Frame1.BorderStyle:=bsNone;

CreateFormFromImage(Frame1.Handle,ExpandConstant('{tmp}\dh1.png'));

withTLabel.Create(Frame1)dobegin

Parent:=Frame1;

AutoSize:=False;

Left:=0;

Top:=0;

Cursor:=crhand;

Width:=Frame1.CLientWidth;

Height:=Frame1.ClientHeight;

end;

Frame1.show;

end;

procedureinstall();

var

i,x,y:Integer;

ImgFile:AnsiString;

S:AnsiString;

TransparentColor1,BH:Integer;

begin

CreateFrame0;

CreateFrame1;

timer1:=TTimer.Create(WizardForm);

timer1.Name:='Timer1';

timer1.OnTimer:=@Timer1Timer;

timer1.Enabled:=True;

timer1.Interval:=1;

ClearImgList;

InitFairy(Frame0.Handle,0,100);

S:='';

BH:=GetSystemMetrics(SM_CYBORDER)+GetSystemMetrics(SM_CYDLGFRAME);

x:=-10;//(434-170)/2

y:=-10;

TransparentColor1:=ColorToRGB(clFuchsia);

fori:=0to23do

begin

ImgFile:=format('%.1d',[i+1])+'.png';

ifS<>''thenS:=S+'|';

S:=S+IntToStr(x)+'|'+IntToStr(y)+'|'+IntToStr(255)+'|'+IntToStr(TransparentColor1)+'|'+ExpandConstant('{tmp}\'+ImgFile);

end;

AddImgsToList(S,@PlayListCallback);

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//最小化按钮

procedureMinBtnOnClick(hBtn:HWND);

begin

SendMessage(WizardForm.Handle,WM_SYSCOMMAND,61472,0);

end;

//关闭按钮

procedureCloseBtnOnClick(hBtn:HWND);

begin

WizardForm.Close;

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//单击“取消”直接退出

procedureCancelButtonClick(CurPageID:Integer;varCancel,Confirm:Boolean);

begin

Cancel:=false;

caseNunof

wpInstalling:beginend;

wpFinished:beginend;

else

begin

ifMsgBox('是否退出本棋牌游戏的安装',mbConfirmation,MB_YESNO)=IDYESthen

begin

Confirm:=false;

Cancel:=true;

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//雨杰网络棋牌游戏3500经典版本安装结束，点"完成"之后自动运行的程序

procedureRunApp();

var

RCode:Integer;

begin

ifBtnGetChecked(RunappCheck)=truethen

Exec(ExpandConstant('{app}\GameLauncher.exe'),'','',SW_SHOW,ewNoWait,RCode);

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//跳过界面

functionShouldSkipPage(PageID:Integer):Boolean;

begin

ifPageID=wpSelectComponentsthen//跳过组件安装界面

result:=true;

ifPageID=wpWelcomethen

result:=true;

ifPageID=wpSelectDirthen

result:=true;

end;

functionInitializeSetup:Boolean;

var

ResultStr:String;

ResultCode:Integer;

begin

ifRegQueryStringValue(HKLM,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\雨杰棋牌游戏3500_is1','UninstallString',ResultStr)then

begin

ifmsgbox('检测到旧版本，点击"确定"将自动卸载旧版本，点击"取消"退出安装',mbInformation,MB_OKCANCEL)=idokthen

begin

ResultStr:=RemoveQuotes(ResultStr);

Exec(ResultStr,'/VERYSILENT','',SW_SHOWNORMAL,ewWaitUntilTerminated,ResultCode);

Result:=true;

endelse

begin

Result:=False;

end

endelse

begin

Result:=true;

end

end;

procedureInitializeWizard();

begin

ExtractTmpFiles;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//初始化主界面434,344

WizardForm.BorderStyle:=bsNone;

WizardForm.ClientWidth:=434;

WizardForm.ClientHeight:=384;

WizardForm.InnerNotebook.Hide;

WizardForm.OuterNotebook.Hide;

wizardform.Color:=TransparentColor;

WizardForm.Bevel.Hide;

WizardForm.Center

WizardForm.NextButton.Width:=0;

WizardForm.BackButton.Width:=0;

WizardForm.CancelButton.Width:=0;

WizardForm.OnMouseDown:=@WizardFormMouseDown;

M_top:=WizardForm.Top;

M_left:=WizardForm.Left;

WizardFormImage:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\bg.png'),ScaleX(0),ScaleY(0),434,384,True,True);

io:=5;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//最小化按钮

MinBtn:=BtnCreate(WizardForm.Handle,390,15,11,11,ExpandConstant('{tmp}\MinBtn.png'),3,False);

BtnSetEvent(MinBtn,BtnClickEventID,WrapBtnCallback(@MinBtnOnClick,1));

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//关闭按钮

CloseBtn:=BtnCreate(WizardForm.Handle,410,15,11,11,ExpandConstant('{tmp}\CloseBtn.png'),3,False);

BtnSetEvent(CloseBtn,BtnClickEventID,WrapBtnCallback(@CloseBtnOnClick,1));

NextBtn:=BtnCreate(WizardForm.Handle,100,180,231,56,ExpandConstant('{tmp}\install.png'),3,False);

BtnSetEvent(NextBtn,BtnClickEventID,WrapBtnCallback(@NextBtnClick,1));

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//文件安装路径

PackFilePathTitle:=TLabel.Create(WizardForm);

PackFilePathTitle.AutoSize:=true;

PackFilePathTitle.SetBounds(80+(16),240+(12),ScaleY(98),ScaleX(14));

PackFilePathTitle.Transparent:=True;

PackFilePathTitle.Font.Name:='新宋体'

PackFilePathTitle.Font.Size:=10

PackFilePathTitle.Caption:='安装路径:';

PackFilePathTitle.Parent:=WizardForm;

PackFilePathTitle.OnMouseDown:=@WizardFormMouseDown;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//路径

PackFilePathLabel:=TLabel.Create(WizardForm);

PackFilePathLabel.AutoSize:=true;

PackFilePathLabel.SetBounds(145+(16),240+(12),ScaleY(98),ScaleX(14));

PackFilePathLabel.Transparent:=True;

PackFilePathLabel.Font.Name:='新宋体'

PackFilePathLabel.Font.Size:=10

PackFilePathLabel.Font.Color:=clblue;//4370433;

PackFilePathLabel.Font.Style:=[fsUnderline];

PackFilePathLabel.Caption:=WizardForm.DirEdit.Text;//MinimizePathName(WizardForm.DirEdit.Text,PackFilePathLabel.Font,PackFilePathLabel.Width-20);//WizardForm.DirEdit.Text;

PackFilePathLabel.Parent:=WizardForm;

PackFilePathLabel.OnClick:=@NewDirBrowseButtonClick;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//许可协议

licenseCheck:=BtnCreate(WizardForm.Handle,80+(16),240+(32),ScaleY(16),ScaleY(16),ExpandConstant('{tmp}\CheckBox.png'),1,true);

BtnSetChecked(licenseCheck,true);

BtnSetEvent(licenseCheck,BtnClickEventID,WrapBtnCallback(@licenseCheckCheckClick,1));

licenseLabel:=TLabel.Create(WizardForm);

licenseLabel.AutoSize:=true;

licenseLabel.SetBounds(80+(35),240+(32),ScaleY(98),ScaleX(14));

licenseLabel.Transparent:=True;

licenseLabel.Font.Name:='新宋体'

licenseLabel.Font.Size:=10

licenseLabel.Caption:='已经阅读,并同意';

licenseLabel.Parent:=WizardForm;

licenseLabel.OnMouseDown:=@WizardFormMouseDown;

licenseLabelFile:=TLabel.Create(WizardForm);

licenseLabelFile.AutoSize:=true;

licenseLabelFile.SetBounds(190+(40),240+(32),ScaleY(98),ScaleX(14));

licenseLabelFile.Cursor:=crHand;

licenseLabelFile.Transparent:=True;

licenseLabelFile.Font.Color:=clblue;//4370433;

licenseLabelFile.Font.Name:='新宋体'

licenseLabelFile.Font.Size:=10

licenseLabelFile.Font.Style:=[fsUnderline];

licenseLabelFile.Caption:='许可协议';

licenseLabelFile.Parent:=WizardForm;

licenseLabelFile.OnClick:=@ShowLicense;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//快捷方式选框

//桌面快捷方式

DesktopCheck:=BtnCreate(WizardForm.Handle,80+(16),240+(52),ScaleY(16),ScaleY(16),ExpandConstant('{tmp}\CheckBox.png'),1,true);

BtnSetChecked(DesktopCheck,true);

DesktopLabel:=TLabel.Create(WizardForm);

DesktopLabel.AutoSize:=true;

DesktopLabel.SetBounds(80+(35),240+(52),ScaleY(98),ScaleX(14));

DesktopLabel.Transparent:=True;

//DesktopLabel.Font.Color:=clWhite;

DesktopLabel.Font.Name:='新宋体'

DesktopLabel.Font.Size:=10

DesktopLabel.Caption:='创建桌面快捷方式';

DesktopLabel.Parent:=WizardForm;

DesktopLabel.OnMouseDown:=@WizardFormMouseDown;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//安装完成后是否立即启动程序

RunAppCheck:=BtnCreate(WizardForm.Handle,80+(16),240+(72),ScaleY(16),ScaleY(16),ExpandConstant('{tmp}\CheckBox.png'),1,true);

BtnSetChecked(RunAppCheck,true);

RunAppLabel:=TLabel.Create(WizardForm);

RunAppLabel.AutoSize:=true;

RunAppLabel.SetBounds(80+(35),240+(72),ScaleY(98),ScaleX(14));

RunAppLabel.Transparent:=True;

RunAppLabel.Font.Name:='新宋体'

RunAppLabel.Font.Size:=10

RunAppLabel.Caption:='安装完成后,立即运行程序';

RunAppLabel.Parent:=WizardForm;

RunAppLabel.OnMouseDown:=@WizardFormMouseDown;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

//百分比1211

PrLabel:=TLabel.Create(WizardForm);

PrLabel.Parent:=WizardForm;

PrLabel.Left:=200;

PrLabel.Top:=280;;

PrLabel.Caption:='0%';

PrLabel.Font.Style:=[fsBold];

PrLabel.Font.Color:=$f4e8e8;

PrLabel.Font.Size:=20

PrLabel.Transparent:=True;

PBOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBCallBack(@PBProc,4));

PrLabel.Hide;

Nun:=wpWelcome;

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

procedureCurPageChanged(CurPageID:Integer);

begin

ifCurPageID=wpInstallingthen

begin

Nun:=wpInstalling;

DesktopLabel.Hide;

licenseLabel.Hide;

licenseLabelFile.Hide;

PackFilePathLabel.Hide;

PackFilePathTitle.Hide;

RunAppLabel.Hide;

BtnSetVisibility(MinBtn,False);

BtnSetVisibility(CloseBtn,False);

BtnSetVisibility(NextBtn,False);

BtnSetVisibility(DesktopCheck,False);

BtnSetVisibility(licenseCheck,False);

BtnSetVisibility(RunAppCheck,False);

ImgRelease(WizardFormImage)

WizardFormImage:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\pr.png'),ScaleX(170),ScaleY(303),100,29,True,True);

SetWindowLong(WizardForm.Handle,GWL_EXSTYLE,GetWindowLong(WizardForm.Handle,GWL_EXSTYLE)orWS_EX_LAYERED)

SetLayeredWindowAttributes(WizardForm.Handle,TransparentColor,220,LWA_COLORKEYorLWA_ALPHA)

install;//安装过程中的动画

WizardForm.Left:=M_left;

WizardForm.Top:=M_top;

PrLabel.Show;

end;

ifCurPageID=wpFinishedthen

begin

Frame0.Close;

HideFairy;

UninitFairy;

ImgRelease(WizardFormImage)

PrLabel.Hide;

RunApp;//安装完成后执行程序

WizardForm.NextButton.Click;

//ifMsgBox('恭喜你xxx已经安装完成,是否执行xxx',mbConfirmation,MB_YESNO)=IDYESthen

//begin

//Exec(ExpandConstant('{app}\GameLauncher.exe'),'','',SW_SHOW,ewNoWait,RCode);

//end;

end;

ImgApplyChanges(WizardForm.Handle);//如果没有它就显示不了图像

end;

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

procedureDeinitializeSetup();

begin

//此安装包脚本来自雨杰网络棋牌游戏3500经典版本的安装脚本--www.cnyxwl.com

gdipShutdown;//背景图

HideFairy;

//WizardForm.Hide;

UninitFairy;

ifPBOldProc<>0thenSetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBOldProc);

end;

app

安科网

inno setup yang

changNet

changNet

相关推荐

苹果降低App Store抽成，开发者们能赚更多钱了？

如何保护用户的隐私信息？看看大厂是怎么处理的！

对视频编辑APP 时间轴界面的认识

开发跨设备的鸿蒙（HarmonyOS）App

iPhone装了App却在桌面找不到？教你如何解决

iOS 14正式版来了！这些升级你应该看一下

vue项目打包为APP,静态资源正常显示,但API请求不到数据的操作

iOS 14 提醒事项 App 详解：补齐短板的一个新版本

移动APP开发有哪些框架？

flowable 最好用的流程引擎，最流行的工作流

印度再禁118款中国App吃鸡在列，中国出海企业绝地无法求生

(转)[iOS概念]Apple Pay与IAP的区别

Python 逆向抓取 APP 数据

QNET：APP弱网络测试专家

ios越狱使用AltDeploy签名

node.js +mongdb实现登录功能

这个GitHub 8000星的AI实时换脸项目有APP了

python+appium基本启动配置

Github标星24.1K！一个命令行就可以把网站变成电脑App

区块链钱包系统开发方案，多币种钱包搭建app

changNet