dll之间对象共享的问题

经常有人提问：说自己的项目是由许多DLL打包方式组织的，各个DLL之间的对象如何共享访问？

 

这其实很简单：只要共享对象创建后，把它的指针保存进一个大家都可以访问 的地方，需要的时候就去取。

 

我说用INI文件暂存共享对象指针也行。为了证明特别写了几行代码：

 

uses inifiles;

procedure TForm1.Button2Click(Sender: TObject);
var
  ini: tinifile;
  h: integer;
begin
  ini := tinifile.Create(extractfilepath(application.ExeName)+'me.ini');
  ini.WriteInteger('t', 'p', Integer(button1.Handle));

  h := ini.ReadInteger('t', 'p', 0);
  tbutton(FindControl(h)).Caption := 'ha';
  ini.Free;
end;