05.05.2012, 10:58
|
Прохожий
|
|
Регистрация: 17.03.2012
Сообщения: 42
Репутация: -63
|
|
Цитата:
Сообщение от angvelem
Что мешало написать это самому?
Код:
var
HotKey : HATOM;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
HotKey := GlobalAddAtom('Hotkey1'); //нарка
RegisterHotKey(Handle, HotKey, 0, VK_F2); //нарка
end
else
begin
UnRegisterHotKey(Handle, HotKey);
GlobalDeleteAtom(HotKey);
end;
end;
procedure Tfunk.WMHotKey (var Msg : TWMHotKey);
begin
if msg.HotKey = HotKey then keybd_event(50, 0, 0, 0); //нарка
if msg.HotKey = HotKey then keybd_event(51, 0, 0, 0); //нарка
if msg.HotKey = HotKey then keybd_event(52, 0, 0, 0); //нарка
if msg.HotKey = HotKey then keybd_event(50, 0, keyeventf_keyup, 0); //нарка
if msg.HotKey = HotKey then keybd_event(51, 0, keyeventf_keyup, 0); //нарка
if msg.HotKey = HotKey then keybd_event(52, 0, keyeventf_keyup, 0); //нарка
end;
|
[Error] Unit22.pas(28): Undeclared identifier: 'HATOM'
|