Windows - funcao GetLastError

Capturar a ultima mensagem de erro apresentada pelo Windows

function UltimoErroWin32:string;

const

  MessageSize = 1024;

var

  OutPutMessage: array[0..MessageSize] of char;

  Error        : Cardinal;

begin

  Error := GetLastError;

  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, Error, 0, OutPutMessage, MessageSize, nil);

  Result := OutPutMessage;

end;