getlasterror

Ответ от -[новичек]
Используйте следующую функцию, для определения описания ошибки:
function GetLastErrorText: string;
var Error: DWord;
begin
SetLength(Result, 1024);
Error := GetLastError;
if FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, Error, 0, @Result[1], Length(Result), nil) <> 0 then
begin
if Pos(#0, Result) > 0 then SetLength(Result, Pos(#0, Result) - 1);
end
else
Result := 'Unknown error';
Result := Format('Error %d: %s', [Error, Trim(Result)]);
end;
Ошибка с кодом "5" означает: "Error 5: Отказано в доступе."