19 lines
479 B
ObjectPascal
19 lines
479 B
ObjectPascal
{$apptype windows}
|
|
|
|
var p: System.Diagnostics.Process;
|
|
i: integer;
|
|
|
|
begin
|
|
try
|
|
p := new System.Diagnostics.Process();
|
|
p.StartInfo.UseShellExecute := false;
|
|
p.StartInfo.CreateNoWindow := true;
|
|
p.StartInfo.FileName := CommandLineArgs[0];
|
|
p.StartInfo.Arguments := '"'+CommandLineArgs[1]+'"';
|
|
for i:=2 to CommandLineArgs.Length-1 do
|
|
p.StartInfo.Arguments := p.StartInfo.Arguments + ' ' + '"'+CommandLineArgs[i]+'"';
|
|
p.Start;
|
|
p.WaitForExit;
|
|
except
|
|
end;
|
|
end. |