如何捕捉键盘电击

Question

The following code aborts a print job if the user presses Esc. Note that you should set KeyPreview to True to ensure that the OnKeyDown event handler of Form1 is called.procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_ESCAPE) and Printer.Printing then
  begin
  Printer.Abort;
  MessageDlg('Printing aborted', mtInformation, [mbOK],0);
  end;
end;Delphi的帮助例子。

Answer 1

使用hookhttp://crob.net/delphi/source/dphood.zip载下来看看吧，只要自已添加几个消息就能截获组合键