通用 |
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 |
初级程序员
by: Hank_c_java 发表于:2020-01-17 17:23:25 顶(2) | 踩(1) 回复
牛
回复评论