git-svn-id: trunk@21935 -
@@ -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}