ShellExecute Application with String

  • 9 years ago

    How can I start an application in the same directory with a string.
    Example: "C:\Program Files\xxxx\service.exe -uninstall"


    This works example: "C:\Program Files\xxxx\service.exe" but not
    with the " -uninstall" string.



    If I just this code below it doesn't start the application!



    Code:

    Private Sub MnuServiceUn_Click()


       Dim lReturnUn As Long
       lReturnUn = ShellExecute(hWnd, "open", App.Path & "\service.exe -uninstall", vbNull, vbNull, SW_SHOWNORMAL)


    End Sub



    How can I solve this problem?


  • 9 years ago

    I do NOT want to delete the file.
    But launch it with an string.


    C:\BlaBla\Test.exe -install


  • 9 years ago

    Okay this will be a long response but bear with me.


    Put this into a Class Module and name it DOSOutputs.cls:

    Code:
    Option Explicit


    'The CreatePipe function creates an anonymous pipe,
    'and returns handles to the read and write ends of the pipe.
    Private Declare Function CreatePipe Lib "kernel32" ( _
      phReadPipe As Long, _
      phWritePipe As Long, _
      lpPipeAttributes As Any, _
      ByVal nSize As Long) As Long


    'Used to read the the pipe filled by the process create
    'with the CretaProcessA function
    Private Declare Function ReadFile Lib "kernel32" ( _
      ByVal hFile As Long, _
      ByVal lpBuffer As String, _
      ByVal nNumberOfBytesToRead As Long, _
      lpNumberOfBytesRead As Long, _
      ByVal lpOverlapped As Any) As Long


    'Structure used by the CreateProcessA function
    Private Type SECURITY_ATTRIBUTES
      nLength As Long
      lpSecurityDescriptor As Long
      bInheritHandle As Long
    End Type


    'Structure used by the CreateProcessA function
    Private Type STARTUPINFO
      cb As Long
      lpReserved As Long
      lpDesktop As Long
      lpTitle As Long
      dwX As Long
      dwY As Long
      dwXSize As Long
      dwYSize As Long
      dwXCountChars As Long
      dwYCountChars As Long
      dwFillAttribute As Long
      dwFlags As Long
      wShowWindow As Integer
      cbReserved2 As Integer
      lpReserved2 As Long
      hStdInput As Long
      hStdOutput As Long
      hStdError As Long
    End Type


    'Structure used by the CreateProcessA function
    Private Type PROCESS_INFORMATION
      hProcess As Long
      hThread As Long
      dwProcessID As Long
      dwThreadID As Long
    End Type


    'This function launch the the commend and return the relative process
    'into the PRECESSINFORMATION structure
    Private Declare Function CreateProcessA Lib "kernel32" ( _
      ByVal lpApplicationName As Long, _
      ByVal lpCommandLine As String, _
      lpProcessAttributes As SECURITY
    ATTRIBUTES, _
      lpThreadAttributes As SECURITYATTRIBUTES, _
      ByVal bInheritHandles As Long, _
      ByVal dwCreationFlags As Long, _
      ByVal lpEnvironment As Long, _
      ByVal lpCurrentDirectory As Long, _
      lpStartupInfo As STARTUPINFO, _
      lpProcessInformation As PROCESS
    INFORMATION) As Long


    'Close opened handle
    Private Declare Function CloseHandle Lib "kernel32" ( _
      ByVal hHandle As Long) As Long


    'Consts for the above functions
    Private Const NORMALPRIORITYCLASS = &H20&
    Private Const STARTFUSESTDHANDLES = &H100&
    Private Const STARTF
    USESHOWWINDOW = &H1



    Private mCommand As String          'Private variable for the CommandLine property
    Private mOutputs As String          'Private variable for the ReadOnly Outputs property


    'Event that notify the temporary buffer to the object
    Public Event ReceiveOutputs(CommandOutputs As String)


    'This property set and get the DOS command line
    'It's possible to set this property directly from the
    'parameter of the ExecuteCommand method
    Public Property Let CommandLine(DOSCommand As String)
      mCommand = DOSCommand
    End Property


    Public Property Get CommandLine() As String
      CommandLine = mCommand
    End Property


    'This property ReadOnly get the complete output after
    'a command execution
    Public Property Get Outputs()
      Outputs = mOutputs
    End Property


    Public Function ExecuteCommand(Optional CommandLine As String) As String
      Dim proc As PROCESSINFORMATION     'Process info filled by CreateProcessA
      Dim ret As Long                     'long variable for get the return value of the
                                          'API functions
      Dim start As STARTUPINFO            'StartUp Info passed to the CreateProceeeA
                                          'function
      Dim sa As SECURITY
    ATTRIBUTES       'Security Attributes passeed to the
                                          'CreateProcessA function
      Dim hReadPipe As Long               'Read Pipe handle created by CreatePipe
      Dim hWritePipe As Long              'Write Pite handle created by CreatePipe
      Dim lngBytesread As Long            'Amount of byte read from the Read Pipe handle
      Dim strBuff As String * 256         'String buffer reading the Pipe


      'if the parameter is not empty update the CommandLine property
      If Len(CommandLine) > 0 Then
          mCommand = CommandLine
      End If
     
      'if the command line is empty then exit whit a error message
      If Len(mCommand) = 0 Then
          MsgBox "Command Line empty", vbCritical
          Exit Function
      End If
     
      'Create the Pipe
      sa.nLength = Len(sa)
      sa.bInheritHandle = 1&
      sa.lpSecurityDescriptor = 0&
      ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)
     
      If ret = 0 Then
          'If an error occur during the Pipe creation exit
          MsgBox "CreatePipe failed. Error: " & Err.LastDllError, vbCritical
          Exit Function
      End If
     
      'Launch the command line application
      start.cb = Len(start)
      start.dwFlags = STARTFUSESTDHANDLES Or STARTFUSESHOWWINDOW
      'set the StdOutput and the StdError output to the same Write Pipe handle
      start.hStdOutput = hWritePipe
      start.hStdError = hWritePipe
      'Execute the command
      ret& = CreateProcessA(0&, mCommand, sa, sa, 1&, _
          NORMALPRIORITYCLASS, 0&, 0&, start, proc)
         
      If ret <> 1 Then
          'if the command is not found ....
          MsgBox "File or command not found", vbCritical
          Exit Function
      End If
     
      'Now We can ... must close the hWritePipe
      ret = CloseHandle(hWritePipe)
      mOutputs = ""
     
      'Read the ReadPipe handle
      Do
          ret = ReadFile(hReadPipe, strBuff, 256, lngBytesread, 0&)
          mOutputs = mOutputs & Left(strBuff, lngBytesread)
          'Send data to the object via ReceiveOutputs event
          RaiseEvent ReceiveOutputs(Left(strBuff, lngBytesread))
      Loop While ret <> 0
     
      'Close the opened handles
      ret = CloseHandle(proc.hProcess)
      ret = CloseHandle(proc.hThread)
      ret = CloseHandle(hReadPipe)
     
      'Return the Outputs property with the entire DOS output
      ExecuteCommand = mOutputs
    End Function


    Now add this to your form module:Code:
    Private WithEvents objDOS As DOSOutputs
    Dim sOutput As String


    Private Function RunApp()
    Set objDOS = New DOSOutputs


    sOutput = ""
    objDOS.CommandLine = "C:\myPath\myApplication.exe -myArgs"
    objDOS.ExecuteCommand
    Set objDOS = Nothing
    End Function


    Private Sub objDOS_ReceiveOutputs(CommandOutputs As String)
      sOutput = sOutput & CommandOutputs
    End Sub


    And you can now call RunApp to do what you want.

Post a reply

Enter your message below

Sign in or Join us (it's free).

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Theory is when you know something, but it doesn't work. Practice is when something works, but you don't know why. Programmers combine theory and practice: Nothing works and they don't know why.”