forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added tool option, parameters can be passed from a dialog

This commit is contained in:
Basile Burg 2014-12-06 02:26:31 +01:00
parent 1e63f7d6e9
commit 3db69ee89e
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_tools.pas
View File

@ -19,6 +19,7 @@ type
fOpts: TProcessOptions; fOpts: TProcessOptions;
fParameters: TStringList; fParameters: TStringList;
fToolAlias: string; fToolAlias: string;
fQueryParams: boolean;
//fShortcut: string; //fShortcut: string;
fLogMessager: TCELogMessageSubject; fLogMessager: TCELogMessageSubject;
procedure setParameters(const aValue: TStringList); procedure setParameters(const aValue: TStringList);
@ -30,6 +31,7 @@ type
property workingDirectory: string read fWorkingDir write fWorkingDir; property workingDirectory: string read fWorkingDir write fWorkingDir;
property parameters: TStringList read fParameters write setParameters; property parameters: TStringList read fParameters write setParameters;
property showWindows: TShowWindowOptions read fShowWin write fShowWin; property showWindows: TShowWindowOptions read fShowWin write fShowWin;
property queryParameters: boolean read fQueryParams write fQueryParams;
//property shortcut: string read fShortcut write fShortcut; //property shortcut: string read fShortcut write fShortcut;
public public
constructor create(ACollection: TCollection); override; constructor create(ACollection: TCollection); override;
@ -66,7 +68,7 @@ Var
implementation implementation
uses uses
ce_symstring; ce_symstring, dialogs;
constructor TCEToolItem.create(ACollection: TCollection); constructor TCEToolItem.create(ACollection: TCollection);
begin begin
@ -92,6 +94,7 @@ end;
procedure TCEToolItem.execute; procedure TCEToolItem.execute;
var var
i: Integer; i: Integer;
prms: string;
begin begin
killProcess(fProcess); killProcess(fProcess);
// //
@ -102,7 +105,12 @@ begin
fProcess.Executable := symbolExpander.get(fExecutable); fProcess.Executable := symbolExpander.get(fExecutable);
fProcess.ShowWindow := fShowWin; fProcess.ShowWindow := fShowWin;
fProcess.CurrentDirectory := symbolExpander.get(fWorkingDir); fProcess.CurrentDirectory := symbolExpander.get(fWorkingDir);
fProcess.Parameters.Clear; if fQueryParams then
begin
prms := '';
if InputQuery('Parameters', '', prms) then
if prms <> '' then fProcess.Parameters.DelimitedText := symbolExpander.get(prms);
end;
for i:= 0 to fParameters.Count-1 do for i:= 0 to fParameters.Count-1 do
fProcess.Parameters.AddText(symbolExpander.get(fParameters.Strings[i])); fProcess.Parameters.AddText(symbolExpander.get(fParameters.Strings[i]));
fProcess.Execute; fProcess.Execute;