resource.~pas

M2原代码 M2原代码

unit Resource;

interface
const
  RESLIBRARYFILENAME  = '.\Res.dll';
const
  MAINDIALOG          = 1000;
  MAINDIALOG_MEMO     = 1000;
  MAINDIALOG_STATUS   = 1001;
  MAINDIALOG_LABLE1   = 1002;
  MAINDIALOG_LABLE2   = 1003;
  MAINDIALOG_LABLE3   = 1004;
  MAINDIALOG_LABLE4   = 1005;
  MAINDIALOG_LABLE5   = 1006;
  MAINDIALOG_LABLE6   = 1007;
  MAINDIALOG_LABLE7   = 1008;

  MAINMENU            = 3000;
  MENU_CONTROL_START  = 3010;
  MENU_CONTROL_STOP   = 3011;
  MENU_CONTROL_EXIT   = 3012;

  STRING_ENGINE_TITLE = 1000;
  STRING_GATE_STATUS0 = 1100;
  STRING_GATE_STATUS1 = 1101;
  STRING_GATE_STATUS2 = 1102;
  STRING_GATE_STATUS3 = 1103;
  STRING_GATE_STATUS4 = 1104;
  STRING_GATE_STATUS5 = 1105;
  STRING_GATE_STATUS6 = 1106;
var
  hResInstance     :LongWord;
implementation

end.