调用SkinCrafterDll.dll美化窗口
1.将SkinCrafterDll.dll和皮肤文件LEDWidget.skf复制到程序所在目录2.在include头文件后插入如下代码:
FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
FileInstall("LEDWidget.skf", @TempDir & "\LEDWidget.skf", 1)
$Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll")
3.在#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 450, 193, 125)后插入一行代码,注意:保持Form1前后一致
_SkinGUI(@TempDir & "\SkinCrafterDll.dll", @TempDir & "\LEDWidget.skf", $Form1)
4.在窗口函数代码段后插入如下代码:
;定义皮肤函数
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 ;==>_SkinGUI
;皮肤退出
Func Quit()
GUISetState(@SW_HIDE)
DllCall($Dll, "int:cdecl", "DeInitDecoration")
DllCall($Dll, "int:cdecl", "RemoveSkin")
DllClose($Dll)
FileDelete(@TempDir & "\SkinCrafterDll.dll")
FileDelete(@TempDir & "\LEDWidget.skf")
Exit
EndFunc
特别感谢卫和谐 http://www.autoitx.com/forum.php?mod=viewthread&tid=2634&extra=page%3D1
源文件:
[ 本帖最后由 xiaosen666m 于 2008-12-6 14:10 编辑 ] 谢谢楼主共享。 顶楼主,学习了!!!!!!! 收下了,谢谢 谢谢楼主。
但是DLL还有更多的API的介绍吗?WIDGET怎么制作啊? 收下了:face (36): 非常感谢,留爪备用 先留下.往後有用...
謝謝無私分享 ^_^ 不错,美化好看多了..呵呵`` 谢谢楼主,收藏 下载下来看了下,皮肤反搭配太伤眼了,感觉不好! 这正式我所需要的谢谢楼主 谢谢,我现在会了。。。呵呵。。。 SkinCrafterDll.dll找你好久了,终于找到了,谢谢楼主。 谢谢分享,下载享用,嘻嘻