RegisterHotKey

← →
Михаил(Киров) (2005-08-02 22:57) [0]

Как пользоваться функцией RegisterHotKey. У кого-нибудь есть простенький примерчик?

← →
alex-drob © (2005-08-03 00:19) [1]

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

procedure TForm1.WMHotKey(var Message: TMessage);
begin
beep
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterHotKey(handle,555,MOD_ALT,VK_TAB);
end;

Вопрос:
Как глобально перехватить нажатие кнопки PrintScreen?
Ответ:
В примере для глобального перехвата нажатия клавиши printscreen регистрируется горячая клавиша (hot key).
Пример:

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

const id_SnapShot = 101;

procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if Msg.HotKey = id_SnapShot then
ShowMessage("GotIt");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle,
id_SnapShot,
0,
VK_SNAPSHOT);
end;

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

RegisterHotKey Найти похожие ветки