Programmpfad mit Parameter

[sECuRE]

Hi,

ich finde die Sache recht einfach: von Zeichen 1 bis zur Position des ersten Leerzeichens geht der Programmpfad, wenn selbiger Leerzeichen enthält, muss der Pfad in Anführungszeichen gestellt sein. Alles darauf Folgende sind dann Parameter. Programmiertechnisch umsetzten würde ich das ganze so:

Delphi-Quellcode:

function GetProgramName(const AInput:string):string;
begin
if (Pos(' ',AInput) = 0) then
  result:=AInput
else if (copy(AInput,1,1) = '"') then
  result:=copy(AInput,1,Pos('"',copy(AInput,2,length(AInput))))
else result:=copy(AInput,1,Pos(' ',AInput)-1);
end;

// ...
ShowMessage('Das Program heißt "'+GetProgramName(ReadFromRegistry)+'"');

if (copy(ReadFromRegistry,1,1) = '"') then
  Parameters:=copy(ReadFromRegistry,length(GetProgramName)+3,length(ReadFromRegistry))
else Parameters:=copy(ReadFromRegistry,length(GetProgramName)+1,length(ReadFromRegistry));

ShowMessage('Die Parameter lauten "'+Parameters+'"');

cu