Fehler beim laden einer Funktion aus einer Dll

[barf00s]

Zitat:

bei Funktionen klappt das mit Assigned nicht mehr, vor allem wenn die Funktion nur einmal ausgefuehrt werden darf

desderwegen macht man auch ein ²@² vor die funktion beim laden/testen -

Delphi-Quellcode:

procedure LoadDllBlah;
var
  hDll: cardinal;
  xFunction: function(Handle: cardinal; sText, sCaption: PChar; iOptions: integer): integer; stdcall;

begin
  hDll := LoadLibrary('user32.dll');
  if hDll <> 0 then begin
    @xFunction := GetProcAddress(hDll, 'MessageBoxA');
    if Assigned(@xFunction) then
      xFunction(0, 'blah', 'fasl', MB_OK);
    FreeLibrary(hDll);
  end;
end;