Here a small program which 'demonstrates' the use of the system.pas unit.
-------------------------test.pas------------------------ #include "system.pas"
program Test(Output);
import System;
var f: text; path: string(1024); i: integer;
begin Assign(f, 'tmp.tmp'); Erase(f); writeln('IOResult = ', IOResult); Assign(f, 'q.pas.bak'); BPRename(f, 'renamed.file'); writeln('IOResult = ', IOResult); GetDir(0, path); writeln('Current dir = ', path); BPMkDir('mydir'); writeln('IOResult = ', IOResult); BPRmDir('mydir'); writeln('IOResult = ', IOResult); writeln('ParamCount = ', ParamCount); for i := 1 to ParamCount do begin writeln('parameter ', i, ' = ', ParamStr(i)); end; end. -------------------------test.pas------------------------
Groetjes,
Berend. (-: