怎样在VB中启动其他Windows应用程序(在线等待）

[wendypan]

急！

[bydisplay]

应用shell函数

[bydisplay]

例如：shell app.path+"\notepad.exe",nomalfocus

[lihonggen0]

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




Private Sub Form_Load()
ShellExecute Me.hWnd, "open", "C:\WINDOWS\CALC.EXE", vbNullString, vbNullString, SW_SHOW

End Sub

[ken2002p4]

shell