瀏覽代碼

* No SysErrorMessage on WinCE ?

git-svn-id: trunk@21935 -
michael 13 年之前
父節點
當前提交
78bfc145c1
共有 1 個文件被更改,包括 1 次插入7 次删除
  1. 1 7
      rtl/wince/dynlibs.inc

+ 1 - 7
rtl/wince/dynlibs.inc

@@ -65,13 +65,7 @@ Var
   rc : integer;
 begin  
   rc := GetLastError;
-  try
-    result := Trim(SysErrorMessage(rc));
-    if (result='') then
-      result := 'Operating system error 0x' + IntToHex(rc, 8) + ' (no descriptive text)'
-  except
-    result := 'Operating system error 0x' + IntToHex(rc, 8) + ' (error getting descriptive text)'
-  end;
+  str(rc,result);
 end;
 
 {$endif}