Преглед изворни кода

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

git-svn-id: branches/fixes_3_0@33353 -
marco пре 9 година
родитељ
комит
7b0e1b9e98
1 измењених фајлова са 13 додато и 3 уклоњено
  1. 13 3
      rtl/embedded/sysutils.pp

+ 13 - 3
rtl/embedded/sysutils.pp

@@ -236,14 +236,24 @@ begin
 end;
 
 
-function ExecuteProcess (const Path: AnsiString; const ComLine: AnsiString;Flags:TExecuteFlags=[]): integer;
+function ExecuteProcess (const Path: RawByteString; const ComLine: RawByteString;Flags:TExecuteFlags=[]): integer;
 begin
   result := -1;
 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
   result := -1;
 end;