paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 05:18:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Add StartupConsoleMode as for win32

Browse Source 
git-svn-id: trunk@14125 -
This commit is contained in:
pierre 2009-11-09 17:01:16 +00:00
parent 19cc28d974
commit 90d1dac1d3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win64/system.pp
View File

@ -93,6 +93,7 @@ var
argv : ppchar;
{ Win32 Info }
startupinfo : tstartupinfo;
StartupConsoleMode : dword;
hprevinst,
MainInstance : qword;
cmdshow : longint;
@ -104,13 +105,13 @@ const
Dll_Process_Detach_Hook : TDLL_Entry_Hook = nil;
Dll_Thread_Attach_Hook : TDLL_Entry_Hook = nil;
Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil;
Const
{ it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see
{ it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see
also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
value
}
fmShareDenyNoneFlags : DWord = 3;
fmShareDenyNoneFlags : DWord = 3;
implementation
@ -423,12 +424,14 @@ procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
system_exit;
end;
function GetConsoleMode(hConsoleHandle: THandle; var lpMode: DWORD): Boolean; stdcall; external 'kernel32' name 'GetConsoleMode';
function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntryInformation){$endif FPC_HAS_INDIRECT_MAIN_INFORMATION} : longbool;forward;
procedure _FPC_mainCRTStartup;stdcall;public name '_mainCRTStartup';
begin
IsConsole:=true;
GetConsoleMode(GetStdHandle((Std_Input_Handle)),StartupConsoleMode);
Exe_entry;
end;