|
@@ -31,6 +31,8 @@ interface
|
|
{$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL}
|
|
{$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL}
|
|
{ OS has an ansistring/single byte environment variable API }
|
|
{ OS has an ansistring/single byte environment variable API }
|
|
{$define SYSUTILS_HAS_ANSISTR_ENVVAR_IMPL}
|
|
{$define SYSUTILS_HAS_ANSISTR_ENVVAR_IMPL}
|
|
|
|
+{ OS has an ansistring/single byte API for executing other processes }
|
|
|
|
+{$DEFINE EXECUTEPROCUNI}
|
|
|
|
|
|
{ Include platform independent interface part }
|
|
{ Include platform independent interface part }
|
|
{$i sysutilh.inc}
|
|
{$i sysutilh.inc}
|
|
@@ -756,11 +758,11 @@ begin
|
|
SysTimerTick := L;
|
|
SysTimerTick := L;
|
|
end;
|
|
end;
|
|
|
|
|
|
-function ExecuteProcess (const Path: AnsiString; const ComLine: AnsiString;Flags:TExecuteFlags=[]):
|
|
|
|
- integer;
|
|
|
|
|
|
+function ExecuteProcess (const Path: RawByteString;
|
|
|
|
+ const ComLine: RawByteString;Flags:TExecuteFlags=[]): integer;
|
|
var
|
|
var
|
|
E: EOSError;
|
|
E: EOSError;
|
|
- CommandLine: ansistring;
|
|
|
|
|
|
+ CommandLine: RawByteString;
|
|
Args0, Args: DosCalls.PByteArray;
|
|
Args0, Args: DosCalls.PByteArray;
|
|
ObjNameBuf: PChar;
|
|
ObjNameBuf: PChar;
|
|
ArgSize: word;
|
|
ArgSize: word;
|
|
@@ -932,8 +934,8 @@ begin
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
-function ExecuteProcess (const Path: AnsiString;
|
|
|
|
- const ComLine: array of AnsiString;Flags:TExecuteFlags=[]): integer;
|
|
|
|
|
|
+function ExecuteProcess (const Path: RawByteString;
|
|
|
|
+ const ComLine: array of RawByteString;Flags:TExecuteFlags=[]): integer;
|
|
|
|
|
|
var
|
|
var
|
|
CommandLine: AnsiString;
|
|
CommandLine: AnsiString;
|