GetProcAddress Error "Left side cannot be assigned to"

[MyRealName]

ich habe einige Sachen mit DLLs die dynamisch geladen werden, aber stosse gerade in einem neuen Projekt auf den Fehler in folgender Routine :

Code:

procedure TForm2.Button1Click(Sender: TObject);
var JmpPoint : TProc;
    Handle : HMODULE;
begin
    Handle := LoadLibrary(PChar(''));
    if Handle <> 0 then begin
      @JmpPoint := GetProcAddress(Handle, PChar('RegisterModules'));
      If Assigned(JmpPoint) Then
        JmpPoint;
    end;
end;

Ja, ich weiss, dass es ein leer-string ist

Welche Einstellung muss beim Projekt gemacht werden, damit der Fehler "Left side cannot be assigned to" nicht mehr kommt ?

Danke schonmal

[Neutral General]

Hast du mal das @ vor dem JmpPoint weggelassen?
Das ist zumindest mal nicht notwendig, evtl sogar falsch.

[MyRealName]

Geht nicht, weil GetProcAdress einen Pointer liefert, JmpPoint aber vom Typ TProc ist.
Den code kann kan in eine leeres VCL app Projekt kopieren mit einem Button oder gleich ins FormShow event, es lässt sich wegen dem Fehler ja nicht kompilieren. Dann kann man selbst gleich sehen, dass ob es geht oder nicht

[peterbelow]

TProc ist ein Delphi-Spezifischer Typ der mehr ist als nur ein simpler Pointer auf eine Funktion. Wenn RegisterModules eine simple prozedur ohne parameter und rückgabewert ist mußt Du JmpPoint wie folgt deklarieren:

var JmpPoint : procedure;

Dann sollte die Zuweisung funktionieren.

[MyRealName]

Das geht, Danke!

[Neutral General]

Alternativ kannst du auch den Rückgabewert von GetProcAddress auf TProc casten. Das sollte dann auch (ohne @) funktionieren.