getlasterror [D5]
kvi © (2006-07-06 17:39:00)
Как получить таблицу расшифровки кодов
к ошибкам для getlasterror ?
Заранее благодарен
KVI.
BiN (2006-07-06 17:44:00) [1]
{ System error messages }
function SysErrorMessage(ErrorCode: Integer): string;
var
Buffer: array[0..255] of Char;
{$IFDEF MSWINDOWS}
var
Len: Integer;
begin
Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_IGNORE_INSERTS or
FORMAT_MESSAGE_ARGUMENT_ARRAY, nil, ErrorCode,
0, Buffer,
SizeOf(Buffer), nil);
while (Len > 0) and (Buffer[Len - 1] in [ #0..#32,
'.']) do Dec(Len);
SetString(Result, Buffer, Len);
end;
{$ENDIF}
{$IFDEF LINUX}
begin
//Result := Format('System error: %4x',[ErrorCode]);
Result := strerror_r(ErrorCode, Buffer,
sizeof(Buffer));
end;
{$ENDIF}
(c) Sysutils
Наверх 
ЧАТ |
Орешник |
|
