|
@@ -100,9 +100,6 @@ End;
|
|
{******************************************************************************
|
|
{******************************************************************************
|
|
--- Exec ---
|
|
--- Exec ---
|
|
******************************************************************************}
|
|
******************************************************************************}
|
|
-var
|
|
|
|
- LastDosExitCode: word;
|
|
|
|
-
|
|
|
|
Procedure Exec(const path: pathstr; const comline: comstr);
|
|
Procedure Exec(const path: pathstr; const comline: comstr);
|
|
var p:string;
|
|
var p:string;
|
|
argv:ppchar;
|
|
argv:ppchar;
|
|
@@ -123,11 +120,6 @@ begin
|
|
LastDosExitCode:=status and $FF; { only keep the lower 8-bits }
|
|
LastDosExitCode:=status and $FF; { only keep the lower 8-bits }
|
|
end;
|
|
end;
|
|
|
|
|
|
-Function DosExitCode: Word;
|
|
|
|
-Begin
|
|
|
|
- DosExitCode:=LastDosExitCode;
|
|
|
|
-End;
|
|
|
|
-
|
|
|
|
|
|
|
|
function GetTimeZoneString : string;
|
|
function GetTimeZoneString : string;
|
|
begin
|
|
begin
|
|
@@ -152,7 +144,10 @@ end;
|
|
|
|
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.2 2003-01-08 22:32:28 marco
|
|
|
|
|
|
+ Revision 1.1 2004-12-05 16:43:40 hajny
|
|
|
|
+ * dos.inc renamed to dos_beos.inc
|
|
|
|
+
|
|
|
|
+ Revision 1.2 2003/01/08 22:32:28 marco
|
|
* Small fixes and quick merge with 1.0.x. At least the compiler builds now,
|
|
* Small fixes and quick merge with 1.0.x. At least the compiler builds now,
|
|
but it could crash hard, since there are lots of unimplemented funcs.
|
|
but it could crash hard, since there are lots of unimplemented funcs.
|
|
|
|
|