Basic Univers
; Permet d'afficher automatiquement le message d'erreur correspondant à la dernière erreur.
; Le texte de l'erreur est celui proposé par le compilateur PB.

Procedure.l ErrorBox(msg.s = #NULL$)
 
  If msg = #NULL$
    msg = Space(4096)
    FormatMessage_(#FORMAT_MESSAGE_FROM_SYSTEM, 0, GetLastError_(), 0, msg, Len(msg), 0)
  EndIf
 
  MessageRequester(GetFilePart(#PB_Compiler_File), msg, #MB_ICONERROR)
 
EndProcedure

If ReadFile(0, "no-file.txt") Or ErrorBox()
  Debug "ok"
  CloseFile(0)
EndIf

If ExamineDirectory(0, "no-dir", "") Or ErrorBox()
  Debug "ok"
EndIf