paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 02:47:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

external tools are not running visibly anymore

Browse Source 
git-svn-id: trunk@5988 -
This commit is contained in:
vincents 2004-09-12 21:45:18 +00:00
parent 3aa5b946df
commit e87765f977
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/exttooldialog.pas
View File

@ -39,8 +39,8 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, LCLType, Controls, Forms, Buttons, StdCtrls, ComCtrls,
Dialogs, LResources, Laz_XMLCfg, ExtToolEditDlg, Process,
Classes, SysUtils, LCLType, LCLProc, Controls, Forms, Buttons, StdCtrls,
ComCtrls, Dialogs, LResources, Laz_XMLCfg, ExtToolEditDlg, Process,
IDECommands, KeyMapping, TransferMacros, IDEProcs, CompilerOptions,
OutputFilter, FileCtrl, LazarusIDEStrConsts;
@ -289,13 +289,13 @@ begin
CmdLine:=Filename;
if Params<>'' then
CmdLine:=CmdLine+' '+Params;
writeln('[TExternalToolList.Run] ',CmdLine);
DebugLn('[TExternalToolList.Run] ',CmdLine);
try
CheckIfFileIsExecutable(Filename);
TheProcess := TProcess.Create(nil);
TheProcess.CommandLine := Filename+' '+Params;
TheProcess.Options:= [poUsePipes, poNoConsole,poStdErrToOutPut];
TheProcess.ShowWindow := swoNone;
TheProcess.Options:= [poUsePipes,poStdErrToOutPut];
TheProcess.ShowWindow := swoHide;
TheProcess.CurrentDirectory := WorkingDir;
if ExtTool.EnvironmentOverrides.Count>0 then
ExtTool.AssignEnvironmentTo(TheProcess.Environment);
@ -343,7 +343,7 @@ begin
Result:=mrOk;
except
on e: EOutputFilterError do begin
writeln('TExternalToolList.Run Exception: ',E.Message);
DebugLn('TExternalToolList.Run Exception: ',E.Message);
ErrorOccurred:=true;
end
else