home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
vp21beta.zip
/
LEXMPSRC.RAR
/
RUN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
2000-08-15
|
779b
|
25 lines
{█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
{█ █}
{█ Virtual Pascal for Linux █}
{█ Test example for execution of processes █}
{█ ─────────────────────────────────────────────────█}
{█ Copyright (C) 1999 Joerg Pleumann █}
{█ █}
{▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
program Run;
uses
Dos;
begin
FileSystem := fsDosLower;
WriteLn('Calling child process...');
Exec('c:INFO', 'Argument-ONE "Argument T W O" Argument_THREE ''Argument 4 4 4 4 FOUR''');
WriteLn('Child process terminated with Code ', DosExitCode, '.');
end.