Dll zur lauzeit Einbinden

[Sir K]

Ok hab mir das jetzt mal angesehn und was merkwürdiges festgestellt.

Diese routine wird beim aufruf immer wieder ausgeführt, bis die Meldung eine StackOverFlow exception auftritt.
Weis jemand woran das liegt?

heíer nochmal die routine:

Delphi-Quellcode:

function DeleteKey(AKey: PChar): Boolean;
var
  ltDeleteKey: TDeleteKey;
  lhHandle: THandle;
begin
  lhHandle:=LoadLibrary(PChar(gsPfmRegistry));
  if lhHandle <> 0 then
    begin
      @ltDeleteKey:=GetProcAddress(lhHandle, 'DeleteKey');
      if @ltDeleteKey <> nil then
        Result:=DeleteKey(AKey);
      FreeLibrary(lhHandle);
    end;

lg

Sir K