AutoIt GUI 進階班 Aero Install 一分鐘做出漂亮的安裝畫面

rictirse

AutoIt GUI 進階班 Aero Install

這個GUI 噹噹已經刻好，只需要使用ini 稍微設定一下就可以做出簡單又漂亮的自動安裝介面

請看DEMO 影片



code需要者自取
需要搭配 圖片包與ini 載點

1. #include <GUIConstantsEx.au3>
   
2. #include <WindowsConstants.au3>
   
3. #include <sendmessage.au3>
   
4. #include <GuiEdit.au3>
   
5. #Include <Date.au3>
   
6. #include <GDIPlus.au3>
   
7. #Region
   
8. #AutoIt3Wrapper_icon=C:NewDang.ico;; 設定 icon 路徑
   
9. #AutoIt3Wrapper_Compression=5 ;; 壓縮等級
   
10. #AutoIt3Wrapper_Res_Comment=Aero Install
    
11. #AutoIt3Wrapper_Res_Description=Aero Install
    
12. #AutoIt3Wrapper_Res_Fileversion=2.3.0.0 ;; 版本代號
    
13. #AutoIt3Wrapper_Res_LegalCopyright=噹噹 ;; 作者
    
14. #EndRegion
    
15. 
    
16. Global $ini = @ScriptDir&"install.ini"
    
17. 
    
18. If IniRead ($ini, "install", "IconHide", 0) = 1 Then AutoItSetOption ( "TrayIconHide", 1)
    
19. ;－－－－－－－－－－－（隨機選圖）－－－－－－－－－－－
    
20. Dim $i = 0, $file[100];;; 預設圖片最大數量 100
    
    
21. Dim $ImgRoute = @ScriptDir&IniRead ($ini, "install", "ImgRoute","")
    
22. 
    
23. FileDelete (@ScriptDir&"imgcopypic.bmp");; 刪除暫存圖片
    
24. $search = FileFindFirstFile($ImgRoute&"*.BMP")
    
25. 
    
26. If $search = -1 Then
    
27.   MsgBox(0, "錯誤", "找不到圖片")
    
28.   Exit
    
29. EndIf
    
30. 
    
31. While 1
    
32.   $i += 1
    
33.   $file[$i] = FileFindNextFile($search)
    
34.   If @error Then ExitLoop
    
35.   $file[0] = $i
    
36. WEnd
    
37. FileClose($search)
    
38. 
    
39. $numimg = Random ( 1, $file[0], 1)
    
40. Global $img = $ImgRoute&$file[$numimg]
    
41. ;~ MsgBox ( 0, $numimg, $img);顯示抽到哪張圖
    
42. ;－－－－－－－－－－－（隨機選圖）－－－－－－－－－－－
    
43. Global $FormName = IniRead ($ini, "install", "FormName","")
    
44. Global $exeName =  IniRead ($ini, "install", "exeName","")
    
45. Global $FileName =  IniRead ($ini, "install", "FileName","")
    
46. Global $DirRoute =  IniRead ($ini, "install", "DirRoute","")
    
47. Global $LabelDay =  IniRead ($ini, "install", "LabelDay","")
    
48. Global $Design = IniRead ($ini, "install", "Design","")
    
49. 
    
50. ; 0 = 自動判斷OS 如果是 W7 會隨機選 MOD 1 or 2
    
51. ; 1 = 強制W7 MOD_1
    
52. ; 2 = 強制W7 MOD_2
    
53. ; 3 = 強制XP MOD ;預設=2 非 0或 1 其餘返回值皆為2
    
54. Global $MOD = IniRead ($ini, "install", "MOD", 3)
    
55. 
    
56. 
    
57. If $MOD = 0 Then
    
58.   If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
    
    
59.     If Random() < 0.5 Then
    
60.       Global $SHOW = 1;W7 MOD_1
    
61.     Else
    
62.       Global $SHOW = 2;W7 MOD_2
    
63.     Endif
    
64.   Else
    
65.     Global $SHOW = 3;XP MOD
    
66.   EndIf
    
67. ElseIf $MOD = 1 Then
    
68.   Global $SHOW = 1;W7 MOD_1
    
69. ElseIf $MOD = 2 Then
    
70.   Global $SHOW = 2;W7 MOD_2
    
71. Else
    
72.   Global $SHOW = 3;XP MOD
    
73. EndIf
    
74. Error()
    
75. 
    
76. If $SHOW = 1 Then ;; WINDOWS 7 MOD_1
    
