"фиксатор нажатия клавиши" в паскале

[Brian Spilner]

Здравствуйте. Не могу найти информации относительно реализации фиксирования нажатия клавиши.
Т.е. например как реализовать детектор нажатия клавиши? Например вводим "нажмите клавишу "s"", и дальше, если была нажата клавиша S - то одно действие, а если не S - то другое. Можно ли вообще такое сделать???
Заранее спасибо.
Ну что-то типа:

writeln(' Нажмите клавишу "S"');
 if (проверка что было нажато "S") then
  begin
   действие 1;
  end;
 else

действие 2;

[Hacker19_90]

key := Readkey;
if key = 's' then {ваше действие]
else {что-то другое}

можете сделать через case меню!!!

[creator32]

GETCH

это тебе в помощь. считываешь этой функцией введенный символ, а потом организуешь простую проверку (ну как ты и писал)

[Federal]

Не лучший вариант решения

var
f:string;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
f:=Inttostr(ord(key));
if f=83 then
begin
блаблабла
end;
else
begin
блаблабла
end;
end;

end.

[Brian Spilner]

Огромнейшее спасибо ВСЕМ!!!!!!

[lowercase]

подскажите как проверить какое значение имеет пременая Shift?
например.. я хочу определить сочетание клавиш Ctrl + Backspace...

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ( { что тут надо написать для проверки значения Shift?}  ) and (key = 8) then
       // key = 8 это код клавиши Backspace
    .......................
end;

[GoodDA]

для lowercase

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
 if (ssShift in Shift) and (key=8) then  showmessage('ok');  ///сочетание  SHIFT+Backspace
end;

[DIgorevich]

GetKeyState(VK_SHIFT)

[lowercase]

Сообщение от GoodDA

для lowercase

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
 if (ssShift in Shift) and (key=8) then  showmessage('ok');  ///сочетание  SHIFT+Backspace
end;

спасиб большое! оч помог.. только мне надо было не ssShift a ssCtrl.. но это не главное.. принцып опредиления я понл ))))
еще раз спасиб)