ok hab den code etwas geändert und alles als const übergeben:
Delphi-Quellcode:
procedure TIxionPlugInSystem.LoadPlugIn(FFilename: string);
var
aProc: TProcInitPlg;
hDLL: HWND;
fProc: TFarProc;
inter: IIxion;
begin
hDll := LoadLibrary(PChar(FFilename));
if hDLL <> 0 then begin
fProc := GetProcAddress(hDLL,'init');
if fProc = nil then exit;
@aProc := fProc;
aProc(Self, hDll);
AddHLib(hDLL);
end;
end;
Jetzt klappt es
Jedoch habe ich keine ahnung was ein Referenzzähler ist oder wie man im Debugger zeilenweise vorrückt
