* Fixed compilation when RtlString=AnsiString.

git-svn-id: branches/unicodertl@12135 -

rtl/win/sysdir.inc

@@ -36,7 +36,7 @@ end;
 
 function CreateDirectoryTrunc(name:PRtlChar):longbool;stdcall;
 begin
-  CreateDirectoryTrunc:=CreateDirectory(name,nil);
+  CreateDirectoryTrunc:=CreateDirectory(_W(name),nil);
 end;
 
 procedure mkdir(const s:RtlString);[IOCHECK];
@@ -82,7 +82,7 @@ const
   Drive:array[0..3]of RtlChar=(#0,':',#0,#0);
 var
   defaultdrive:boolean;
-  DirBuf,SaveBuf:array[0..259] of RtlChar;
+  DirBuf,SaveBuf:array[0..259] of WideChar;
 {$endif WINCE}
 begin
 {$ifndef WINCE}

rtl/win/sysfile.inc

@@ -39,7 +39,7 @@ end;
 procedure do_erase(p : PRtlChar);
 begin
    DoDirSeparators(p);
-   if DeleteFile(p)=0 then
+   if DeleteFile(_W(p))=0 then
     Begin
       errno:=GetLastError;
       if errno=5 then
@@ -56,7 +56,7 @@ procedure do_rename(p1,p2 : PRtlChar);
 begin
   DoDirSeparators(p1);
   DoDirSeparators(p2);
-  if MoveFile(p1,p2)=0 then
+  if MoveFile(_W(p1),_W(p2))=0 then
    Begin
       errno:=GetLastError;
       Errno2InoutRes;