paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 16:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Only set StdInputHandle, StdOutputHandle and StdErrorHandle once

Browse Source 
git-svn-id: trunk@29094 -
This commit is contained in:
pierre 2014-11-20 21:57:15 +00:00
parent 64af966eaa
commit 260c6583cf
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win/syswin.inc
View File

@ -498,9 +498,15 @@ procedure SysInitStdIO;
begin
{ Setup stdin, stdout and stderr, for GUI apps redirect stderr,stdout to be
displayed in a messagebox }
StdInputHandle:=longint(GetStdHandle(cardinal(STD_INPUT_HANDLE)));
StdOutputHandle:=longint(GetStdHandle(cardinal(STD_OUTPUT_HANDLE)));
StdErrorHandle:=longint(GetStdHandle(cardinal(STD_ERROR_HANDLE)));
{ WARNING: this should be done only once at startup,
not for DLL entry code, as the standard handles might
have been redirected }
if StdInputHandle=0 then
StdInputHandle:=longint(GetStdHandle(cardinal(STD_INPUT_HANDLE)));
if StdOutputHandle=0 then
StdOutputHandle:=longint(GetStdHandle(cardinal(STD_OUTPUT_HANDLE)));
if StdErrorHandle=0 then
StdErrorHandle:=longint(GetStdHandle(cardinal(STD_ERROR_HANDLE)));
if not IsConsole then
begin
AssignError(stderr);