12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182 |
- {
- This file is part of the Free Pascal Integrated Development Environment
- Copyright (c) 2001 by Pierre Muller
- This unit is used to save and restore console modes
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- unit WConsole;
- interface
- {$ifdef UNIX}
- uses
- {$Ifdef ver1_0}
- linux;
- {$else}
- termio;
- {$endif}
- {$endif UNIX}
- type
- TConsoleMode =
- {$ifdef OS2}
- dword
- {$endif OS2}
- {$ifdef UNIX}
- TermIos
- {$endif UNIX}
- {$ifdef Windows}
- dword
- {$endif Windows}
- {$ifdef go32v2}
- longint
- {$endif go32v2}
- {$ifdef netware}
- longint
- {$endif netware}
- ;
- Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
- Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
- implementation
- {$ifdef Windows}
- uses
- windows;
- {$endif Windows}
- Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
- Begin
- {$ifdef UNIX}
- TCGetAttr(1,ConsoleMode);
- {$endif UNIX}
- {$ifdef Windows}
- GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode);
- {$endif Windows}
- {$ifdef go32v2}
- ConsoleMode:=0;
- {$endif go32v2}
- {$ifdef netware}
- ConsoleMode:=0;
- {$endif}
- End;
- Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
- Begin
- {$ifdef UNIX}
- TCSetAttr(1,TCSANOW,ConsoleMode);
- {$endif UNIX}
- {$ifdef Windows}
- SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode);
- {$endif Windows}
- {$ifdef go32v2}
- {$endif go32v2}
- End;
- end.
|