umessageconsts.pas

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

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.