调用SkinCrafterDll.dll美化窗口

xiaosen666m

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 编辑 ]

penginfo

谢谢楼主共享。

jsj731

顶楼主，学习了！！！！！！！

waynelue

收下了，谢谢

lamquan

谢谢楼主。
但是DLL还有更多的API的介绍吗？WIDGET怎么制作啊？

UID

收下了

298311657

非常感谢，留爪备用

OSK

先留下.往後有用...
謝謝無私分享 ^_^

javarike

不错,美化好看多了..呵呵``

xmxy

谢谢楼主，收藏

jycel

下载下来看了下，皮肤反搭配太伤眼了，感觉不好！

村牛

这正式我所需要的  谢谢楼主

laojikelly

谢谢，我现在会了。。。呵呵。。。

ddx13

SkinCrafterDll.dll找你好久了，终于找到了，谢谢楼主。

都市浪子666

谢谢分享，下载享用，嘻嘻