paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/fixes_3_0@33353 -
This commit is contained in:
marco 2016-03-27 19:25:35 +00:00
parent a7d3acd6ab
commit 7b0e1b9e98
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/embedded/sysutils.pp
View File

@ -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: AnsiString;
const ComLine: array of AnsiString;Flags:TExecuteFlags=[]): integer;
function ExecuteProcess (const Path: UnicodeString; const ComLine: UnicodeString;Flags:TExecuteFlags=[]): integer;
begin
result := -1;
end;
function ExecuteProcess (const Path: UnicodeString;
const ComLine: array of UnicodeString;Flags:TExecuteFlags=[]): integer;
begin
result := -1;
end;