Function RunShell() Foundation

// The example demonstrates various calls of RunShell(). 
// Pay attention to "/C" for passing parameters to a newly started 
// command shell. 

PROCEDURE Main 

   // Open a new DOS session with window title 
   ? RunShell( '/C START "Xbase++ DOS Session"' ) 


   // List current directory to file 
   ? RunShell( "/C DIR /f > dir.txt" ) 


   // Direct call of the Windows program NOTEPAD.EXE including 
   // command line parameter. Asynchronous execution (.T.) 
   // Note: Notepad.exe can be found using PATH. 
   ? RunShell( "dir.txt", "NOTEPAD.EXE", .T. ) 


   // Indirect call of the Windows program EXPLORER.EXE 
   // using the START command. 
   // The explorer displays the current directory 

   ? RunShell( "/C START EXPLORER.EXE ." ) 

   // Direct call of the Windows program Wordpad and passing the name of 
   // an existing document 
   // Note: Wordpad.exe must have the full path included, and the program 
   // name must not be quoted. Codepage specific characters must be converted 
   // to their original code if necessary (ConvToAnsiCp()). 
   ? RunShell( "hello.doc", "C:\Program Files\Windows NT\Accessories\Wordpad.exe" ) 

   // Call Wordpad and passing command line parameters that must be quoted. 
   ? RunShell( '"C:\My Files\hello.doc"', "C:\Program Files\Windows NT\Accessories\Wordpad.exe" ) 

RETURN 

// The example demonstrates how files created by the 
// parent process can be set as the standard output 
// devices of a process started with RunShell(). 
// After the new process has exited, the redirected 
// output could be analyzed by processing the 
// file contents on disk. 

#include "fileio.ch" 

#define CRLF Chr(13)+Chr(10) 

#define STDOUT_FILE "stdout.txt" 
#define STDERR_FILE "stderr.txt" 

// 
// The application assumes the roles of both 
// the parent and the child process depending 
// on whether a parameter is passed. 
// 
PROCEDURE Main() 
   IF PCount() == 0 
     ParentProcessMain() 
   ELSE 
     ChildProcessMain() 
   ENDIF 
RETURN 

PROCEDURE ParentProcessMain() 
   LOCAL nHStdOut, nHStdErr, aStdHandles 
   LOCAL nAttribute 

   // The files we are creating will be read/write and 
   // deleted after the file handle is closed. The file 
   // handles can be inherited by the new process. 
   nAttribute := FC_NORMAL+FC_AUTODELETE+FA_INHERITABLE 

   nHStdOut := FCreate( STDOUT_FILE, nAttribute ) 
   nHStdErr := FCreate( STDERR_FILE, nAttribute ) 

   // The files created become the standard output 
   // devices of the new process 
   aStdHandles := {NIL,nHStdOut,nHStdErr} 

   // Start the same application again with a parameter. 
   // Start RunShell() so that it does not return until 
   // the child process is terminated. 
   RunShell( "param", AppName(.F.), .F., ,aStdHandles ) 

   // Print what the child process has written to the 
   // output devices 
   ? "Print nHStdOut" 
   PrintFile( nHStdOut ) 
   ? "Print nHStdErr" 
   PrintFile( nHStdErr ) 

   // Close and delete the files 
   FClose( nHStdOut ) 
   FClose( nHStdErr ) 

RETURN 

// The child process prints to the standard output 
// and standard error device. 
PROCEDURE ChildProcessMain() 
   OutStd( "Output to STDOUT" ) 
   OutErr( "Output to STDERR" ) 
RETURN 

// Print the contents of a file 
PROCEDURE PrintFile( nH ) 
   LOCAL cBuffer 
   FSeek( nH, 0, FS_SET ) 
   cBuffer := Space( FSize( nH ) ) 
   FRead( nH, @cBuffer, Len(cBuffer) ) 
   ? cBuffer 
RETURN