messages.pp 289 B

12345678910111213141516171819202122
  1. {$IFNDEF FPC_DOTTEDUNITS}
  2. unit Messages;
  3. {$ENDIF FPC_DOTTEDUNITS}
  4. interface
  5. {$IFDEF FPC_DOTTEDUNITS}
  6. uses
  7. WinApi.Windows;
  8. {$ELSE FPC_DOTTEDUNITS}
  9. uses
  10. windows;
  11. {$ENDIF FPC_DOTTEDUNITS}
  12. {$DEFINE read_interface}
  13. {$DEFINE MESSAGESUNIT}
  14. {$I messages.inc}
  15. implementation
  16. end.