au3编写记录5_嵌入图标

;进度条实例
#comments-start
ProgressOn("进度条", "每秒增加10%", "0 ％ ")
For $i = 10 to 100 step 10
    sleep(1000)
    ProgressSet( $i, $i & " ％ ")
Next
ProgressSet(100 , "完成", "完成")
sleep(500)
ProgressOff()
#comments-end

;运行dos
#comments-start
#include <Process.au3>
$rc = _RunDos("set /p a=")
#comments-end

#include <GUIConstants.au3>

;示例1 ---------------------------
GUICreate(" 我的图标")

$icon = GUICtrlCreateIcon ("shell32.dll",10, 20,20)
$icon2 = GUICtrlCreateIcon ("explorer.icl",10, 20,80)
$icon3 = GUICtrlCreateIcon ("explorer.icl",6, 80,80)
$n1=GUICtrlCreateIcon (@windowsdir & "\cursors\horse.ani",-1, 20,120,32,32)
$n2=GUICtrlCreateIcon ("shell32.dll",7 ,20,160,32,32)
GUISetState ()

; 运行脚本直到窗口被关闭
While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend