找回密码
 加入
搜索
查看: 1448|回复: 3

FILEINSTALL 问题 请教大大

[复制链接]
发表于 2008-11-19 07:39:39 | 显示全部楼层 |阅读模式
FileInstall("E:\bak\DeskTop\Skin\vista.skf",@TempDir&"\skin")
FileInstall("E:\bak\DeskTop\Skin\skin.dll",@TempDir&"\skin")
Global $Dll
$Form2 = GUICreate("对话框", 357, 203, 303, 219)
_SkinGUI(@TempDir&"\skin\skin.dll", @TempDir&"\skin\vista.skf", $Form2)
GUISetIcon("D:\009.ico")
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 257, 185)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("确定(&O)", 272, 16, 75, 25, 0)
$Button2 = GUICtrlCreateButton("取消(&C)", 272, 48, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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



为什么不能编译到程序中   郁闷中

[ 本帖最后由 xuanniao110 于 2008-11-19 09:11 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2008-11-19 07:43:45 | 显示全部楼层

程序运行出错 截图 上传

程序运行出错  截图  上传

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2008-11-19 09:12:39 | 显示全部楼层
感谢群中柴柴的帮助  谢谢了  原来是路径出问题咯
发表于 2009-11-16 13:39:21 | 显示全部楼层
源文件要和脚本放在一个目录中,必须在同一级目录。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2025-1-12 09:42 , Processed in 0.093616 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表