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:

zusammenfalten · markieren

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:

markieren

Delphi-Quellcode:

			if pfmRegistry.TDeleteKey(PChar('Hallo')) then

    ShowMessage('Funktioniert')

  else

    ShowMessage('Funktioniert nicht');

lg

Sir K

Dll zur lauzeit Einbinden

Dll zur lauzeit Einbinden

Forumregeln