Hallo Emil,
ich weiß nicht wo du einen rekursiven Aufruf von BBP_Plugin() siehst.
Irgendwo musst du etwas ähnliches wie das hier gemacht haben:
Delphi-Quellcode:
const
LIB_NAME = '
?';
type
TBbpPluginRec =
record
Msg: Integer;
ParentWindow: Integer;
DC: Integer;
// ...
end;
TBbpPluginFunc =
function (
var bbp: TBbpPluginRec): Integer;
var
BbpPluginFunc: TBbpPluginFunc;
hLib: THandle;
begin
// hLib := LoadLibrary(LIB_NAME);
// error check ...
@BbpPluginFunc := GetProcAddress(hLib, '
BBP_Plugin');
// ...
end
Der Code aus deinem Beitrag #1 kapselt einfach den dynamischen Aufruf der
DLL-Funktion:
Delphi-Quellcode:
function BBP_Plugin(var bbp: TBbpPluginRec): Integer;
begin
// ...
Result := BbpPluginFunc(bbp);
end;
Die Werte für Author, Title etc. werden im Record bbp zurückgegeben.
Gute Nacht