git-svn-id: trunk@11966 -
@@ -697,6 +697,12 @@ function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirSt
begin
ExecuteRedir:=false;
end;
+
+function LocateExeFile(var FileName:string): boolean;
+begin
+ LocateExeFile:=false;
+end;
{$ENDIF SHELL_IMPLEMENTED}
function ChangeRedirOut(Const Redir : String; AppendToFile : Boolean) : Boolean;
@@ -37,6 +37,12 @@ interface
{$ifdef netware}
longint
{$endif netware}
+{$ifdef amiga}
+ longint
+{$endif amiga}
+{$ifdef morphos}
+{$endif morphos}
;
Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
@@ -338,6 +338,16 @@ begin
GetDosTicks := Nwserv.GetCurrentTicks;
{$endif}
+ GetDosTicks := -1;
+{$endif}
procedure DisposeRecord(var R: TRecord);