Просмотр исходного кода

* dummy executeprocess routines fix, by Michael Ring, fpc-devel list.

git-svn-id: trunk@33355 -
marco 9 лет назад
Родитель
Сommit
e7eb7d7415
1 измененных файлов с 13 добавлено и 3 удалено
  1. 13 3
      rtl/embedded/sysutils.pp

+ 13 - 3
rtl/embedded/sysutils.pp

@@ -255,14 +255,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;