Коды в программе.

[troyan32]

Все мы, наверно, представляем коды в игре, а как сделать это в программе?
Например: показать 2 форму, если нажать Shift+CTRL+ALT+F.

[MyLastHit]

http://delphiexpert.ru/view_lesson.php?id=16

[asmodey1]

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

http://delphiexpert.ru/view_lesson.php?id=16

То есть мы тут на форуме - кретины, и помочь неспособны ? И нужно отсылать к "гуру" ?
Или параллельно подрабатываете у конкурентов переманиванием "контингента" ?

А я вот возьму и отвечу:

//Это только пример. Нужное сочетание клавиш (Shift+CTRL+ALT+F) вставите самостоятельно.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   If ((GetKeyState(VK_CONTROL) AND 128)=128) and
      ((GetKeyState(VK_F5)      AND 128)=128) and
      ((GetKeyState(ord('8'))   AND 128)=128) then
       ShowMessage('CTRL+F5+8 Pressed');
end;

[troyan32]

Спасибо всем!!!
У MyLastHit ссылка мене чуть-чуть помогла и я составил код:

if (getasynckeystate($10)<>0) and (getasynckeystate($11)<>0) and (getasynckeystate($12)<>0) and (getasynckeystate($46)<>0) then
    Form2.show;

У asmodey1 код тоже рабочий.

Ещё раз спасибо всем!!!

[MyLastHit]

asmodey1, ну просто я не спорю, твой работает метод. То только если фокус на форме)
И какая конкуренция может быть между форумом программистов и сайтом с уроками по Делфи?
Было бы здесь это все, я бы не дал эту ссылку)