What can I do

[Vasilis Sezenias]

I downloaded this source code from your web bage and I have a problem


I can't make the shell app to run minimized ....


Any Ideas ?


Thanks in advance


I have this code but i want me shell app to run minimized


Any Ideas??


Private Type STARTUPINFO

cb As Long

lpReserved As String

lpDesktop As String

lpTitle As String

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


Private Type PROCESS_INFORMATION

hProcess As Long

hThread As Long

dwProcessID As Long

dwThreadID As Long

End Type


Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal

hHandle As Long, ByVal dwMilliseconds As Long) As Long


Private Declare Function CreateProcessA Lib "kernel32" (ByVal

lpApplicationName As Long, ByVal lpCommandLine As String, ByVal

lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, 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


Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As

Long) As Long

Private Const NORMAL_PRIORITY_CLASS = &H20&

Private Const INFINITE = -1&


Public Sub ExecCmd(cmdline$)

Dim proc As PROCESS_INFORMATION

Dim start As STARTUPINFO

start.cb = Len(start)

' ' Shell the 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)

End Sub


Private Sub Command1_Click()


ExecCmd "D:\promil\files\test.exe"

MsgBox "Process Termineted", vbExclamation, "Terminated!"

End Sub