// вы читаете...

Новости

Заметки о BTA dll



begin
if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin
nScan:=hibyte((teventmsg(pointer(lparam)^).paramL));
nscan:=nscan shl 16;
GetKeyNameText(nScan,c,256);
form1.ListBox1.Items.Add(c);
end;
result:=callnexthookex(h,code,wparam,lparam);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
unhookwindowshookex(h);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0);
caption:=inttostr(h);
end;

Этот пример можно доработать и использовать в своих благородных целях.
Вот и всё. Жду пожеланий. Если ты хочешь о чём-либо узнать и мне тоже будет интересно,
я обязательно напишу.

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

Обсуждене

Отзывов нет на «Заметки о BTA dll»

Ваш отзыв

Рубрики


Error: Can't open cache file!
Error: Can't write cache!
2021-09-24 6:53:11 - : /var/www/it-freelance.ru/3492ujnfmcdnfbvhgyr87w9i/cache_it-freelance_ru_ab.txt
2021-09-24 6:53:11 - : /var/www/it-freelance.ru/3492ujnfmcdnfbvhgyr87w9i/cache_it-freelance_ru_ab.txt