Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Глобальный хук на клавиатуру без dll.

Страницы: < 1 2 3
Cerberus © (2006-06-20 15:12:00)
сабж

begin...end (2006-06-20 19:02:00) [41]
> programania © (20.06.06 19:00) [7]

Какое отношение это имеет к хукам? Тем более, к глобальным?

programania (2006-06-20 19:00:00) [42]

PROCEDURE reg(nKey:string); // например reg('alt+shift+Z');
var i:integer;
begin
if rKey then begin
//удаление регистрации горячей клавиши
unRegisterHotKey(form2.handle,32);
rKey:=false;
end
else
begin
//регистрация горячей клавиши
if pos('alt' ,nKey)>0 then i:=MOD_ALT else i:=0;
if pos('shift',nKey)>0 then i:=i+MOD_SHIFT;
if pos('ctrl' ,nKey)>0 then i:=i+MOD_CONTROL;
if i>0 then begin
RegisterHotKey(form2.handle,32,i,ord(nKey[length(nKey)]));
rKey:=true;
end;
end;
end;

//обработка
procedure TForm2.WMHotkey(var a:TWMHotkey);
begin
if a.hotkey=32 then begin

end;
end;

работает в
http://programania.com/en_source.zip 12кб

begin...end (2006-06-20 18:32:00) [43]
В Windows NT 4.0 SP3 и выше -- WH_KEYBOARD_LL.

Leonid Troyanovsky (2006-06-20 18:24:00) [44]

> Cerberus © (20.06.06 15:18) [2]

> А можно поконкретней если не сложно.

http://msdn.microsoft.com

--
Regards, LVT.

Сергей М. (2006-06-20 15:42:00) [45]

> Cerberus © (20.06.06 15:18) [2]
> можно поконкретней

Нет ничего конкретней инф-ции в MSDN.
Есть проблемы ? Излагай ..

TUser (2006-06-20 15:26:00) [46]
exe тоже может экспортировать функции - пишется также в файле проекта

Cerberus (2006-06-20 15:18:00) [47]
> [1] Сергей М. © (20.06.06 15:13)

А можно поконкретней если не сложно.

Сергей М. (2006-06-20 15:13:00) [48]
Не проблема.
О том вещает MSDN.

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »