dkints.pas

来自「EXE+BPL+DLL+Interface項目解決方案演示 經典」· PAS 代码 · 共 31 行

{*******************************************************
{程 序 员:杨茂峰---(建立日期:2005-2-3)
{版　　本:
{修改日期:2005-2-3
{说　　明:本项目中的接口定义
{*******************************************************}

unit dkInts;

interface

//==============================================================================
// 定义动作
//==============================================================================
const
  CMD_BASE = 1000;
  CMD_CREATE_FORM = CMD_BASE + 1;
  CMD_CLOSE_FORM = CMD_BASE + 2;
  
  CMD_BEFORE_EXECUTE = CMD_BASE + 100;

type
  IModelInts = interface
    function ExecuteCmd(CmdIndex: Integer; Param1, Param2: Integer): HResult;
  end;

implementation

end.