Shell(PathName, [WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double
对应参数为WindowStyle
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
对应参数为nShowCmd
Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
对应参数为nCmdShow
to rainstormmaster(rainstormmaster)
我用了那个参数,但还是出现了DOS窗口,我想如果要用到DOS命令,就一定会出DOS窗口吧,不过我觉得http://www.china-askpro.com/msg47/qa99.shtml网站提供的那个可供下载的应用程序做得很漂亮,他既不出现DOS窗口,又有进度条,非常美观,可惜只有执行程序,没有源程序代码