Installationspfad Formatieren

[baumina]

Unabhängig vom Sinn der Aktion hätte ich dir hier einen Lösungsweg:

Delphi-Quellcode:

  S := 'c:\Programme\test und mehr\xxx';
  Delete(S, 1, length(ExtractFileDrive(S)));
  if IsPathDelimiter(S,1) then
  begin
    Delete(S, 1, 1);
  end;
  If copy(AnsiLowerCase(S), 1, 10) <> IncludeTrailingPathDelimiter('programme') then
  begin
    showmessage('der Pfad muss "Programme" lauten');
  end else
  begin
    showmessage('OK');
  end;