MSCD 实用工具箱2007 Final版inno setup脚本大公开

风一样的男孩 · 发表于 2007-11-3 20:04:50

很喜欢龙友来帝国学习东西，有些东西也是潜水加上自己钻研得来的，好软件好用，但是技术共享才是真正的快乐，同时也希望更多人的制作出好的龙友专用软件，转贴此贴请注明“MSCD龙帝国精品论坛” <a href="http://www.mscode.cc/" target="_blank">http://www.mscode.cc</a>
 tanison's blog：<a href="http://www.tanison.net/" target="_blank">www.tanison.net</a> Inno setup 下载(感谢版主”飞“兄弟的提供)： <a href="ftp://222.185.252.150/download/InnoSetup_5112_WestKing_HA.exe" target="_blank">ftp://222.185.252.150/download/InnoSetup_5112_WestKing_HA.exe</a> 使用迅雷下载。 教程： <a href="http://www.xdowns.com/article/170/Article_938.html" target="_blank">http://www.xdowns.com/article/170/Article_938.html</a> ; MSCD 实用工具箱2007 Final版脚本 ; 安装包制作：MSCD龙帝国技术社区 tanison [Setup] AppName=MSCD 实用工具箱2007 Final版 AppVerName=龙帝国技术论坛的MSCDtoolsV4.0 AppPublisher=MSCD技术管理团队 <a href="http://www.mscode.cc/" target="_blank">http://www.mscode.cc</a> AppPublisherURL=http://www.mscode.cc AppSupportURL=http://www.mscode.cc AppUpdatesURL=http://www.mscode.cc DefaultDirName={pf}\mscdtools DisableProgramGroupPage=yes DirExistsWarning=no AllowNoIcons=yes Uninstallable=yes LicenseFile=D:\mscd\readme.txt InfoBeforeFile=D:\mscd\license.rtf OutputDir=C:\ OutputBaseFilename=MSCD 技术社区使用工具箱V4.0 SetupIconFile=D:\mscd\ins.ico Compression=lzma SolidCompression=yes WizardImageFile=D:\mscd\right.bmp WizardSmallImageFile=D:\mscd\top.bmp TouchDate=2007-07-01 TouchTime=00:00 [Messages] BeveledLabel=MSCD出品精品人品 SetupAppTitle=关于MsCoDe.Cc MaDe By_tanison [Languages] Name: "chinese"; MessagesFile: "compiler[s:4]efault.isl" [Tasks] Name:"desktopicon\common"; Description: "创建开始菜单组";GroupDescription: "【创建程序图标】:" [Types] Name: "full"; Description: "自动安装" Name: "custom"; Description: "选择安装"; Flags: iscustom [Components] Name: "xt"; Description: "系统优化工具"; Types: full Name: "xt\1"; Description: "企业网管系统设置软件"; Types: full Name: "xt\2"; Description: "万能批处理工具"; Types: full Name: "xt\3"; Description: "Autoruns MSCD会员交流版"; Types: full Name: "xt\4"; Description: "DIY优化工具"; Types: full Name: "xt\5"; Description: "系统服务一键通"; Types: full Name: "xt\6"; Description: "用户自动登陆器"; Types: full Name: "xt\7"; Description: "输入法调整工具"; Types: full Name: "xt\8"; Description: "关闭系统文件保护"; Types: full Name: "bf"; Description: "备份卸载工具"; Types: full Name: "bf\1"; Description: "MSCD个人资料转移器"; Types: full Name: "bf\2"; Description: "上网账号密码保存到D盘"; Types: full Name: "bf\3"; Description: "MSCD快速备份电脑网络信息"; Types: full Name: "bf\4"; Description: "MSCD快速还原电脑网络信息"; Types: full Name: "bf\5"; Description: "DriverGenius驱动备份工具 "; Types: full Name: "bf\6"; Description: "最小的卸载软件"; Types: full Name: "sd"; Description: "杀毒防护工具 "; Types: full Name: "sd\1"; Description: "Hosts文件管理工具1.0 "; Types: full Name: "sd\2"; Description: "IE综合修复MSCD会员专用 "; Types: full Name: "sd\3"; Description: "木马端口封杀 "; Types: full Name: "sd\4"; Description: "MSCD系统漏洞扫描工具 "; Types: full Name: "sd\5"; Description: "Wsyscheck0618中文版 "; Types: full Name: "yj"; Description: "硬件测试工具 "; Types: full Name: "yj\1"; Description: "硬盘测试工具 "; Types: full Name: "yj\2"; Description: "DisplayX液晶测试 "; Types: full Name: "yj\3"; Description: "CDSpeed光驱测试工具 "; Types: full Name: "yj\4"; Description: "mscd cpu-z 1.40 "; Types: full Name: "yj\5"; Description: "硬件精灵（未知硬件检测） "; Types: full Name: "yj\6"; Description: "内存检测工具 "; Types: full Name: "yj\7"; Description: "测试计算机CPU稳定性 "; Types: full Name: "yj\8"; Description: "内存回收专家 "; Types: full Name: "qt"; Description: "其它实用工具"; Types: full Name: "qt\1"; Description: "更改分辨率程序"; Types: full Name: "qt\2"; Description: "IE密码查看器"; Types: full Name: "qt\3"; Description: "MSCD IP修改器"; Types: full Name: "qt\4"; Description: "MSCD 虚拟光驱"; Types: full Name: "qt\5"; Description: "

