AutoHotkey Community

MsgBox, % RunConsoleAppWait("cmd.exe /c echo Hello World.")

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Include ConsoleApps.ahk

;Create GUI window with an edit control to print the output.
Gui, Add, Edit, x15 y15 w460 h300 -Wrap ReadOnly hscroll vtxtStdout,
Gui, Show, w490 h330, Standard Input/Output Redirection Example

; Create the process
ConsoleAppHandle := RunConsoleApp("ConsoleApps_TestFile.bat -p nothing", A_ScriptDir)
; In reality, this function will never return with a ConsoleAppHandle value of 0, but
; it is good to check for this possibility in case future versions do return a value of
; 0 for failure.
if (ConsoleAppHandle == 0)
{
    MsgBox, Error running cmd.exe
    ExitApp
}

/* Continuously retrieve the process's output and write it to the edit control
 * in a loop as it arrives.
 */
Loop
{
    ; Append the ConsoleApps standard output to StdOut.
    ConsoleAppStillRunning := GetConsoleAppStdOut(ConsoleAppHandle, StdOut, BytesAppended, ExitCode)
    ; If StdOut was appended with new text, write it to the GUI window.
    if (BytesAppended)
       GuiControl, , txtStdOut, %StdOut%  ; append the output to the edit control.
    ; If the ConsoleApp is no longer running, then stop checking for output.
    if (!ConsoleAppStillRunning)
       break
    ; Give up remainder of time-slice to give the child process a chance to generate more output
    ; before checking again.
    sleep 0
}
; This function must be called when the ConsoleAppHandle is no longer needed.
CloseConsoleAppHandle(ConsoleAppHandle)
if (!ExitCode)
    MsgBox, The program has completed successfully.
else
    MsgBox, The program has exitted with an error code of %ExitCode%.
return

; The following label is receives control when the user closes the GUI window.
GuiClose:
ExitApp

hRedProcess := RunRed("MyApp.exe arg1","C:\Documents and Settings\Uname\Desktop\Sub folder\bin")

; also no luck with..

hRedProcess := RunRed("MyApp.exe arg1",WorkingDir="C:\Documents and Settings\Uname\Desktop\Sub folder\bin")

RedStdio_StdOutToVar(CmdLine, WorkingDir="")
{
   ;Create the process
   hRedProcess := RunRed(CmdLine, WorkingDir)
   if (hRedProcess == 0)
      return

   ;Retrieve the process's output and append it to the edit control in a loop.  Break when the process
   ;has closed.
   Loop
   {
      retv := GetChildStdout(hRedProcess, strStdout, BytesAppended)  ; append output of child process to strStdout
      if (BytesAppended)
         var := var . strStdout  ; append the output to the var
      if (retv == 1)
         return var  ; a return value of 1 indicates the process no longer exists.
      else if (retv >= 2)
      {
         MsgBox % "Unexpected error in RedStdio_StdOutToVar"
         RedStdioDestroy()
         return var
      }
      sleep 0  ; Give up remainder of time-slice to give the child process a chance to generate more output.
   }
}

hRedProcess := RunRed("MyApp.exe arg1","C:\Documents and Settings\Uname\Desktop\Sub folder\bin")

; also no luck with..

hRedProcess := RunRed("MyApp.exe arg1",WorkingDir="C:\Documents and Settings\Uname\Desktop\Sub folder\bin")

hRedProcess := RunRed("MyApp.exe arg1","C:\Documents and Settings\Uname\Desktop\Sub folder\bin")

hRedProcess := RunRed("MyApp.exe arg1",WorkingDir="C:\Documents and Settings\Uname\Desktop\Sub folder\bin")

hRedProcess := RunRed("MyApp.exe arg1","C:\Documents and Settings\Uname\Desktop\Sub folder\bin")

hRedProcess := RunRed("C:\Documents and Settings\Uname\Desktop\Sub folder\bin\MyApp.exe arg1")

"WorkingDir=C:\Documents and Settings\Uname\Desktop\Sub folder\bin"

WorkingDir := "C:\Documents and Settings\Uname\Desktop\Sub folder\bin"

f(1,x=2) ; MsgBox shows '0'

f(a,x) {
   Msgbox %x%
}

f(1,x=2) ; no MsgBox

f(a,ByRef x) {
   Msgbox %x%
}