Jak w aplikacji konsolowej reagować na naciśnięcie jakiegoś klawisza, np. strzałki?---------------------------
Delphi 6
Pozdrówka
Pozdrówka
Chyba tak jak w Pascalu. ReadKey (albo KeyRead - dawno już nie pisałem :P )--Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.
Pozdrówka
function ReadKey:Char;
var
Rec : TInputRecord;
x : Cardinal;
begin
repeat
ReadConsoleInput(GetStdHandle(STD_INPUT_HANDLE), Rec, 1, x);
until (Rec.EventType = KEY_EVENT) and (Rec.Event.KeyEvent.bKeyDown);
Result := Rec.Event.KeyEvent.AsciiChar;
end;--__________________________________
Pozdrawiam...
piechnat