回复 2# xms77
代码如下,谢谢#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
FileInstall("Black.she", @TempDir & "\Black.she", 1)
FileInstall("Skin.dll", @TempDir & "\Skin.dll", 1)
$skins = @TempDir & "\Black.she"
$dll = DllOpen(@TempDir & "\Skin.dll")
DllCall($dll, "int", "SkinH_AttachEx", "str", $skins, "str", "mhgd")
DllCall($dll, "int", "SkinH_SetAero", "int", 1)
$Form1 = GUICreate("平直度判断工具", 905, 585, @DesktopWidth / 2 - 452, @DesktopHeight / 2 - 292)
$ButtonDown = GUICtrlCreateButton("下一个", 257, 392, 65, 33)
$Graphic1 = GUICtrlCreateGraphic(384, 24, 500, 400)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0, 500, 400)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|