Hey Neo,
Det er faktisk super nemt så snart man ved hvordan
Den nemmeste måde er at bruge denne funktion:
{
Split a string at its ' ' (spaces/#32)
into a TStringList.
}
function SplitParams(Params:string): TStringList;
var s:string;
begin
Result:= TStringList.Create;
Result.Add(Params);
repeat
S:= LeftStr(Params,Pos(#32,Params)-1);
Delete(Params,1,Length(s)+1);
Result.Add(s);
until Pos(#32,Params) = 0;
Result.add(s);
s:= '';
end;
Da jeg selv har kodet den, skal du lige tilføje StrUtils til din uses, da LeftStr ligger i det library.
funktionen returerer en "TStringList", med følgende data:
0: HELE kommandoen
1: kommandoen (wget)
2: Første Parameter (
http://lala.dk/fil.zip)3: Anden Paremeter (c:\\fil.zip)
osv.
for at bruge den kan du gøre følgende
var
Par: TStringList;
I:integer;
begin
Par:= SplitParams(Command);
for I := 0 to Par.Count-1 do { do something };
Par.Free;
Jeg har uploadet koden her:
http://kenman.dk/udvikleren/paramex.zipHåber du kan bruge det