diff --git a/src/System.Console.InternalTypes.pas b/src/System.Console.InternalTypes.pas index 1173aec..a5cddf6 100644 --- a/src/System.Console.InternalTypes.pas +++ b/src/System.Console.InternalTypes.pas @@ -2,6 +2,8 @@ interface +{$I 'System.Console.inc'} + uses System.Types, System.Classes, diff --git a/src/System.Console.Windows.pas b/src/System.Console.Windows.pas index 6ea1274..42bed90 100644 --- a/src/System.Console.Windows.pas +++ b/src/System.Console.Windows.pas @@ -629,7 +629,6 @@ function TWindowsConsole.GetTreatControlCAsInput: boolean; var mode: DWORD; begin - Result := false; if FStdIn = INVALID_HANDLE_value then raise EInvalidOperation.Create('No console available'); Mode := 0;