allow the custom tools params to be temp disabled

This commit is contained in:
Basile Burg 2015-09-05 22:53:48 +02:00
parent 5e21c66f2a
commit e9aefad611
1 changed files with 6 additions and 7 deletions

View File

@ -154,8 +154,7 @@ end;
procedure TCEToolItem.execute; procedure TCEToolItem.execute;
var var
i: Integer; prm: string;
prms: string;
begin begin
ce_processes.killProcess(fProcess); ce_processes.killProcess(fProcess);
// //
@ -171,12 +170,12 @@ begin
fProcess.CurrentDirectory := symbolExpander.get(fWorkingDir); fProcess.CurrentDirectory := symbolExpander.get(fWorkingDir);
if fQueryParams then if fQueryParams then
begin begin
prms := ''; prm := '';
if InputQuery('Parameters', '', prms) then if InputQuery('Parameters', '', prm) then
if prms <> '' then fProcess.Parameters.DelimitedText := symbolExpander.get(prms); if prm <> '' then fProcess.Parameters.DelimitedText := symbolExpander.get(prm);
end; end;
for i:= 0 to fParameters.Count-1 do for prm in fParameters do if not isStringDisabled(prm) then
fProcess.Parameters.AddText(symbolExpander.get(fParameters.Strings[i])); fProcess.Parameters.AddText(symbolExpander.get(prm));
ensureNoPipeIfWait(fProcess); ensureNoPipeIfWait(fProcess);
fProcess.Execute; fProcess.Execute;
end; end;