uinterface.pas

一个很简洁的COM接口源码

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.