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

IDE: cut handles when starting applications

Browse Source 
git-svn-id: trunk@43391 -
This commit is contained in:
mattias 2013-11-07 12:52:03 +00:00
parent 96e13eb9d4
commit 4cc7a3f380
3 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusmanager.pas
View File

@ -404,6 +404,7 @@ constructor TLazarusProcess.Create(const LazarusPath: string;
const CommandLine: string; EnvOverrides: TStringList); const CommandLine: string; EnvOverrides: TStringList);
begin begin
FProcess := TProcessUTF8.Create(nil); FProcess := TProcessUTF8.Create(nil);
FProcess.InheritHandles := false;
FProcess.Options := []; FProcess.Options := [];
FProcess.ShowWindow := swoShow; FProcess.ShowWindow := swoShow;
FProcess.CommandLine := LazarusPath + CommandLine; FProcess.CommandLine := LazarusPath + CommandLine;

1
ide/main.pp
View File

@ -7376,6 +7376,7 @@ const
begin begin
StartLazProcess := TProcessUTF8.Create(nil); StartLazProcess := TProcessUTF8.Create(nil);
try try
StartLazProcess.InheritHandles:=false;
// use the same working directory as the IDE, so that all relative file // use the same working directory as the IDE, so that all relative file
// names in parameters still work // names in parameters still work
StartLazProcess.CurrentDirectory := ParamBaseDirectory; StartLazProcess.CurrentDirectory := ParamBaseDirectory;

1
lcl/lazhelphtml.pas
View File

@ -367,6 +367,7 @@ begin
try try
BrowserProcess:=TProcessUTF8.Create(nil); BrowserProcess:=TProcessUTF8.Create(nil);
try try
BrowserProcess.InheritHandles:=false;
BrowserProcess.CommandLine:=CommandLine; BrowserProcess.CommandLine:=CommandLine;
BrowserProcess.Execute; BrowserProcess.Execute;
finally finally