令人振奋的窗口皮肤，美化你的界面！

顽固不化 · 发表于 2008-6-24 13:03:05

单调的默认皮肤如果让你厌烦，换个皮肤会使人振奋。
以下帖子转自：
http://sogho.cn/blog/6/archives/2008/200862102236.htm

皮肤的使用，一是下载一个皮肤样式，二是下载一个DLL文件，三是完成代码。
一、下载皮肤
提供各类皮肤下载的网站是：
http://www.skincrafter.com/skingal.php#
二、相应的DLL下载
运用皮肤需要一个Dll文件的支持：
SkinCrafterDll.rar
三、代码例子

使用方法：

#Region ### START Koda GUI section ### Form=
      $Form1 = GUICreate("DrvT_2.6", 360, 256, -1, -1, BitOR($WS_CAPTION, $WS_POPUP), 0)
      _SkinGUI(@WindowsDir & "\temp\SkinCrafterDll.dll", @WindowsDir & "\temp\Flexi_ST.skf", $Form1)

。。。。。。。。。。。。。。
。。。。。。。。。。。。
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
      Case $GUI_EVENT_CLOSE
                                          Exit
      EndSwitch
WEnd

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

突然发现高手们有关皮肤资源、使用、视频教程等的好帖子：
http://www.autoitx.com/forum.php?mod=viewthread&tid=1375&extra=page%3D1

[ 本帖最后由顽固不化于 2008-6-24 15:52 编辑 ]

番茄 · 发表于 2008-6-26 20:50:48

楼主在别的地方抄贴过来，也不知道抄清楚，搞完整。

Func Quit()
    GUISetState(@SW_HIDE)
    DllCall($dll, "int:cdecl", "DeInitDecoration")
    DllCall($dll, "int:cdecl", "RemoveSkin")
    DllClose($dll)
    ;DirRemove(@AppDataDir&"\skin",1)
    Exit
EndFunc

jhwl · 发表于 2008-6-27 00:33:37

加上很重要的一句...

Opt("OnExitFunc","Quit");

http://www.autoitx.com/forum.php ... &extra=page%3D1
看我有说明...

nijinchuan · 发表于 2009-4-20 08:59:02

越来越牛X！！！！！！！！

lynfr8 · 发表于 2009-4-20 11:27:27

好文章，我收了！！

magus · 发表于 2009-4-27 10:12:09

调用啊dll啊，对俺而言复杂了...

zhaohui751 · 发表于 2009-4-27 16:08:34

1# 顽固不化

不错

203x · 发表于 2009-4-30 12:17:06

这个值得收藏....

jhkdqaa · 发表于 2009-5-20 11:48:59

照做了以后没有效果也。也没有错误提示
但是：
-> Warning: Unable to open au3.api. Skipping ProperCase function for KeyWords/Function/Macros
这是怎么回事啊？

jhkdqaa · 发表于 2009-5-20 13:27:47

larkboy · 发表于 2009-8-14 11:10:05

好东西
我喜欢
收藏了

hao1926 · 发表于 2009-8-14 20:30:43

支持，收藏。

水木子 · 发表于 2009-8-14 23:55:33

不管是原创，还是是转帖，支持前辈的劳动成果。

luke · 发表于 2009-8-15 08:31:28

谢谢分享！

学习中。

larkboy · 发表于 2009-8-15 11:17:10

谢谢了
可是我没钱了
无法下了

		自动登录	找回密码
密码			加入

[转贴] 令人振奋的窗口皮肤，美化你的界面！

评分