7,788
社区成员
发帖
与我相关
我的任务
分享Private Const SW_SHOWNORMAL As Long = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As Long
sub main()
ShellExecute 0, vbnullstring, "C:\dosbox\dosbox.exe", vbnullstring, "C:\dowbox\", SW_SHOWNORMAL
end sub