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)