- // in der DLL
- type pCallBack = procedure(wert1,wert2: Integer);
- var CallBack: pCallback;
- procedure SetCallBack(_callback: pCallBack);
- begin
- @Callback:=@_CallBack;
- end;
- procedure CallIt;
- begin
- CallBack(123,456);
- end;
- // in der EXE
- procedure TestCallBack(wert1, wert2: Integer); stdcall;
- begin
- // was weiss ich
- end;
- begin
- SetCallBack(TestCallBack);
- CallIt;
- end.