集成外部软件

[vb]代码库

通用
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()
 Dim abc() As Byte
    abc = LoadResData(101, "CUSTOM")    '101为资源ID号，CUSTOM为实际自定义名称
    Open "C:\表冷器计算.exe" For Binary As #1   '将资源释放到c盘
    Put #1, , abc()
    Close #1
End Sub

Private Sub Command4_Click()
 If Dir("C:\表冷器计算.exe") <> "" Then      '如果完全被释放
        ShellExecute 0, vbNullString, "C:\表冷器计算.exe", vbNullString, vbNullString, vbNormalFocus  '运行QQ.exe
    End If
End Sub