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

lazhelp: cut handles when starting process

Browse Source 
git-svn-id: trunk@43388 -
This commit is contained in:
mattias 2013-11-07 12:50:36 +00:00
parent b25aa3842e
commit 1ae5a24b92
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/chmhelp/packages/help/lhelpcontrol.pas
View File

@ -210,6 +210,7 @@ begin
DebugLn(['TLHelpConnection.StartHelpServer ',cmd]); DebugLn(['TLHelpConnection.StartHelpServer ',cmd]);
{$ENDIF} {$ENDIF}
with TProcessUTF8.Create(nil) do begin with TProcessUTF8.Create(nil) do begin
InheritHandles := false;
ShowWindow:=swoShowNormal; ShowWindow:=swoShowNormal;
CommandLine := Cmd; CommandLine := Cmd;
Execute; Execute;

2
components/chmhelp/packages/idehelp/lazchmhelp.pas
View File

@ -283,6 +283,7 @@ begin
// Exit; // Exit;
Proc := TProcessUTF8.Create(nil); Proc := TProcessUTF8.Create(nil);
Proc.InheritHandles := false;
{$if (fpc_version=2) and (fpc_release<5)} {$if (fpc_version=2) and (fpc_release<5)}
Proc.CommandLine := Lazbuild+' '+WS+' '+PCP+' '+LHelpProject; Proc.CommandLine := Lazbuild+' '+WS+' '+PCP+' '+LHelpProject;
{$else} {$else}
@ -539,6 +540,7 @@ begin
end; end;
Proc := TProcessUTF8.Create(nil); Proc := TProcessUTF8.Create(nil);
try try
Proc.InheritHandles := false;
{$if (fpc_version=2) and (fpc_release<5)} {$if (fpc_version=2) and (fpc_release<5)}
Proc.CommandLine := GetHelpExe + ' ' + Format(fHelpExeParams, [FileName, Url]); Proc.CommandLine := GetHelpExe + ' ' + Format(fHelpExeParams, [FileName, Url]);
{$else} {$else}