77.   Dim $MyArea[4] = [9999,9999,9999,9999]
    
78.   $_alpha=_WinAPI_DwmGetColorizationColor( )
    
79.   $CtrlBkColor="0X"&Hex(BitAND($_alpha,0xFFFFFF),6)
    
80.   $_alpha="0X"&Hex($_alpha)
    
81.   _GDIPlus_Startup()
    
82.   $hImage1 = _GDIPlus_ImageLoadFromFile($img)
    
83.   Dim $picSize_wide = _GDIPlus_ImageGetWidth($hImage1)
    
84.   Dim $picSize_height = _GDIPlus_ImageGetHeight($hImage1)
    
85.   Dim $alpha = IniRead ($ini, "install", "alpha", 255)
    
86.   If $alpha = "" Then $alpha = 255
    
87.   If $alpha > 255 Or $alpha < 0 Then $alpha = 255 ;設定alpha值 alpha = 0 全透明, alpha = 255 不透明, 預設255
    
88.   If  $picSize_wide < 758 Or  $picSize_height < 426 Then
    
89.     MsgBox ( 16,"ERROR","圖片大小不得小於 758x426")
    
90.     Exit
    
91.   EndIf
    
92.   $hBitmap1 = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage1)
    
93.   $hImage = _GDIPlus_BitmapCreateFromHBITMAP ($hBitmap1)
    
94.   $hHBITMAP = _WinAPI_CreateBitmap($picSize_wide, $picSize_height, 1, 32)
    
    
95.   $hCDC = _WinAPI_CreateCompatibleDC(0)
    
96.   _WinAPI_SelectObject($hCDC, $hHBITMAP)
    
97.   $hGraphic = _GDIPlus_GraphicsCreateFromHDC($hCDC)
    
98.   _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, $picSize_wide, $picSize_height)
    
99.   _WinAPI_DeleteObject($hImage)
    
100.   _GDIPlus_GraphicsDispose($hGraphic)
     
101.   _WinAPI_DeleteDC($hCDC)
     
102. 
     
