paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed trailing space in commandline of tools

Browse Source 
git-svn-id: trunk@461 -
This commit is contained in:
lazarus 2001-11-27 15:35:06 +00:00
parent 1a07b8319a
commit e65de1397a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/exttooldialog.pas
View File

@ -221,7 +221,7 @@ end;
function TExternalToolList.Run(Index: integer;
Macros: TTransferMacroList): TModalResult;
var WorkingDir, Filename, Params: string;
var WorkingDir, Filename, Params, CmdLine: string;
TheProcess: TProcess;
begin
Result:=mrCancel;
@ -232,10 +232,13 @@ begin
if Macros.SubstituteStr(Filename)
and Macros.SubstituteStr(WorkingDir)
and Macros.SubstituteStr(Params) then begin
writeln('[TExternalToolList.Run] ',Filename,' ',Params);
CmdLine:=Filename;
if Params<>'' then
CmdLine:=CmdLine+' '+Params;
writeln('[TExternalToolList.Run] ',CmdLine);
try
CheckIfFileIsExecutable(Filename);
TheProcess:=TProcess.Create(Filename+' '+Params,[poRunSuspended,
TheProcess:=TProcess.Create(CmdLine,[poRunSuspended,
poUsePipes, poNoConsole]);
TheProcess.CurrentDirectory:=WorkingDir;
{TheProcess := TProcess.Create(nil);