You can register a hotkey (using RegisterHotKey and UnregisterHotKey ) and use the WM_HOTKEY message to intercept when a key is pressed.
Try this sample
type TForm3 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public procedure WMHotKey(var Message: TMessage); message WM_HOTKEY; end; var Form3: TForm3; implementation {$R *.dfm} { TForm3 } const SaveScreeenHK=666; procedure TForm3.FormCreate(Sender: TObject); begin RegisterHotKey(Handle, SaveScreeenHK , MOD_CONTROL, VK_F10); end; procedure TForm3.FormDestroy(Sender: TObject); begin UnregisterHotKey(Handle, SaveScreeenHK); end; procedure TForm3.WMHotKey(var Message: TMessage); begin
source share