103.   $form1 = GUICreate($FormName,$picSize_wide, $picSize_height, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
     
104. 
     
105.   _WinAPI_UpdateLayeredWindowEx($form1, $hHBITMAP, $alpha, 1)
     
106.   _GDIPlus_ImageDispose($hImage1)
     
107.   _WinAPI_DeleteObject($hBitmap1)
     
108.   _GDIPlus_Shutdown()
     
109. 
     
110.   WinSetOnTop ($form1,"",1)
     
111.   GUISetState()
     
112. 
     
113.   $pos1=WinGetPos($form1,"")
     
114.   $GUI = GUICreate ( "", $picSize_wide, $picSize_height, $pos1[0], $pos1[1],$DS_SETFOREGROUND,$WS_EX_TOOLWINDOW)
     
115. 
     
116.   _Vista_EnableBlurBehind($GUI, $MyArea)
     
117. 
     
118.   $GUI_Y = 58;按鈕及文字高度
     
119. 
     
120.   $Button_2 = GUICtrlCreateButton ( "Install", 21, $picSize_height-$GUI_Y, 80);安裝按鈕
     
121.     GUICtrlSetBkColor ( $Button_2, 0x00000)
     
122.     GUICtrlSetColor ( $Button_2, 0xFFFFFF)
     
123.     GUICtrlSetFont ( $Button_2, 10, 800)
     
124.   $Button_1 = GUICtrlCreateButton ( "...", ($picSize_wide*0.17875)-33, $picSize_height-$GUI_Y, 25, 24);選擇安裝目錄按鈕
     
125.     GUICtrlSetBkColor ( $Button_1, 0x00000)
     
126.     GUICtrlSetColor ( $Button_1, 0xFFFFFF)
     
127.     GUICtrlSetFont ( $Button_1, 10, 800)
     
128.   $Input = GUICtrlCreateInput ( @ProgramFilesDir&$DirRoute, $picSize_wide*0.17875, $picSize_height-$GUI_Y, $picSize_wide*0.4975, 24);安裝路徑文字框
     
     
129.     GUICtrlSetBkColor ( $Input, 0x00000)
     
130.     GUICtrlSetColor ( $Input, 0x1260FF)
     
131.     GUICtrlSetFont ( $Input, 10, 700)
     
132.   $Button_3 = GUICtrlCreateButton ( "Exit", $picSize_wide*0.6875, $picSize_height-$GUI_Y, 80);離開按鈕
     
133.     GUICtrlSetBkColor ( $Button_3, 0x00000)
     
134.     GUICtrlSetColor ( $Button_3, 0xFFFFFF)
     
135.     GUICtrlSetFont ( $Button_3, 10, 800)
     
136.   $Button_4 = GUICtrlCreateButton ( "執行程式", 21, $picSize_height-$GUI_Y, 110);離開並執行程式按鈕
     
137.     GUICtrlSetBkColor ( $Button_4, 0x00000)
     
138.     GUICtrlSetColor ( $Button_4, 0xFFFFFF)
     
139.     GUICtrlSetFont ( $Button_4, 10, 800)
     
140.     GUICtrlSetState  ($Button_4, $GUI_HIDE);選擇安裝路徑按鈕
     
141.   $Text = GUICtrlCreateLabel  ( $FormName, 21, $picSize_height-$GUI_Y-85, $picSize_wide-40, 75);安裝說明及文字
     
142.     GUICtrlSetColor ( $Text, 0x5DCA27)
     
143.     GUICtrlSetBkColor ( $Text, 0x00000)
     
144.     GUICtrlSetFont ( $Text, 45, 800)
     
145.   $Label = GUICtrlCreateLabel  ( "", 21, 10, $picSize_wide-40,  $picSize_height-$GUI_Y-85);安裝說明及文字
     
146.     GUICtrlSetColor ( $Label, 0x1260FF)
     
147.     GUICtrlSetBkColor ( $Label, 0x00000)
     
148.     GUICtrlSetFont ( $Label, 20, 800)
     
149.   $Day = GUICtrlCreateLabel  ( $LabelDay&" By "&$design, $picSize_wide*0.8, $picSize_height-$GUI_Y+2, 500);時間
     
150.     GUICtrlSetBkColor ( $Day, 0x00000)
     
151.     GUICtrlSetColor ( $Day, 0x1260FF)
     
152.     GUICtrlSetFont ( $Day, 12, 800)
     
153.   WinSetOnTop ($GUI,"",1)
     
154.   GUISetState()
     
     
155. 
     
156.   GUIRegisterMsg($WM_NCHITTEST, 'WM_NCHITTEST')
     
157.   GUIRegisterMsg($WM_MOVE, "WM_MOVE")
     
158.   GUIRegisterMsg($WM_SIZE, "WM_MOVE")
     
159. ElseIf $SHOW = 2 Then ;;; WINDOWS 7 MOD_2
     
160.   Dim $Side[2] = [ "11", "11"];(寬)線寬 ; (高)線
     
161. 
     
162.   FileCopy ($img,@ScriptDir&"imgcopypic.bmp")
     
163.   _GDIPlus_Startup()
     
164.   $hImage1 = _GDIPlus_ImageLoadFromFile($img)
     
165.   Dim $picSize_wide = _GDIPlus_ImageGetWidth($hImage1)
     
166.   Dim $picSize_height = _GDIPlus_ImageGetHeight($hImage1)
     
167.   _GDIPlus_Shutdown()
     
168. 
     
169.   Dim $Proportionality = $picSize_wide/$picSize_height;求出圖片比例
     
170.   Dim $Size[2] = [$picSize_wide+($Side[0]*2)+28, ($picSize_wide/$Proportionality)+114+20+($Side[1]*2)];; 計算gui 寬高
     
171.   Dim $frame = IniRead ($ini, "install", "Frame",10);; 載入 白邊 大小
     
172.   Dim $MyArea[4] = [ 22+$frame, 22+$frame, $frame, 129+$frame];; 定義Aero 邊界
     
173. 
     
174.   $GUI = GUICreate ( "", $Size[0], $Size[1], Default, Default, $DS_SETFOREGROUND)
     
175.   _Vista_EnableBlurBehind ($GUI, $MyArea)
     
176.   $GUI_Y = 58;按鈕及文字高度
     
177. 
     
178.   $Button_2 = GUICtrlCreateButton ( "Install", 21, $Size[1]-$GUI_Y, 80);安裝按鈕
     
179.     GUICtrlSetBkColor ( $Button_2, 0x00000)
     
180.     GUICtrlSetColor ( $Button_2, 0xFFFFFF)
     
181.     GUICtrlSetFont ( $Button_2, 10, 800)
     
182.   $Button_1 = GUICtrlCreateButton ( "...", ($Size[0]*0.17875)-33, $Size[1]-$GUI_Y, 25, 24);選擇安裝目錄按鈕
     
183.     GUICtrlSetBkColor ( $Button_1, 0x00000)
     
184.     GUICtrlSetColor ( $Button_1, 0xFFFFFF)
     
     
185.     GUICtrlSetFont ( $Button_1, 10, 800)
     
186.   $Input = GUICtrlCreateInput ( @ProgramFilesDir&$DirRoute, $Size[0]*0.17875, $Size[1]-$GUI_Y, $Size[0]*0.4975, 24);安裝路徑文字框
     
187.     GUICtrlSetBkColor ( $Input, 0x00000)
     
188.     GUICtrlSetColor ( $Input, 0x1260FF)
     
189.     GUICtrlSetFont ( $Input, 10, 700)
     
190.   $Button_3 = GUICtrlCreateButton ( "Exit", $Size[0]*0.6875, $Size[1]-$GUI_Y, 80);離開按鈕
     
191.     GUICtrlSetBkColor ( $Button_3, 0x00000)
     
192.     GUICtrlSetColor ( $Button_3, 0xFFFFFF)
     
193.     GUICtrlSetFont ( $Button_3, 10, 800)
     
194.   $Button_4 = GUICtrlCreateButton ( "執行程式", 21, $Size[1]-$GUI_Y, 110);離開並執行程式按鈕
     
195.     GUICtrlSetBkColor ( $Button_4, 0x00000)
     
196.     GUICtrlSetColor ( $Button_4, 0xFFFFFF)
     
197.     GUICtrlSetFont ( $Button_4, 10, 800)
     
198.     GUICtrlSetState  ($Button_4, $GUI_HIDE);選擇安裝路徑按鈕
     
199.   $Label = GUICtrlCreateLabel  ( $FormName, 21, $Size[1]-$GUI_Y-85, 759, 75);安裝說明及文字
     
200.     GUICtrlSetColor ( $Label, 0x5DCA27)
     
201.     GUICtrlSetBkColor ( $Label, 0x00000)
     
202.     GUICtrlSetFont ( $Label, 45, 800)
     
203.   $Day = GUICtrlCreateLabel  ( $LabelDay&" By "&$design, $Size[0]*0.8, $Size[1]-$GUI_Y+2, 145);時間
     
204.     GUICtrlSetBkColor ( $Day, 0x00000)
     
205.     GUICtrlSetColor ( $Day, 0x1260FF)
     
206.     GUICtrlSetFont ( $Day, 12, 800)
     
207. 
     
208.   GUICtrlCreatePic ( @ScriptDir&"imgcopypic.bmp", 22, 0, $picSize_wide,$picSize_height);插圖
     
209.   GUISetState()
     
210. Else ;; XP MOD
     
211.   Dim $Point[2] = [ "11", "11"];四個尖角的長x寬
     
     
212.   Dim $Side[2] = [ "11", "11"];(寬)線寬 ; (高)線
     
213. 
     
214.   FileCopy ($img,@ScriptDir&"imgcopypic.bmp")
     
215.   _GDIPlus_Startup()
     
216.   $hImage1 = _GDIPlus_ImageLoadFromFile($img)
     
217.   Global $picSize_wide = _GDIPlus_ImageGetWidth($hImage1)
     
218.   Global $picSize_height = _GDIPlus_ImageGetHeight($hImage1)
     
219. 
     
220.   _GDIPlus_Shutdown()
     
221.   If  $picSize_wide < 758 Or  $picSize_height < 426 Then
     
222.     MsgBox ( 16,"ERROR","圖片大小不得小於 758x426")
     
223.     Exit
     
224.   EndIf
     
225. 
     
226.   Dim $Size[2] = [ $picSize_wide+($Side[0]*2)+20, $picSize_height+114+20+($Side[1]*2)]
     
227. 
     
228.   $GUI = GUICreate ( $FormName, $Size[0], $Size[1], Default, Default, $WS_POPUP, $WS_EX_TOOLWINDOW)
     
229.   GUISetBkColor(0x0000000)
     
230.   $GUI_Y = 45;按鈕及文字高度
     
231.   $Button_2 = GUICtrlCreateButton ( "Install", 21, $Size[1]-$GUI_Y, 80);安裝按鈕
     
232.     GUICtrlSetBkColor ( $Button_2, 0x00000)
     
233.     GUICtrlSetColor ( $Button_2, 0xFFFFFF)
     
234.     GUICtrlSetFont ( $Button_2, 10, 800)
     
235.   $Button_1 = GUICtrlCreateButton ( "...", ($Size[0]*0.17875)-33, $Size[1]-$GUI_Y, 25, 24);選擇安裝目錄按鈕
     
236.     GUICtrlSetBkColor ( $Button_1, 0x00000)
     
237.     GUICtrlSetColor ( $Button_1, 0xFFFFFF)
     
238.     GUICtrlSetFont ( $Button_1, 10, 800)
     
239.   $Input = GUICtrlCreateInput ( @ProgramFilesDir&$DirRoute, $Size[0]*0.17875, $Size[1]-$GUI_Y, $Size[0]*0.4975, 24);安裝路徑文字框
     
240.     GUICtrlSetBkColor ( $Input, 0x00000)
     
241.     GUICtrlSetColor ( $Input, 0x1590FF)
     
     
242.     GUICtrlSetFont ( $Input, 12, 800)
     
243.   $Button_3 = GUICtrlCreateButton ( "Exit", $Size[0]*0.6875, $Size[1]-$GUI_Y, 80);離開按鈕
     
244.     GUICtrlSetBkColor ( $Button_3, 0x00000)
     
245.     GUICtrlSetColor ( $Button_3, 0xFFFFFF)
     
246.     GUICtrlSetFont ( $Button_3, 10, 800)
     
247.   $Button_4 = GUICtrlCreateButton ( "執行程式", 21, $Size[1]-$GUI_Y, 110);離開並執行程式按鈕
     
248.     GUICtrlSetBkColor ( $Button_4, 0x00000)
     
249.     GUICtrlSetColor ( $Button_4, 0xFFFFFF)
     
250.     GUICtrlSetFont ( $Button_4, 10, 800)
     
251.     GUICtrlSetState  ($Button_4, $GUI_HIDE);選擇安裝路徑按鈕
     
252.   $Label = GUICtrlCreateLabel  ( $FormName, 21, $Size[1]-115, 758, 65);安裝說明及文字
     
253.     GUICtrlSetColor ( $Label, 0x5DCA27)
     
254.     GUICtrlSetBkColor ( $Label, 0x00000)
     
255.     GUICtrlSetFont ( $Label, 40, 800)
     
256.   $Day = GUICtrlCreateLabel  ( $LabelDay&" By "&$design, $Size[0]*0.79375, $Size[1]-$GUI_Y+2, 149);時間
     
257.     GUICtrlSetBkColor ( $Day, 0x00000)
     
258.     GUICtrlSetColor ( $Day, 0x1590FF)
     
259.     GUICtrlSetFont ( $Day, 12, 700)
     
260. 
     
261.   ;－－－－－－－－－－－（四個角）－－－－－－－－－－－
     
262.     GUICtrlCreatePic ( @ScriptDir&"OtherWallpaper_Top_Left.bmp", 0, 0, $Point[0], $Point[1]);左上
     
263.     GUICtrlCreatePic ( @ScriptDir&"OtherWallpaper_Bottom_Left.bmp", 0, $Size[1]-$Point[1], $Point[0], $Point[1]);左下
     
264.     GUICtrlCreatePic ( @ScriptDir&"OtherWallpaper_Top_Right.bmp", $Size[0]-$Point[0], 0, $Point[0], $Point[1]);右上
     
265.     GUICtrlCreatePic ( @ScriptDir&"OtherWallpaper_Bottom_Right.bmp", $Size[0]-$Point[0], $Size[1]-$Point[1], $Point[0], $Point[1]);右下
     
     
266.   ;－－－－－－－－－－－（邊框寬度判斷）－－－－－－－－－－－
     
267.     GUICtrlCreatePic ( @ScriptDir&"OtherWallpaper_Top.bmp", $Point[0], 0, $Size[0]-($Point[0]*2), $Side[0]);上
     
268.     GUICtrlCreatePic ( @ScriptDir&"Otherwallpaper_bottom.bmp", $Point[0], $Size[1]-11, $Size[0]-($Point[0]*2), $Side[0]);下
     
269.   ;－－－－－－－－－－－（邊框高度判斷）－－－－－－－－－－－
     
270.     GUICtrlCreatePic ( @ScriptDir&"OtherWallpaper_Left.bmp", 0, $Point[1], $Side[1], $Size[1]-($Point[1]*2));左
     
271.     GUICtrlCreatePic ( @ScriptDir&"OtherWallpaper_Right.bmp", $Size[0]-$Point[0], $Point[1], $Side[1], $Size[1]-($Point[1]*2));右
     
272. 
     
273.   GUICtrlCreatePic ( @ScriptDir&"imgcopypic.bmp", $Point[0]+10, $Point[1]+10, $picSize_wide, $picSize_height);插
     
274.   GUISetState()
     
275. EndIf
     
276. 
     
277. WinSetOnTop ($GUI,"",1)
     
278. 
     
279. While 1
     
280.   If  $SHOW = 1 Then SetTop();設定$GUI 永久為最上層
     
281.   $nMsg = GUIGetMsg()
     
282.   Switch $nMsg
     
283.     Case $GUI_EVENT_CLOSE
     
284.       ExitLoop
     
285.     Case $Button_1
     
286.       WinSetOnTop ( $GUI, "", 0)
     
287.       $Var = FileSelectFolder( "請選擇安裝目錄", "", 1, @ProgramFilesDir)
     
288.       WinWaitClose ( "瀏覽資料夾", "請選擇安裝目錄")
     
289.       WinSetOnTop ( $GUI, "", 1)
     
290.       If $Var = "" Then
     
291.         GUICtrlSetData ( $Input, @ProgramFilesDir&$DirRoute)
     
292.       Else
     
293.         GUICtrlSetData ( $Input, $Var&$DirRoute)
     
294.       EndIf
     
295.     Case $Button_2
     
296.       GUICtrlSetState ( $Button_1, $GUI_DISABLE)
     
297.       GUICtrlSetState ( $Button_2, $GUI_DISABLE)
     
298.       GUICtrlSetState ( $Input, $GUI_DISABLE)
     
299. ;－－－－－－－－－－－（修改文字及字體）－－－－－－－－－－－
     
300.       GUICtrlSetData ( $Label, "本安裝程式為一鍵安裝，安裝中請勿移動滑鼠及鍵盤以免產生錯誤 ...")
     
301.       GUICtrlSetBkColor ( $Label, 0x00000)
     
302.       If $SHOW = 1 Then
     
303.         GUICtrlSetColor ( $Label, 0x1260FF)
     
304.       Else
     
305.         GUICtrlSetColor ( $Label, 0x1590FF)
     
306.           GUICtrlSetFont ( $Label, 9, 800)
     
307.       EndIf
     
308. ;－－－－－－－－－－－（複製檔案）－－－－－－－－－－－
     
309.       GUICtrlSetData ( $Label, "本安裝程式為一鍵安裝，安裝中請勿移動滑鼠及鍵盤以免產生錯誤。"&@CR&"複製檔案中 ...")
     
310.         DirCreate (@ProgramsCommonDir&$DirRoute);建立新資料夾
     
311.         DirCopy ( @ScriptDir&$DirRoute, GUICtrlRead ($Input), 1) ;複製檔案
     
312.       GUICtrlSetData ( $Label, "本安裝程式為一鍵安裝，安裝中請勿移動滑鼠及鍵盤以免產生錯誤。"&@CR&"複製檔案　完成"&@CR&"建立捷徑中 ...")
     
313.         FileCreateShortcut ( GUICtrlRead ($Input)&$exeName, @ProgramsCommonDir&$DirRoute&$FileName&".lnk");開始程式及裡建立捷徑
     
     
314.         FileCreateShortcut ( GUICtrlRead ($Input)&$exeName, @DesktopDir&$FileName&".lnk");桌面建立捷徑
     
315. ;－－－－－－－－－－－（中文化）－－－－－－－－－－－ 選用
     
316.       GUICtrlSetData ( $Label, "本安裝程式為一鍵安裝，安裝中請勿移動滑鼠及鍵盤以免產生錯誤。"&@CR&"複製檔案　完成"&@CR&"建立捷徑　完成,")
     
317. ;~       Chs()
     
318. ;－－－－－－－－－－－（安裝完成）－－－－－－－－－－－
     
319.       GUICtrlSetData ( $Label, "本安裝程式為一鍵安裝，安裝中請勿移動滑鼠及鍵盤以免產生錯誤 ..."&@CR&"複製檔案　完成"&@CR&"建立捷徑　完成"&@CR&$FormName&"　安裝完成")
     
320. ;－－－－－－－－－－－（修改顯示控件）－－－－－－－－－－－
     
321.       GUICtrlSetState  ($Button_1, $GUI_HIDE);選擇安裝路徑按鈕
     
322.       GUICtrlSetState  ($Button_2, $GUI_HIDE);開始安裝按鈕
     
323.       GUICtrlSetState  ($Input, $GUI_HIDE);開始安裝按鈕
     
324.       GUICtrlSetState  ($Button_4, $GUI_SHOW);開始安裝按鈕
     
325.       If $SHOW = 1 Then
     
326.         GUICtrlSetPos (  $Button_3, ($picSize_wide*0.17875), $picSize_height-$GUI_Y, 120)
     
327.       Else
     
328.         GUICtrlSetPos (  $Button_3, ($picSize_wide*0.17875), $Size[1]-$GUI_Y, 120)
     
329.       EndIf
     
330.       GUICtrlSetData ( $Button_3, "結束安裝")
     
     
331.       GUICtrlSetState ( $Button_4, $GUI_FOCUS)
     
332.     Case $Button_3
     
333.       Exit
     
334.     Case $Button_4
     
335.       ShellExecute (GUICtrlRead ($Input)&$exeName)
     
336.       Exit
     
337.         EndSwitch
     
338. WEnd
     
339. 
     
340. 
     
341. Func SetTop();設定$GUI 永久為最上層
     
342.   If $SHOW <> 2 Then
     
343.     If Not WinActive  ($form1) Then WinActivate ($GUI)
     
344.   EndIf
     
345. EndFunc
     
346. 
     
347. Func WM_MOVE($hWnd, $Msg, $wParam, $lParam)
     
348.   $XY2 = WinGetPos($GUI)
     
349.   WinMove($Form1, "", $XY2[0], $XY2[1])
     
350. EndFunc
     
351. 
     
352. Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
     
353.   Switch $hWnd
     
354.     Case $form1
     
355.       Switch $iMsg
     
356.         Case $WM_NCHITTEST
     
357.             Return $HTCAPTION
     
358.       EndSwitch
     
359.   EndSwitch
     
360.   Return $GUI_RUNDEFMSG
     
361. EndFunc
     
362. 
     
363. Func Error()
     
364.   If FileExists ($ini) = 0 Then
     
365.     MsgBox ( 16,"ERROR","找不到 Install.ini ")
     
366.     Exit
     
367.   EndIf
     
368. 
     
369.   If FileExists ($img) = 0 Then
     
370.     MsgBox ( 16,"ERROR","找不到圖片檔")
     
371.     Exit
     
372.   EndIf
     
373. 
     
374.   If $SHOW = 0 Or $SHOW = 1 Then
     
375.     If Not _WinAPI_DwmIsCompositionEnabled() Then
     
376.       $SHOW = 3; 無法啟動DWM 開啟XP MOD
     
377.     EndIf
     
     
378.   EndIf
     
379. 
     
380.   If $design = "" Then $design = "噹噹"
     
381. 
     
382.   If $FormName = "" Or $exeName = "" Or $FileName = "" Or $DirRoute = "" Then
     
383.     MsgBox (16,"ERROR","路徑、檔名不得為空白")
     
384.     Exit
     
385.   EndIf
     
386. EndFunc
     
387. 
     
388. Func _WinAPI_DwmIsCompositionEnabled()
     
389. 
     
390.   Local $Ret = DllCall('dwmapi.dll', 'uint', 'DwmIsCompositionEnabled', 'int*', 0)
     
391. 
     
392.   If @error Then
     
393.     Return SetError(1, 0, 0)
     
394.   Else
     
395.     If $Ret[0] Then
     
396.       Return SetError(1, $Ret[0], 0)
     
397.     EndIf
     
398.   EndIf
     
399.   Return $Ret[1]
     
400. EndFunc   ;==>_WinAPI_DwmIsCompositionEnabled
     
401. 
     
402. Func _WinAPI_DwmGetColorizationColor()
     
403. 
     
404.   Local $Ret = DllCall('dwmapi.dll', 'uint', 'DwmGetColorizationColor', 'dword*', 0, 'int*', 0)
     
405. 
     
406.   If @error Then
     
407.     Return SetError(1, 0, 0)
     
408.   Else
     
409.     If $Ret[0] Then
     
410.       Return SetError(1, $Ret[0], 0)
     
411.     EndIf
     
412.   EndIf
     
413.   Return SetError(0, $Ret[2], $Ret[1])
     
414. EndFunc   ;==>_WinAPI_DwmGetColorizationColor
     
415. 
     
416. Func _WinAPI_UpdateLayeredWindowEx($hWnd, $hBitmap, $iOpacity = 255, $fDelete = 0)
     
417. 
     
418.   Local $Ret, $tSIZE, $tPOINT, $tBLENDFUNCTION, $hDC, $hDestDC, $hDestSv
     
419. 
     
420.   $Ret = DllCall('user32.dll', 'hwnd', 'GetDC', 'hwnd', $hWnd)
     
421.   $hDC = $Ret[0]
     
422.   $Ret = DllCall('gdi32.dll', 'hwnd', 'CreateCompatibleDC', 'hwnd', $hDC)
     
     
423.   $hDestDC = $Ret[0]
     
424.   $Ret = DllCall('gdi32.dll', 'hwnd', 'SelectObject', 'hwnd', $hDestDC, 'ptr', $hBitmap)
     
425.   $hDestSv = $Ret[0]
     
426.   $tSIZE = _WinAPI_GetBitmapDimension($hBitmap)
     
427.   $tPOINT = DllStructCreate($tagPOINT)
     
428.   $tBLENDFUNCTION = DllStructCreate($tagBLENDFUNCTION)
     
429.   DllStructSetData($tBLENDFUNCTION, 'Alpha', $iOpacity)
     
430.   DllStructSetData($tBLENDFUNCTION, 'Format', 1)
     
431.   $Ret = DllCall('user32.dll', 'int', 'UpdateLayeredWindow', 'hwnd', $hWnd, 'hwnd', $hDC, 'ptr', 0, 'ptr', DllStructGetPtr($tSIZE), 'hwnd', $hDestDC, 'ptr', DllStructGetPtr($tPOINT), 'dword', 0, 'ptr', DllStructGetPtr($tBLENDFUNCTION), 'dword', 0x02)
     
432.   DllCall('user32.dll', 'int', 'ReleaseDC', 'hwnd', $hWnd, 'hwnd', $hDC)
     
433.   DllCall('gdi32.dll', 'ptr', 'SelectObject', 'hwnd', $hDestDC, 'ptr', $hDestSv)
     
434.   DllCall('gdi32.dll', 'int', 'DeleteDC', 'hwnd', $hDestDC)
     
435.   If Not $Ret Then
     
436.     Return SetError(1, 0, 0)
     
437.   EndIf
     
438.   If $fDelete Then
     
439.     _WinAPI_DeleteObject($hBitmap)
     
440.   EndIf
     
441.   Return 1
     
442. EndFunc   ;==>_WinAPI_UpdateLayeredWindowEx
     
443. 
     
444. Func _WinAPI_GetBitmapDimension($hBitmap)
     
445.   Global Const $tagBITMAP = 'long bmType;long bmWidth;long bmHeight;long bmWidthBytes;ushort bmPlanes;ushort bmBitsPixel;ptr bmBits;'
     
446.     Local $tObj = DllStructCreate($tagBITMAP)
     
447.   Local $Ret = DllCall('gdi32.dll', 'int', 'GetObject', 'int', $hBitmap, 'int', DllStructGetSize($tObj), 'ptr', DllStructGetPtr($tObj))
     
448. 
     
449.   If (@error) Or (Not $Ret[0]) Then
     
450.     Return SetError(1, 0, 0)
     
451.   EndIf
     
     
452. 
     
453.   Local $tSIZE = DllStructCreate($tagSIZE)
     
454. 
     
455.   DllStructSetData($tSIZE, 1, DllStructGetData($tObj, 'bmWidth'))
     
456.   DllStructSetData($tSIZE, 2, DllStructGetData($tObj, 'bmHeight'))
     
457. 
     
458.   Return $tSIZE
     
459. EndFunc   ;==>_WinAPI_GetBitmapDimension
     
460. 
     
461. 
     
462. Func _Vista_EnableBlurBehind ($hWnd, $Area, $bColor = 0x000000)
     
463.     $Struct = DllStructCreate ("int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;")
     
464.     $sStruct = DllStructCreate ("dword;int;ptr;int")
     
465.   If IsArray ($Area) Then
     
466.     DllStructSetData ($Struct, "cxLeftWidth", $Area[0])
     
467.     DllStructSetData ($Struct, "cxRightWidth", $Area[1])
     
468.     DllStructSetData ($Struct, "cyTopHeight", $Area[2])
     
469.     DllStructSetData ($Struct, "cyBottomHeight", $Area[3])
     
470. 
     
471.     GUISetBkColor ($bColor)
     
472.     $Ret = DllCall ("dwmapi.dll", "long*", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "ptr", DllStructGetPtr($Struct))
     
473.     If @error Then
     
474.       Return 0
     
475.     Else
     
476.       Return $Ret
     
477.     EndIf
     
478.   Else
     
479.     MsgBox(16, "_Vista_ApplyGlassArea", "Area specified is not an array!")
     
480.   EndIf
     
481. EndFunc

複製代碼

alex20092009

請問是下載附件和將代碼複製在組譯就可使用嗎?