KEINE Nachricht an Programm schicken ...

[brechi]

Delphi-Quellcode:

// hauptprogramm

// wird von der dll aufgerufen
procedure CallBack(a,b,c...) stdcall;
begin
  // mach was
end;

procedure InitCallBack;
var SetCallBack: procedure(P: Pointer); stdcall;
begin
  SetCallBack := GetProcAddress(LoadLibrary('dllname.dll'), SetCallBack);
  SetCallBack(@CallBack);
end;

// dll

var CallBackFunction: procedure(a,b,c...); stdcall;

function SetCallBack(P: Pointer); stdcall;
begin
  CallBackFunction := p;
end;

// wenn nun vom hautpprogramm der callback aufgerufne werden soll:
  if @CallBackFunction <> nil then
    CallBckFuncion(a,b,c...);