Browse Source

* No SysErrorMessage on WinCE ?

git-svn-id: trunk@21935 -
michael 13 years ago
parent
commit
78bfc145c1
1 changed files with 1 additions and 7 deletions
  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}