uinterface.pas

来自「一个很简洁的COM接口源码」· PAS 代码 · 共 16 行

unit uInterface;

interface

type
  IInfo = interface
  ['{9A3E40B0-1193-491C-A3BB-5875B35534BD}']
    procedure ShowInfo; stdcall;
    procedure SetInfo(p: PChar); stdcall;
    procedure FreeObj; stdcall;
  end;

implementation

end.