终于皮肤成功了

online041 · 发表于 2010-4-27 17:18:27

本帖最后由 online041 于 2010-4-27 17:20 编辑

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Dim $dll
FileInstall ( "SkinCrafterDll.dll", @TempDir&"SkinCrafterDll.dll",1)
FileInstall ( "vista.skf", @TempDir&"vista.skf",1)
FileInstall ( "Ht.jpg", @TempDir&"Ht.jpg",1)
#Region ### START Koda GUI section ### Form=d:\我的文档\桌面\form1.kxf
$Form1_1 = GUICreate("                                  常 用 软 件 安 装", 632, 447, 221, 141)
Dim $bf=@TempDir&"vista.skf"
_SkinGUI(@TempDir&"SkinCrafterDll.dll", $bf, $Form1_1 )
GUISetFont(10, 800, 0, "宋体")
GUISetBkColor(0xF1EFE2)
$Tab1 = GUICtrlCreateTab(8, 48, 617, 393)
$TabSheet1 = GUICtrlCreateTabItem("  安 全 防 护 ")
$TabSheet2 = GUICtrlCreateTabItem("  交 友 聊 天  ")
$TabSheet3 = GUICtrlCreateTabItem("  影 视 办 公  ")
GUICtrlSetState(-1,$GUI_SHOW)
$TabSheet4 = GUICtrlCreateTabItem("  上 网 冲 浪  ")
$TabSheet5 = GUICtrlCreateTabItem("  行 业 软 件  ")
GUICtrlCreateTabItem("")
$Pic1 = GUICtrlCreatePic(@TempDir&"Ht.jpg", 0, 0, 635, 47)
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      ;==_



Func Quit()
    GUISetState(@SW_HIDE)
    DllCall($dll, "int:cdecl", "DeInitDecoration")
    DllCall($dll, "int:cdecl", "RemoveSkin")
    DllClose($dll)
        FileDelete(@TempDir&"SkinCrafterDll.dll")
        FileDelete(@TempDir&"vista.skf")
        FileDelete(@TempDir&"Ht")
    ;DirRemove(@AppDataDir&"\skin",1)
    Exit
EndFunc

jonyzhr · 发表于 2010-4-27 17:46:02

沙发,支持.

沂青南 · 发表于 2010-4-27 20:59:52

板凳，看下

夜猫猫 · 发表于 2010-4-29 11:08:55

支持共享！！！

newuser · 发表于 2010-4-29 15:37:12

回复 1# online041
一定要学习!

smices · 发表于 2010-4-29 22:07:00

先顶后下, 对初学者来说是很好的资源，辛苦了.

dongribo · 发表于 2010-4-30 08:47:24

回复 1# online041

先顶后下, 对初学者来说是很好的资源，辛苦了.

jonyzhr · 发表于 2010-5-2 11:46:44

学习,学习,

iii123yu · 发表于 2010-5-2 16:16:18

很好的学习资料。谢谢了加上INI文件先就ok了。

cqcya · 发表于 2010-5-4 09:19:33

学习,我还不知道如何使用皮肤

xiaochuan · 发表于 2010-5-4 14:14:02

很好的东西。搜藏。。

superflq · 发表于 2010-5-5 13:06:08

效果不错，支持下

yxsh · 发表于 2010-5-19 10:04:59

太伟大了，这么好的东西都能共享出来

谢谢啊

king8462 · 发表于 2010-5-19 20:53:52

界面挺清爽！

adasir · 发表于 2010-6-5 00:50:23

很不错，支持了

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

[交流] 终于皮肤成功了

本帖子中包含更多资源