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

 result:=fooman as ifoomanager;

end;

procedure freelib;stdcall;

//释放工厂类

begin

 if assigned(fooman) then

 begin

  fooman.free;

  fooman:=nil;

 end;