浏览代码

* fix compilation after UnicodeString ExecuteProcess related changes

git-svn-id: trunk@33899 -
Tomas Hajny 9 年之前
父节点
当前提交
293d9be6b6
共有 1 个文件被更改,包括 7 次插入5 次删除
  1. 7 5
      rtl/os2/sysutils.pp

+ 7 - 5
rtl/os2/sysutils.pp

@@ -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;