Обработка нажатия клавиши F1

[Алексей_2012]

Здравствуйте, возможно ли обработать нажатие клавиши f1 в любое время работы программы? И на всех формах (у меня Form1,Form2), чтобы при нажатии на f1 выполнялась команда, открывающая файл через shellexecute?

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, PChar(ExtractFilePath(ParamStr(0))+'проектделфи.pptx'), nil, nil, SW_SHOWNORMAL);
end;

То есть мне надо чтобы этот код выполнялся по нажатию клавиши F1

[beegl]

можно таk: (глобальная горячая клавиша)

  private
    { Private declarations }
    id1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
//////////////

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
 begin
   if Msg.HotKey = id1 then
   ShellExecute(Handle, nil, PChar(ExtractFilePath(ParamStr(0))+'проектделфи.pptx'), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
const
     VK_F1Ex    = $70;
begin
   // Register Hotkey F1
  id1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(Handle, id1, 0,VK_F1Ex);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnRegisterHotKey(Handle, id1);
end;

[Winexcel]

Оптимальный вариант

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_F1
then
ShellExecute(Handle, nil, PChar(ExtractFilePath(ParamStr(0))+'проектделфи.pptx'), nil, nil, SW_SHOWNORMAL);

end;

[Алексей_2012]

Спасибо большое))) а можете вкратце объяснить как это работает?

[Stilet]

Это работает так: Выставляешь KeyPreview:=true для формы. И прописываешь этот обработчик. Если форма (или любой ее компонент) получает нажатие клавиши F1 сработает ShellExecute, который запустит файл pptx средствами винды.

[Алексей_2012]

а что делает эта команда?

 UnRegisterHotKey(Handle, id1)

[Аватар]

Можно перехватывать нажатие F1 в Application.OnMessage в одном месте и для любой формы приложения. Только аккуратненько, что бы не завалить все приложение

[Stilet]

а что делает эта команда?

Деактивирует назначенную горячую клавишу.