Dll zur lauzeit Einbinden

[Sir K]

Hallo alle miteinander xD,

ich hab ein kleines Problem undd zwar möchte ich ein dll zu Laufzeit einbinden und bekomme bein aufruf immer die compilermeldung "nicht genügen wirkliche Parameter".

Schnittstell in einer ExtraUnit:

Delphi-Quellcode:

type
  TDeleteKey = function(AKey: PChar): Boolean; stdcall;
  function dllDeleteKey(AKey: PChar): Boolean;


implementation

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

Aufruf:

Delphi-Quellcode:

if pfmRegistry.TDeleteKey(PChar('Hallo')) then
    ShowMessage('Funktioniert')
  else
    ShowMessage('Funktioniert nicht');

lg

Sir K