Pfad prüfen - 32/64bit DLL

[Uwe Raabe]

Das geht auch recht einfach mit der Split-Funktion:

Delphi-Quellcode:

function FindFileInPathList(const PathList, DllName: string): string;
var
  S: string;
begin
  for S in PathList.Split(';') do begin
    Result := TPath.Combine(S, dllName);
    if TFile.Exists(Result) then Exit;
  end;
  Result := '';
end;