Trennen von Pfad und Parameter

[himitsu]

ungetestet

Delphi-Quellcode:

Procedure Split(Const S: String; Var Datei, Parameter: String);
  Var B: Boolean;
    i:   Integer;

  Begin
    B := False;
    i := 0;
    Repeat
      Inc(i);
      While (i <= Length(S)) and (S[i] <> ' ') or B do Begin
        If S[i] = '"' Then B := not B;
        Inc(i);
      End;
      Datei := StringReplace(Copy(S, 1, i - 1), '"', '', [rfReplaceAll]);
    Until FileExists(Datei) or (i > Length(S));
    Parameter := Trim(Copy(S, i, Length(S)));
  End;

Für FileExists würde ich aber 'ne Version empfehlen, welche Suchpfade (z.B. aus %PATH%) mit durchtestet und als Standardverzeichnis bei C:\Windows oder doch C:\Windows\System32 (müßte man mal ausprobieren, wo Windows anfängt mit suchen)


@Sir Rufo: hast leider geschrieben, wärend ich schrieb und ich hab nich alles gelesen
Aber Windows läß leider sowas wie C zu ... drum machen es viele noch so ... würden die endlich mal strikt ihre Konventionen durchsetzen, gäb's sowas wie C nicht (OK, 90% der Programme würden nicht mehr laufen)