ExtractFilePath aus einem String mit zwei Dateiangaben

[Popov]

Vorausgesetzt da ist kein Netzwerk-Pfad drin:

Delphi-Quellcode:

uses
  StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1, s2: String;
  p1, p2: Integer;
begin
  s := '"C:\Hello\You.exe C:\Bye\You.exe"';

  if Length(s) > 0 then  //entfent Anführungszeichen, falls vorhenden
    if s[1] = '"' then Delete(s, 1, 1);

  if Length(s) > 0 then  //entfent Anführungszeichen, falls vorhenden
    if s[Length(s)] = '"' then Delete(s, Length(s), 1);

  p1 := PosEx(':\', s, 0); //Für PosEx StrUtils in uses einfügen
  p2 := PosEx(':\', s, p1 + 1);

  if p2 > p1 then
  begin
    s1 := Copy(s, 1, p2 - 1);
    s2 := Copy(s, P2 - 1, MaxInt);
  end
  else
  begin
    s1 := s;
    s2 := '';
  end;

  ShowMessage(
    'Path1: ' + ExtractFilePath(s1) + ^j +
    'Path2: ' + ExtractFilePath(s2));
end;