浏览代码

+ missing unicodestring version of ExpandUNCFileName
* make ansistring version of ExpandUNCFileName call the unicodestring version

git-svn-id: branches/cpstrrtl@25045 -

Jonas Maebe 12 年之前
父节点
当前提交
ab9036ecbf
共有 1 个文件被更改,包括 10 次插入1 次删除
  1. 10 1
      rtl/wince/sysutils.pp

+ 10 - 1
rtl/wince/sysutils.pp

@@ -97,10 +97,19 @@ begin
   end;
 end;
 
+
 function ExpandUNCFileName (const filename:string) : string;
+var
+  u: unicodestring;
+begin
+  u:=ExpandUNCFileName(unicodestring(filename));
+  widestringmanager.Unicode2AnsiMoveProc(punicodechar(u),result,DefaultRTLFileSystemCodePage,length(u));
+end;
+
+function ExpandUNCFileName (const filename:unicodestring) : unicodestring;
 { returns empty string on errors }
 var
-  s    : widestring;
+  s    : unicodestring;
   size : dword;
   rc   : dword;
   buf  : pwidechar;