commonx/CommonInterfaces.pas at master · bintesztelo/commonx · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
unit CommonInterfaces;

//This unit contains interfaces for general-purpose use.
interface
const
  GUID_IUnknownEnhanced : TGUID = '{C3A564C0-3F7B-11D3-AC25-0080C859E788}';
  GUID_IDelegatedLifeManager : TGUID = '{C3A564C1-3F7B-11D3-AC25-0080C859E788}';
type
//------------------------------------------------------------------------------
  IUnknownEnhanced = interface(IUnknown)
    ['{C3A564C0-3F7B-11D3-AC25-0080C859E788}']
    function _RefCount: integer; stdcall;
  end;

  ILockableObject = interface
    procedure Lock;
    procedure UnLock;
  end;

  IMonitoredObject = interface(ILockableObject)
    function GetStatus: string;
    function GetCycles: integer;
    property Status: string read GetStatus;
    property cycles: integer read GetCycles;
  end;

implementation

end.