Browse Source

* adapted dummy sysutils.executeprocess definitions, patch by Michael Ring, fpc-devel maillist.

git-svn-id: branches/fixes_3_0@33353 -
marco 9 years ago
parent
commit
7b0e1b9e98
1 changed files with 13 additions and 3 deletions
  1. 13 3
      rtl/embedded/sysutils.pp

+ 13 - 3
rtl/embedded/sysutils.pp

@@ -236,14 +236,24 @@ begin
 end;
 end;
 
 
 
 
-function ExecuteProcess (const Path: AnsiString; const ComLine: AnsiString;Flags:TExecuteFlags=[]): integer;
+function ExecuteProcess (const Path: RawByteString; const ComLine: RawByteString;Flags:TExecuteFlags=[]): integer;
 begin
 begin
   result := -1;
   result := -1;
 end;
 end;
 
 
+function ExecuteProcess (const Path: RawByteString;
+                               const ComLine: array of RawByteString;Flags:TExecuteFlags=[]): integer;
+begin
+  result := -1;
+end;
+
+function ExecuteProcess (const Path: UnicodeString; const ComLine: UnicodeString;Flags:TExecuteFlags=[]): integer;
+begin
+  result := -1;
+end;
 
 
-function ExecuteProcess (const Path: AnsiString;
-                                  const ComLine: array of AnsiString;Flags:TExecuteFlags=[]): integer;
+function ExecuteProcess (const Path: UnicodeString;
+                               const ComLine: array of UnicodeString;Flags:TExecuteFlags=[]): integer;
 begin
 begin
   result := -1;
   result := -1;
 end;
 end;