DLL ignorieren wenn nicht im Pfad

[lbccaleb]

Prüfe zu erst ob die Datei existent ist (FileExists) und dann führe LoadLibary aus.

Ich hatte das auch mal gemacht:

Delphi-Quellcode:

          if FileExists(ExtractFilePath(paramstr(0)) + szOSADSDLL) then begin;
            if not OSADSPlugIn_Load then
              raise Exception.Create(szLoadPlugInErr)
            else AppendMenu(hToolSubMenu, MF_STRING, 1101, 'OSADS DB Scan PlugIn');
          end;

Delphi-Quellcode:

function OSADSPlugIn_Load: Boolean;
begin
  Result := False;
  hOSADSDll := LoadLibrary(PChar(ExtractFilePath(paramstr(0)) + szOSADSDLL));
  if hOSADSDll <> 0 then begin
    OSADSSendData := GetProcAddress(hOSADSDll, 'SendData');
    Result := Assigned(OSADSSendData);
  end
  else OSADSPlugIn_Close;
end;

Oder hab ich dich jetzt falsch verstanden ? oO