rassi ONES光盘刻录"; Types: full Name: "qt\6"; Description: "WinMD512文件效验"; Types: full Name: "qt\7"; Description: "不用安装的抓图软件"; Types: full Name: "qt\8"; Description: "霏凡迷你农历"; Types: full Name: "qt\9"; Description: "简体转繁体工具"; Types: full Name: "qt\10"; Description: "注册表解锁工具"; Types: full Name: "qt\11"; Description: "清除收藏夹重复的链接"; Types: full Name: "qt\12"; Description: "定时关机软件"; Types: full [Files] Source: "D:\mscd3.0\系统优化工具\System Optimize Tools V1.0.1.exe"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\1 Source: "D:\mscd3.0\系统优化工具\万能批处理工具.EXE"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\2 Source: "D:\mscd3.0\系统优化工具\Autoruns MSCD会员交流版.exe"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\3 Source: "D:\mscd3.0\系统优化工具\DIY优化工具.exe"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\4 Source: "D:\mscd3.0\系统优化工具\系统服务一键通.EXE"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\5 Source: "D:\mscd3.0\系统优化工具\用户自动登陆器.exe"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\6 Source: "D:\mscd3.0\系统优化工具\输入法调整工具.EXE"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\7 Source: "D:\mscd3.0\系统优化工具\2000XP2003关闭系统文件保护.EXE"; DestDir: "{app}\系统优化工具"; Flags: ignoreversion; Components:xt\8 Source: "D:\mscd3.0\备份卸载工具\DataBackupV091.exe"; DestDir: "{app}\备份卸载工具"; Flags: ignoreversion; Components:bf\1 Source: "D:\mscd3.0\备份卸载工具\上网账号密码保存到D盘.exe"; DestDir: "{app}\备份卸载工具"; Flags: ignoreversion; Components:bf\2 Source: "D:\mscd3.0\备份卸载工具\MSCD快速备份电脑网络信息.EXE"; DestDir: "{app}\备份卸载工具"; Flags: ignoreversion; Components:bf\3 Source: "D:\mscd3.0\备份卸载工具\MSCD快速还原电脑网络信息.EXE"; DestDir: "{app}\备份卸载工具"; Flags: ignoreversion; Components:bf\4 Source: "D:\mscd3.0\备份卸载工具\DriverGenius(驱动备份) v5.0.EXE"; DestDir: "{app}\备份卸载工具"; Flags: ignoreversion; Components:bf\5 Source: "D:\mscd3.0\备份卸载工具\最小的卸载绿色软件.exe"; DestDir: "{app}\备份卸载工具"; Flags: ignoreversion; Components:bf\6 Source: "D:\mscd3.0\杀毒防护工具\Hosts文件管理工具1.0.exe"; DestDir: "{app}\杀毒防护工具"; Flags: ignoreversion; Components:sd\1 Source: "D:\mscd3.0\杀毒防护工具\IE综合修复MSCD会员专用.exe"; DestDir: "{app}\杀毒防护工具"; Flags: ignoreversion; Components:sd\2 Source: "D:\mscd3.0\杀毒防护工具\sysupdate.exe"; DestDir: "{app}\杀毒防护工具"; Flags: ignoreversion; Components:sd\4 Source: "D:\mscd3.0\杀毒防护工具\木马端口封杀.exe"; DestDir: "{app}\杀毒防护工具"; Flags: ignoreversion; Components:sd\3 Source: "D:\mscd3.0\杀毒防护工具\Wsyscheck0618中文版\*"; DestDir: "{app}\杀毒防护工具\Wsyscheck0618中文版"; Flags: ignoreversion; Components:sd\5 Source: "D:\mscd3.0\硬件测试工具\HDTune.exe"; DestDir: "{app}\硬件测试工具"; Flags: ignoreversion; Components:yj\1 Source: "D:\mscd3.0\硬件测试工具\DisplayX液晶测试.exe"; DestDir: "{app}\硬件测试工具"; Flags: ignoreversion; Components:yj\2 Source: "D:\mscd3.0\硬件测试工具\CDSpeed光驱测试工具.exe"; DestDir: "{app}\硬件测试工具"; Flags: ignoreversion; Components:yj\3 Source: "D:\mscd3.0\硬件测试工具\mscd cpu-z 1.40\*"; DestDir: "{app}\硬件测试工具\mscd cpu-z 1.40"; Flags: ignoreversion; Components:yj\4 Source: "D:\mscd3.0\硬件测试工具\未知硬件精灵.exe"; DestDir: "{app}\硬件测试工具"; Flags: ignoreversion; Components:yj\5 Source: "D:\mscd3.0\硬件测试工具\MemTest.exe"; DestDir: "{app}\硬件测试工具"; Flags: ignoreversion; Components:yj\6 Source: "D:\mscd3.0\硬件测试工具\SP2004.exe"; DestDir: "{app}\硬件测试工具"; Flags: ignoreversion; Components:yj\7 Source: "D:\mscd3.0\硬件测试工具\内存回收专家.exe"; DestDir: "{app}\硬件测试工具"; Flags: ignoreversion; Components:yj\8 Source: "D:\mscd3.0\其它实用工具\ChangeDisplay.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\1 Source: "D:\mscd3.0\其它实用工具\IE PassView1.05.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\2 Source: "D:\mscd3.0\其它实用工具\IP修改器.EXE"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\3 Source: "D:\mscd3.0\其它实用工具\MSCD_Virtual_Drive.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\4 Source: "D:\mscd3.0\其它实用工具\Prassi ONES.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\5 Source: "D:\mscd3.0\其它实用工具\WinMD512.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\6 Source: "D:\mscd3.0\其它实用工具\不用安装的抓图软件.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\7 Source: "D:\mscd3.0\其它实用工具\霏凡迷你农历.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\8 Source: "D:\mscd3.0\其它实用工具\简体转繁体工具.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\9 Source: "D:\mscd3.0\其它实用工具\注册表解锁工具.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\10 Source: "D:\mscd3.0\其它实用工具\faview.exe"; DestDir: "{app}\其它实用工具"; Flags: ignoreversion; Components:qt\11 Source: "D:\mscd3.0\其它实用工具\定时关机\*"; DestDir: "{app}\其它实用工具\定时关机"; Flags: ignoreversion; Components:qt\12 Source: "D:\mscd\flash.BMP"; DestDir: "{tmp}"; Flags: dontcopy Source: "D:\mscd\ico\dream.mid"; DestDir: "{tmp}"; Flags: dontcopy ; NOTE: Don't use "Flags: ignoreversion" on any shared system files ; 注意: 不要在任何共享系统文件中使用“Flags: ignoreversion” [Icons] Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\企业网管系统设置工具"; Filename: "{app}\系统优化工具\System Optimize Tools V1.0.1.exe"; Components:xt\1 Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\万能批处理工具"; Filename: "{app}\系统优化工具\万能批处理工具.EXE"; Components:xt\2 Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\Autoruns MSCD会员交流版"; Filename: "{app}\系统优化工具\Autoruns MSCD会员交流版.EXE"; Components:xt\3 Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\DIY优化工具"; Filename: "{app}\系统优化工具\DIY优化工具.EXE"; Components:xt\4 Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\系统服务一键通"; Filename: "{app}\系统优化工具\系统服务一键通.EXE"; Components:xt\5 Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\用户自动登陆器"; Filename: "{app}\系统优化工具\用户自动登陆器.EXE"; Components:xt\6 Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\输入法调整工具"; Filename: "{app}\系统优化工具\输入法调整工具.EXE"; Components:xt\7 Name: "{commonprograms}\MSCDTOOLS4.0\系统优化工具\2000XP2003关闭系统文件保护"; Filename: "{app}\系统优化工具\2000XP2003关闭系统文件保护.EXE"; Components:xt\8 Name: "{commonprograms}\MSCDTOOLS4.0\备份卸载工具\MSCD个人资料转移器"; Filename: "{app}\备份卸载工具\DataBackupV091.exe"; Components:bf\1 Name: "{commonprograms}\MSCDTOOLS4.0\备份卸载工具\上网账号密码保存到D盘"; Filename: "{app}\备份卸载工具\上网账号密码保存到D盘.exe"; Components:bf\2 Name: "{commonprograms}\MSCDTOOLS4.0\备份卸载工具\MSCD快速备份电脑网络信息"; Filename: "{app}\备份卸载工具\MSCD快速备份电脑网络信息.EXE"; Components:bf\3 Name: "{commonprograms}\MSCDTOOLS4.0\备份卸载工具\MSCD快速还原电脑网络信息.EXE"; Filename: "{app}\备份卸载工具\MSCD快速还原电脑网络信息.EXE"; Components:bf\4 Name: "{commonprograms}\MSCDTOOLS4.0\备份卸载工具\DriverGenius驱动备份工具"; Filename: "{app}\备份卸载工具\DriverGenius(驱动备份) v5.0.EXE"; Components:bf\5 Name: "{commonprograms}\MSCDTOOLS4.0\备份卸载工具\最小的卸载软件"; Filename: "{app}\备份卸载工具\最小的卸载绿色软件.exe"; Components:xt\6 Name: "{commonprograms}\MSCDTOOLS4.0\杀毒防护工具\Hosts文件管理工具1.0"; Filename: "{app}\杀毒防护工具\Hosts文件管理工具1.0.exe"; Components:sd\1 Name: "{commonprograms}\MSCDTOOLS4.0\杀毒防护工具\IE综合修复MSCD会员专用"; Filename: "{app}\杀毒防护工具\IE综合修复MSCD会员专用.exe"; Components:sd\2 Name: "{commonprograms}\MSCDTOOLS4.0\杀毒防护工具\MSCD系统漏洞扫描工具"; Filename: "{app}\杀毒防护工具\sysupdate.exe"; Components:sd\4 Name: "{commonprograms}\MSCDTOOLS4.0\杀毒防护工具\木马端口封杀工具"; Filename: "{app}\杀毒防护工具\木马端口封杀.exe"; Components:sd\3 Name: "{commonprograms}\MSCDTOOLS4.0\杀毒防护工具\Wsyscheck0618中文版"; Filename: "{app}\杀毒防护工具\Wsyscheck0618中文版\Wsyscheck.exe"; Components:sd\5 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\HDTune硬盘健康检测"; Filename: "{app}\硬件测试工具\HDTune.exe"; Components:yj\1 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\DisplayX液晶测试"; Filename: "{app}\硬件测试工具\DisplayX液晶测试.exe"; Components:yj\2 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\CDSpeed光驱测试工具"; Filename: "{app}\硬件测试工具\CDSpeed光驱测试工具.exe"; Components:yj\3 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\mscd cpu-z 1.40"; Filename: "{app}\硬件测试工具\\mscd cpu-z 1.40\cpuz.exe"; Components:yj\4 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\未知硬件精灵"; Filename: "{app}\硬件测试工具\未知硬件精灵.exe"; Components:yj\5 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\内存检测工具"; Filename: "{app}\硬件测试工具\MemTest.exe"; Components:yj\6 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\测试计算机CPU稳定性"; Filename: "{app}\硬件测试工具\SP2004.exe"; Components:yj\7 Name: "{commonprograms}\MSCDTOOLS4.0\硬件测试工具\内存回收专家"; Filename: "{app}\硬件测试工具\内存回收专家.exe"; Components:yj\8 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\更改分辨率程序"; Filename: "{app}\其它实用工具\ChangeDisplay.exe"; Components:qt\1 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\IE密码查看器"; Filename: "{app}\其它实用工具\IE PassView1.05.exe"; Components:qt\2 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\MSCD IP修改器"; Filename: "{app}\其它实用工具\IP修改器.EXE"; Components:qt\3 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\MSCD 虚拟光驱"; Filename: "{app}\其它实用工具\MSCD_Virtual_Drive.exe"; Components:qt\4 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\Prassi ONES光盘刻录"; Filename: "{app}\其它实用工具\Prassi ONES.exe"; Components:qt\5 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\WinMD512文件效验"; Filename: "{app}\其它实用工具\WinMD512.exe"; Components:qt\6 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\不用安装的抓图软件"; Filename: "{app}\其它实用工具\不用安装的抓图软件.exe"; Components:qt\7 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\霏凡迷你农历"; Filename: "{app}\其它实用工具\霏凡迷你农历.exe"; Components:qt\8 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\简体转繁体工具"; Filename: "{app}\其它实用工具\简体转繁体工具.exe"; Components:qt\9 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\注册表解锁工具"; Filename: "{app}\其它实用工具\注册表解锁工具.exe"; Components:qt\10 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\清除收藏夹重复的链接"; Filename: "{app}\其它实用工具\faview.exe"; Components:qt\11 Name: "{commonprograms}\MSCDTOOLS4.0\其它实用工具\定时关机软件"; Filename: "{app}\其它实用工具\定时关机\定时关机.exe"; Components:qt\12 [Code] function InitializeSetup(): Boolean; begin Result := MsgBox('感谢您使用MSCD龙帝国技术论坛管理团队的DIYOEM软件' #13#13 '如果您愿意使用请选择YES', mbConfirmation, MB_YESNO) = idYes; if Result = False then MsgBox('非常感谢您的支持' #13#13 '希望有时间常来论坛看看<a href="http://www.mscde.cc/" target="_blank">http://www.mscde.cc</a>', mbInformation, MB_OK); end; procedure AboutButtonOnClick(Sender: TObject); begin MsgBox('用心打造精品用心透视人品'#10#13' '#10#13'引领技术潮流精彩无处不在 '#10#13' '#10#13'MSCD龙帝国技术社区--<a href="http://www.mscode.cc/" target="_blank">HttP://WwW.MsCoDe.Cc</a>--', mbInformation, mb_Ok); end; procedure URLLabelOnClick(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://www.mscode.cc', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end; var FinishInstall: Boolean; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssPostInstall then FinishInstall := True end; procedure DeinitializeSetup(); var ResultCode: Integer; begin if FinishInstall = True then ShellExec('open', 'http://www.mscode.cc', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode) end; function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer; external 'mciSendStringA@winmm.dll stdcall'; procedure InitializeWizard(); var AboutButton, CancelButton: TButton; LabelDate:Tlabel; SplashImage: TBitmapImage; SplashForm: TForm; SplashFileName: String; I : Integer; URLLabel: TNewStaticText; CancelButton: TButton; begin CancelButton := WizardForm.CancelButton; WizardForm.beveledlabel.enabled:=true; WizardForm.beveledlabel.Font.Color:=$0000FF; AboutButton := TButton.Create(WizardForm); AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width; AboutButton.Top := CancelButton.Top; AboutButton.Width := CancelButton.Width; AboutButton.Height := CancelButton.Height; AboutButton.Caption := 'about me'; AboutButton.OnClick := @AboutButtonOnClick; AboutButton.Parent := WizardForm; WizardForm.WELCOMELABEL1.Font.Color:= clRed; WizardForm.WELCOMELABEL1.Font.Name:= '宋体'; WizardForm.WELCOMELABEL1.Font.Size:= 11; CancelButton := WizardForm.CancelButton; ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\dream.mid'))); mciSendString(ExpandConstant('play {tmp}\dream.mid'),0,0,0); URLLabel := TNewStaticText.Create(WizardForm); URLLabel.Caption := '【MSCD龙帝国技术论坛】'; URLLabel.Cursor := crHand; URLLabel.OnClick := @URLLabelOnClick; URLLabel.Parent := WizardForm; URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline]; URLLabel.Font.Color := clBlue; URLLabel.OnClick := @URLLabelOnClick; URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2; URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20); URLLabel.Parent := WizardForm; SplashFileName := ExpandConstant('{tmp}\flash.bmp'); ExtractTemporaryFile(ExtractFileName(SplashFileName)); WizardForm.WelcomeLabel2.Height:=100 WizardForm.PAGENAMELABEL.Font.Color:= clblue; WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clblue; WizardForm.WELCOMELABEL1.Font.Color:= clBlack; WizardForm.WELCOMELABEL2.Font.Color:= clOlive; LabelDate:=Tlabel.Create(WizardForm) LabelDate.Caption:='光盘制作联盟 S&R&S官方站 ASRTools官方站 '#10#13'系统封装技术探讨精品软件交流反病毒基地'#10#13' '#10#13'本软件的最终版权归原作者和相关公司所有'#10#13' '#10#13'更多精品请关注我们论坛'#10#13' '#10#13'MSCD龙帝国技术论坛 <a href="http://www.mscode.cc/" target="_blank">HttP://WwW.MsCoDe.Cc</a>'; LabelDate.Left:=WizardForm.WelcomeLabel2.Left; LabelDate.Top:= WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height+10; LabelDate.Parent := WizardForm.WelcomePage; SplashForm := TForm.create(nil); with SplashForm do begin BorderStyle := bsNone; Position := poScreenCenter; ClientWidth := 354; ClientHeight := 180; end; SplashImage := TBitmapImage.Create(SplashForm); with SplashImage do begin Bitmap.LoadFromFile(SplashFileName); Stretch := true; Align := alClient; Parent := SplashForm; end; with SplashForm do begin Show; for I := 1 to 2 do begin Repaint; Sleep(1000); end; Close; Free; end; end;

帐号		自动登录	找回密码
密码			立即注册