Passing an object as parameter to a DLL

[rcloutie]

I have a ToolBar defined into the main EXE which needs to be accessed from forms within module DLLs...

2 Options:

1. Is it possible to pass an object as parameter to a DLL?
2. How to share global object variables within one EXE and DLLs?

Any idea?

 

[rcloutie]

This seems to work...
-------------------------------
ExtForm.dll
-------------------------------
library ExtForm;

procedure FormToolBar(tlbMenu: TTlbForm);
begin
tlbForm := tlbMenu;
end;
exports FormToolBar;

--------------------------------
MainMenu.exe
--------------------------------
function FormExternal(sForm: String=''): IFormInterface;
type
TFormToolBar = procedure(tlbMenu: TTlbForm);
var
hExtForm: Cardinal;

function FormExternal(sForm: String=''): IFormInterface;
var tlbExt: TFormToolBar;
begin
Result := nil;
if sForm <> '' then
begin
hExtForm := LoadLibrary('ExtForm.dll');
if hExtForm <> 0 then
begin
@tlbExt:=GetProcAddress(hExtForm, 'FormToolBar');
if @tlbExt <> nil then tlbExt(tlbMenu);
end;
if hExtForm <> 0 then
Result := FormModule(GetProcAddress(hExtForm,
PChar('Get' + sForm)));
end

else
if hExtForm <> 0 then FreeLibrary(hExtForm);
end;