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

令人振奋的窗口皮肤,美化你的界面!


http://sogho.cn/UploadFiles/2008-6/21032260658.jpghttp://sogho.cn/UploadFiles/2008-6/21033105091.jpghttp://sogho.cn/UploadFiles/2008-6/21033344758.jpg
单调的默认皮肤如果让你厌烦,换个皮肤会使人振奋。
以下帖子转自:
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?mod=viewthread&tid=1375&extra=page%3D1
看我有说明...

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

越来越牛X!!!!!!!!

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

:face (36):
好文章,我收了!!

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

谢谢分享!:face (37):
学习中。

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

谢谢了
可是我没钱了
无法下了
页: [1] 2 3 4
查看完整版本: 令人振奋的窗口皮肤,美化你的界面!