hmstatusintf.pas

来自「Delphi三层原代码掩饰及补丁」· PAS 代码 · 共 23 行

unit hmStatusIntf;

interface

type
  IStatus = interface
    ['{64FF0760-9665-43D8-8A57-23A8D8A74F67}']
    function AddWarningMsg(Msg: WideString): Boolean; safecall;
    function AddInfomationMsg(Msg: WideString): Boolean; safecall;
    function AddErrorMsg(Msg: WideString): Boolean; safecall;
    function AddScriptMsg(CtlName:WideString;Msg: WideString): Boolean; safecall;
    function LastMsg: WideString; safecall;
    function ClearMsg: Boolean;
    function GetActive: Boolean;
    procedure SetActive(Value: Boolean);
    property Active: Boolean read GetActive write SetActive;
  end;

implementation

end.