FMX und VCL verbinden

[DeddyH]

Zitat:

Delphi-Quellcode:

initialization
  if DllHandle = 0 then begin
    DllHandle := LoadLibrary('ProjectDLL.dll');
    if DllHandle > 0 then begin
      TestProc := GetProcAddress(DllHandle, 'TestProc');
      // Wozu denn das?
      DllHandle := LoadLibrary('ProjectDLL.dll');
    End else begin
      MessageDlg('ProjectDLL.dll steht nicht zur Verfügung', mtInformation, [mbOK], 0);
    end;
end;

Wieso lädst Du die DLL noch einmal, wenn sie bereits erfolgreich geladen wurde?