API - mensagens de erro e Win32Check

Top  Previous  Next

// Funcoes para Erro da Win-API:

 

  // tenta abrir arquivo não existente

  CreateFile('naoexiste.txt'0, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

  // Mostra mensagem de erro do Windows

  ShowMessage(SysErrorMessage(GetLastError));

 

  // Este retornar TRUE para OK e FALSE para ERRO

  // tenta mover arquivo não existente

  Win32Check(MoveFile('naoexiste.txt','estetambemnao.txt'));