Wie lade ich eine DLL zur Laufzeit.

[wschrabi]

Hab' schon:
das hat gefehlt.

Delphi-Quellcode:

type
  TMyProcedure = procedure; stdcall;

var
  MyMouseHookProc: TMyProcedure;

und im Implementations Teil:

Delphi-Quellcode:

procedure TForm1.FormCreateHOOK;
begin
  // Laden der DLL
  //DLLHandle := LoadLibrary(Extractfilepath(Application.exename)+'MouseHookDLL.dll');
  DLLHandle := winapi.windows.LoadLibrary('DLLMouseHook.dll');
  if DLLHandle <> 0 then
  begin
    // Setzen des globalen Hooks mit der in der DLL definierten Prozedur
    @MyMouseHookProc := GetProcAddress(DLLHandle, 'MouseHookProc');
    if Assigned(@MyMouseHookProc) then
    begin
      MouseHook := SetWindowsHookEx(WH_MOUSE_LL, @MyMouseHookProc, DLLHandle, 0);
      if MouseHook = 0 then
        ShowMessage('Failed to set hook: ' + SysErrorMessage(GetLastError));
    end;
  end;
end;

Doch noch eine FRAGE:

WIe kann ich von der DLL zwei Integerwerte (X,Y) in das Hauptprogramm übergeben?
DANKE