[原创] au3调用皮肤视频教程

;AU3皮肤应用文本完整方法
;
;只需复制以下代码替换一窗口变量再加上dll和皮肤文件
;===================================================================================
;====== AU3皮肤应用文本教程                                                 ========
;====== www.jhlyu.cn/bbs                                                    ========
;===================================================================================

Opt("OnExitFunc","Quit");设置在 AutoIt 退出时将调用的函数(Quit).

;====================== 需要改动的地方 =============================================

;找到GUIcreate函数赋值的变量,这里是$form1,替换下句_SkinGUI中的$form1
;例: $form1=GUICreate ("标题金海领域",450,400,-1,-1)
Dim $dll,$bf=@TempDir&"vista.skf" ;皮肤文件路径
_SkinGUI(@TempDir&"SkinCrafterDll.dll", $bf, $form1);
;====================== $form1替换你的窗口变量 =====================================


;======================= 装入到编译后的文件 ========================================
FileInstall("SkinCrafterDll.dll",@TempDir&"SkinCrafterDll.dll",1)
FileInstall("vista.skf",@TempDir&"vista.skf",1)
FileInstall("Splash.jpg",@TempDir&"Splash.jpg",1)
;===================================================================================

Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle) 
   $Dll = DllOpen($SkincrafterDll) 
   DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1") 
   DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1) 
   DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin) 
   DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25) 
   DllCall($Dll, "int:cdecl", "ApplySkin") 
EndFunc      ;==_
;===================================================================================
;退出时析构
Func Quit()
    GUISetState(@SW_HIDE)
    DllCall($dll, "int:cdecl", "DeInitDecoration")
    DllCall($dll, "int:cdecl", "RemoveSkin")
    DllClose($dll)
    FileDelete(@TempDir&"SkinCrafterDll.dll")
    FileDelete(@TempDir&"vista.skf")
    FileDelete(@TempDir&"Splash.jpg")
    Exit
EndFunc
;===================================================================================