umessageconsts.pas

来自「这是不可多得的源代码」· PAS 代码 · 共 22 行

unit uMessageConsts;

interface

const
  MY_BASE                   = $BE00;
  MY_MESSAGE1               = MY_BASE + 01;
  MY_MESSAGE2               = MY_BASE + 02;
  MY_MESSAGE3               = MY_BASE + 03;
  MY_MESSAGE4               = MY_BASE + 04;
  MY_MESSAGE5               = MY_BASE + 05;
  MY_MESSAGE6               = MY_BASE + 06;

  AUDIHandler               = 'AUDI';
  BMWHandler                = 'BMW';
  BenzBuilderHandler        = 'Benz';
  LexusHanlder              = 'Lexus';

IMPLEMENTATION

end.