i need to shell .exe file with ShellExecute,but i am stupid and i dont know how to do it :(
if some1 can help me and gimme example will be great for me :wave:
Printable View
i need to shell .exe file with ShellExecute,but i am stupid and i dont know how to do it :(
if some1 can help me and gimme example will be great for me :wave:
VB Code:
Private Declare Function ShellEx Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Dim x x = ShellEx(Form1.hwnd, "open", "path of file", "", "", 1) End Sub
or...VB Code:
shell("path")
:)VB Code:
Option Explicit 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 Const SW_SHOWNORMAL As Long = 1 Private Const SW_SHOWMINIMIZED As Long = 2 Private Const SW_SHOWMAXIMIZED As Long = 3 Private Sub Command1_Click() On Error GoTo MyError Dim lRet As Long lRet = ShellExecute(Me.hwnd, "Open", "C:\MyApp.exe", vbNullstring, "C:\", SW_SHOWNORMAL) If lRet <= 32 Then MsgBox "Error Shelling" End If Exit Sub MyError: MsgBox Err.Number & " - " & Err.Description End Sub