cumtljj 发表于 2014-6-8 21:23:34

分享仿win8的she皮肤 附调用实例

本帖最后由 cumtljj 于 2014-6-15 11:37 编辑

写在前面：皮肤不是我写的 我只是转来的 可以说几乎完美
皮肤文件和dll文件在后面的附件中……


#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

_skins()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("测试皮肤", 356, 229, 192, 124)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

;加载皮肤,放在创建窗口之前
Func _skins()
        FileInstall("C:\autoit3\skins\win8.she", @TempDir & "win8.she", 1) ;自定义she皮肤路径
        FileInstall("C:\autoit3\skins\Skin.dll", @TempDir & "Skin.dll", 1) ;自定义skin.dll文件路径
        $skins = @TempDir & "win8.she"
        $dll = DllOpen(@TempDir & "Skin.dll")
        DllCall($dll, "int", "SkinH_AttachEx", "str", $skins, "str", "mhgd")
EndFunc   ;==>_skins
;卸载皮肤
Func _deleteskins()
        FileDelete(@TempDir & "Skin.dll")
        FileDelete(@TempDir & "win8.she")
EndFunc   ;==>_deleteskins



she皮肤所调用的skin.dll函数汇总
http://www.autoitx.com/forum.php?mod=viewthread&tid=44503&extra=

**** Hidden Message *****

panbin1512 发表于 2014-6-8 21:48:18

谢谢楼主分享

joyran 发表于 2014-6-8 22:52:53

{:face (327):}顶起来

ooxxgod 发表于 2014-6-9 00:54:52

这个目的做什么

yinbinly 发表于 2014-6-9 08:30:59

谢谢分享，下载试试

fcurrk 发表于 2014-6-9 08:32:45

收藏了先，感谢

hnfeng 发表于 2014-6-9 09:29:13

收藏了，谢谢分享

lindafu 发表于 2014-6-9 13:33:15

得看看什么东东

longsan03 发表于 2014-6-9 21:01:58

谢谢LZ{:face (356):}

dabaiyun 发表于 2014-6-9 21:50:35

支持一下嘿嘿

bingshen2014 发表于 2014-6-10 08:01:00

感谢楼主分享，辛苦了。

huangshan719 发表于 2014-6-10 11:19:22

下载看看学习学习

xz00311 发表于 2014-6-10 11:23:00

那边都是E语言的啊为什么

xowen 发表于 2014-6-10 12:02:07

maosi bu cuo e

cumtljj 发表于 2014-6-10 12:02:11

回复 14# xz00311


    这个不影响使用的
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 分享仿win8的she皮肤 附调用实例