Parsen von DateiPfaden und Parametern

[Synonym]

Hi,

ich habe folgendes Problem...

Ich habe einen String in dieser Form: c:\programme\programm.exe -f "c:\blabla..isu" -c c:\lala.conf

Jetzt möchte ich diesen String in Zwei Teile teilen, einmal

c:\programme\programm.exe und einmal den rest...Das klappt auch, doch es kann auch vorkommen das der String in dieser Form auftritt:

c:\programme\programm.exe

Wenn ich dann parse kommt ales ergebnis nur ein c:\

Vielleicht kann mir jemand helfen, denn ich muss die beiden Strings der shellexecute übergeben...

Code:

var
str,str1 : string;
counter : integer;
begin

counter := pos('.exe',listbox1.items[listbox1.itemindex])+5;
str := copy(listbox1.items[listbox1.itemindex],1,pos('.exe',listbox1.items[listbox1.itemindex])+3);
if length(str) > pos('.exe',listbox1.items[listbox1.itemindex])+2 then
begin
str1:= copy(listbox1.items[listbox1.itemindex],counter,length(listbox1.items[listbox1.itemindex]));
end;

showmessage(str1);
ShellExecute(Application.Handle, 'open', pchar(str), pchar(str1), nil, SW_SHOW);
end;

Synonym