jsgh1983 发表于 2011-9-5 10:42:20

已解决!怎样让SHE皮肤在关闭窗口时自动删除？

本帖最后由 jsgh1983 于 2012-2-13 03:38 编辑

我以前没有任何编程基础，只是爱好想学习AU3，麻烦大家不要讽刺我，我研究好长时间实在搞不定了才求助的，最好回复时能打上标注讲解下，我在这里拜谢了！#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=xx.ico
#AutoIt3Wrapper_outfile=xxx.exe
#AutoIt3Wrapper_Res_LegalCopyright=bbs.sky123.org
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <waterctrl.dll.au3>
#Region ### START Koda GUI section ### Form=
FileInstall("hlong.she",@TempDir & "hlong.she",1)
FileInstall("Skin.dll",@TempDir & "Skin.dll",1)
FileInstall("logo.bmp", @TempDir & "\",1)
$Form = GUICreate("xxxx电脑库存管理", 900, 680, -1, -1)
_WaterCtrl_Startup(@TempDir & "\logo.bmp", $Form, '70,27')
_Autoblob()

$Form=@TempDir&"hlong.she"
$Dll = DllOpen(@TempDir&"Skin.dll")
DllCall($Dll, "int", "SkinH_AttachEx", "str", $Form, "str", "mhgd")
DllCall($Dll, "int", "SkinH_SetAero", "int", 1)
DirRemove(@TempDir & "\*.bmp")


$Button = GUICtrlCreateButton("退出软件", 600, 620, 210, 50)
GUICtrlSetFont($Button , 30,400, 1, "微软雅黑")
$Button1 = GUICtrlCreateLabel("软件网盘", 600, 120, 210, 50)
GUICtrlSetFont($Button1 ,15,400, 1, "微软雅黑")

GUISetState(@SW_SHOW)
GUICtrlCreateGroup("", 60, 128, 460, 550)
$run1 = GUICtrlCreateButton("电脑库存与入库", 80, 140, 360, 50)
GUICtrlSetFont($run1 , 30,400, 1, "微软雅黑")
$run2 = GUICtrlCreateButton("配件库存明细", 80, 220, 360, 50)
GUICtrlSetFont($run2 , 30,400, 1, "微软雅黑")
$run3 = GUICtrlCreateButton("配件进货明细", 80, 300, 360, 50)
GUICtrlSetFont($run3 , 30,400, 1, "微软雅黑")
$run4 = GUICtrlCreateButton("入联想商品管理", 80, 380, 360, 50)
GUICtrlSetFont($run4 , 30,400, 1, "微软雅黑")
$run5 = GUICtrlCreateButton("八道沟雷雨账目", 80,460, 360, 50)
GUICtrlSetFont($run5 , 30,400, 1, "微软雅黑")
$run6= GUICtrlCreateButton("戴尔自用明细", 80, 540, 360, 50)
GUICtrlSetFont($run6 , 30,400, 1, "微软雅黑")
$run7= GUICtrlCreateButton("购机合同明细", 80, 620, 360, 50)
GUICtrlSetFont($run7 , 30,400, 1, "微软雅黑")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $Button      
                        Exit
                Case $GUI_EVENT_CLOSE      
                        Exit
                Case $run1
                      run("运行xxxxx.exe")
                Case $run2
                                      run("运行xxxx.exe")
                Case $run3
                          run("运行xxxxx.exe")
                Case $run4
                      run("运行xxxx.exe")   
                                Case $run5
                      run("运行xxxxx.exe")               
                                Case $run6
                      run("运行xxxxx.exe")
                                Case $run7
                      run("打开xxxxx.exe")
               Case $Button1
                   ShellExecute("http://dl.dbank.com/c0acn0obgb")
      EndSwitch
        WEnd



星雨朝霞 发表于 2011-9-5 16:15:57

1.卸载皮肤(命令自己找,那DLL里有这种命令的)
2.删除文件
3.再Exit

gzh888666 发表于 2011-9-5 16:54:28

最好定义一个退出函数，删除DLL后EXIT
页: [1]
查看完整版本: 已解决!怎样让SHE皮肤在关闭窗口时自动删除？