paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 19:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: openbrowser: cut handles when starting process

Browse Source 
git-svn-id: trunk@43390 -
This commit is contained in:
mattias 2013-11-07 12:51:26 +00:00
parent 35b07b5533
commit 96e13eb9d4
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/openbrowser/mainunit.pas
View File

@ -83,6 +83,7 @@ begin
TheProcess:=TProcessUTF8.Create(nil); TheProcess:=TProcessUTF8.Create(nil);
try try
TheProcess.InheritHandles := false;
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutput]; TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutput];
TheProcess.ShowWindow := swoNone; TheProcess.ShowWindow := swoNone;
TheProcess.CommandLine:=StartScriptFilename+' '+URL; TheProcess.CommandLine:=StartScriptFilename+' '+URL;