mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 00:55:59 +02:00
call compiler with same process settings as other external tools.
git-svn-id: trunk@6270 -
This commit is contained in:
parent
aa5b195a2d
commit
f38f22aee1
@ -149,8 +149,8 @@ begin
|
|||||||
try
|
try
|
||||||
TheProcess := TProcess.Create(nil);
|
TheProcess := TProcess.Create(nil);
|
||||||
TheProcess.CommandLine := CmdLine;
|
TheProcess.CommandLine := CmdLine;
|
||||||
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutput];
|
TheProcess.Options:= [poUsePipes, poStdErrToOutput];
|
||||||
TheProcess.ShowWindow := swoNone;
|
TheProcess.ShowWindow := swoHide;
|
||||||
Result:=mrOk;
|
Result:=mrOk;
|
||||||
try
|
try
|
||||||
TheProcess.CurrentDirectory:=ProjectDir;
|
TheProcess.CurrentDirectory:=ProjectDir;
|
||||||
@ -190,6 +190,9 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.46 2004/11/19 13:52:18 vincents
|
||||||
|
call compiler with same process settings as other external tools.
|
||||||
|
|
||||||
Revision 1.45 2004/09/27 22:05:40 vincents
|
Revision 1.45 2004/09/27 22:05:40 vincents
|
||||||
splitted off unit FileUtil, it doesn't depend on other LCL units
|
splitted off unit FileUtil, it doesn't depend on other LCL units
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user