Run hidden!

[bja1]

I am using this code, but it runs in the foreground when I want it to be hidden can anyone tell me the correct syntax to do this.


Dim CmdLine$

If Not IsMissing(CommandLine) Then
CmdLine$ = ToRun & " " & CommandLine
Else
CmdLine$ = ToRun
End If

Dim proc As PROCESS_INFORMATION
Dim Start As STARTUPINFO
Dim Ret&
wShowWindow = sw_hide
' Initialize the STARTUPINFO structure:
Start.cb = Len(Start)

' Start the shelled application:
Ret& = CreateProcessA(0&, CmdLine$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, Start, proc)

' Wait for the shelled application to finish:
Ret& = WaitForSingleObject(proc.hProcess, INFINITE)
Ret& = CloseHandle(proc.hProcess)


Thanks.

[Aaron Young]

Try this:

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObjectEx Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF

    Dim lPID As Long
    lPID = Shell(CmdLine$, vbHide)
    lPID = OpenProcess(PROCESS_ALL_ACCESS, 0, lPID)
    Call WaitForSingleObjectEx(lPID, -1, 1)

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]