shell函数的问题

Question

具体你要调用什么东东，shell不专业

Answer 1

请用shellexecute函数，用这个函数不需要知道word等的安装位置，只要目标机器建立了文件关联即可。

Answer 2

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 LongPrivate Sub Command1_Click()
    ShellExecute Me.hwnd, "Open", "aa.doc", "", App.Path, 1 'WORD
End SubPrivate Sub Command2_Click()
    ShellExecute Me.hwnd, "Open", "Book1.xls", "", App.Path, 1'EXCEL
End Sub

Answer 3

我只是想在程序的TOOLBAR上做一些程序的快捷方式.