Pfade vegleichen...

[Matze]

Nur schnell hingetippt:

Delphi-Quellcode:

function PathIncluded(Path1, Path2: string; var MainPath: string): Boolean;
begin
  Path1 := IncludeTrailingBackslash(Path1);
  Path2 := IncludeTrailingBackslash(Path2);

  if Length(Path1) < Length(Path2) then
  begin
    if Pos(Path1, Path2) = 1 then
    begin
      MainPath := Path1;
      result := true;
    end;
  end
  else if Length(Path1) > Length(Path2) then
  begin
    if Pos(Path2, Path1) = 1 then
    begin
      MainPath := Path2;
      result := true;
    end;
  end else
    result := false;
end;

Das liefert dir true zurück, falls der eine Pfad im anderen enthalten ist und über den var-Parameter MainPath wird der "Hauptpfad" zurückgegeben.