paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 04:26:05 +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

3
rtl/win64/system.pp
View File

@ -93,6 +93,7 @@ var
argv : ppchar;
{ Win32 Info }
startupinfo : tstartupinfo;
StartupConsoleMode : dword;
hprevinst,
MainInstance : qword;
cmdshow : longint;
@ -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;