非COM环境下的接口编程--问题，技巧，应用（二）[9]

function tfoomanager.getfoonum: integer;

begin

 result:=foonum;

end;

dll中仅有的两个导出函数：

function getfoomanintf:ifoomanager;stdcall;

begin

 if not assigned(fooman) then

 begin

  fooman:=tfoomanager.create;

 end;