Регистрируем горячие клавиши

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;

type

TForm1 = class(TForm)

   procedure FormActivate(Sender: TObject);

   procedure FormDestroy(Sender: TObject);

private

   procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure Tform1.WMHotKey(var Message: TMessage);

begin

application.Restore;

application.bringtofront;

showmessage('Нажата CTRL-F7!');

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

RegisterHotKey(form1.Handle,123,mod_control,vk_f7);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

UnregisterHotKey(Handle, 123)

end;

end.