Консольная графика. Ошибка в Crt

  • Автор темы mrnuke
  • Дата начала
M

mrnuke

Гость
#1
Нужен модуль crt для дельфи! Уж какие только варианты не находил, везде одно и тоже!

Выдает ошибку на функции

Код:
function KeyPressed: Boolean;
var
NumberOfEvents: DWORD;
NumRead: DWORD;
InputRec: TInputRecord;
Pressed: boolean;
begin
Pressed := False;
GetNumberOfConsoleInputEvents(hConsoleInput, NumberOfEvents);
if NumberOfEvents > 0 then
begin
if PeekConsoleInput(hConsoleInput, InputRec, 1,NumRead) then
begin
if (InputRec.EventType = KEY_EVENT) and
(InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then
begin
Pressed := True;
{$IfDef MOUSE_IS_USED}
MouseButtonPressed := False;
{$EndIf}
end
else
begin
{$IfDef MOUSE_IS_USED}
if (InputRec.EventType = _MOUSE_EVENT) then
begin
with InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.MouseEvent do
begin
MousePosX := dwMousePosition.X;
MousePosY := dwMousePosition.Y;
if dwButtonState = FROM_LEFT_1ST_BUTTON_PRESSED then
begin
MouseEventTime := Now;
MouseButtonPressed := True;
{If (dwEventFlags AND DOUBLE_CLICK)<>0 Then Begin}
{End;}
end;
end;
end;
ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
{$Else}
ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
{$EndIf}
end;
end;
end;
Result := Pressed;
end;
А именно на строке

Код:
(InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then
пишет undeclared identifier 'KeyEvent'

Помогите люди добрые!!