|
楼主 |
发表于 2010-1-7 05:36:03
|
显示全部楼层
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;编译头文件
Opt ("GUICloseOnESC",0) ;脚本运行时按ESC不退出
FileInstall ("back.jpg",@TempDir & "\back.jpg",1)
FileInstall ("config.xml",@TempDir & "\config.xml",1)
FileInstall ("KuGoo.xml",@TempDir & "\KuGoo.xml",1)
FileInstall ("show.IE8.icon.bat",@TempDir & "\show.IE8.icon.bat",1)
FileInstall ("show.IE8.icon.reg",@TempDir & "\show.IE8.icon.reg",1)
FileInstall ("酷狗音乐文件夹.lnk",@TempDir & "\酷狗音乐文件夹.lnk",1)
FileInstall ("酷我音乐文件夹.lnk",@TempDir & "\酷我音乐文件夹.lnk",1)
;把附加文件编译进脚本
Dim $os , $int
$os=RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
If 0<>StringInStr ($os,"Windows XP") Then
$os="Windows XP"
ElseIf 0<>StringInStr ($os,"Windows 7") Then
$os="Windows 7"
ElseIf 0<>StringInStr ($os,"Windows Vista") Then
$os="Windows Vista"
Else
$flag=MsgBox ("36","软件安装提示:","无法检测到您正在使用的系统版本,可能会出现未知错误,是否继续?")
If $flag=7 then
Exit
EndIf
EndIf
;判断操作系统
Const $n=12 , $b=4
Dim $installpatch , $softname[$n] , $soft[$n] , $radio[$b]
$softname[1]="FLASH PLAYER"
$softname[2]="WinRAR 3.91 beta 1"
$softname[3]="腾讯QQ2009 SP5"
$softname[4]="QQGame2009游戏大厅"
$softname[5]="酷狗音乐2010"
$softname[6]="酷我音乐盒 2009"
$softname[7]="PPS影音"
$softname[8]="风行 2.0.0.29 Beta"
$softname[9]="暴风影音2009"
$softname[10]="搜狗拼音输入法 4.3正式版"
$softname[11]="迅雷 5"
;定义变量 软件安装目录 数量
GUICreate ("街头秀装机程序",600,500);创建主程序界面
GUICtrlCreatePic ("back.jpg",0,0,600,100);设置LOGO图片
$group1=GUICtrlCreateGroup ("软件选择",10,110,580,180)
;为复选框创建一个控件组
$soft[1]=GUICtrlCreateCheckbox ($softname[1],15,125,160,20)
$soft[2]=GUICtrlCreateCheckbox ($softname[2],205,125,160,20)
$soft[3]=GUICtrlCreateCheckbox ($softname[3],395,125,160,20)
$soft[4]=GUICtrlCreateCheckbox ($softname[4],15,145,160,20)
$soft[5]=GUICtrlCreateCheckbox ($softname[5],205,145,160,20)
$soft[6]=GUICtrlCreateCheckbox ($softname[6],395,145,160,20)
$soft[7]=GUICtrlCreateCheckbox ($softname[7],15,165,160,20)
$soft[8]=GUICtrlCreateCheckbox ($softname[8],205,165,160,20)
$soft[9]=GUICtrlCreateCheckbox ($softname[9],395,165,160,20)
$soft[10]=GUICtrlCreateCheckbox ($softname[10],15,185,160,20)
$soft[11]=GUICtrlCreateCheckbox ($softname[11],205,185,160,20)
For $i = 0 To $n - 1
GUICtrlSetState ($soft[$i],$GUI_DISABLE)
Next |
|