（急，在线等）vb程序中如何执行xp系统自带的录音机中“编辑”菜单下的“插入文件”项

Question

vb程序中如何执行xp系统自带的录音机中“编辑”菜单下的“插入文件”项，我现在只能把录音机调出来，能不能直接用代码执行‘插入文件’的操作的呢？望高手们不吝赐教！

Answer 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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()
    Dim sFile As String
    sFile = "C:\WINDOWS\system32\sndrec32.exe"
    Call ShellExecute(hwnd, "Open", sFile, "", App.Path, 1)
    Sleep 2000
    DoEvents
    SendKeys "%{e}"
    SendKeys "{DOWN}"
    SendKeys "{DOWN}"
    SendKeys "{DOWN}"
    SendKeys "{ENTER}"
End Sub