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

支持共享！！！:face (33):

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

:face (37): 很好的学习资料。谢谢了加上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

:face (36):

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

谢谢啊

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

界面挺清爽！

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

很不错，支持了
页: [1] 2 3 4 5 6 7
查看完整版本: 终于皮肤成功了