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;