Скачать: CL | DM;

SendMessage + WM_KEYDOWN   Найти похожие ветки 

← →
FeRR ©   (2003-12-16 12:34) [0]

Вроде правильно сделал, а неработает :(
По идее оно должно нажатие любой клавиши
в активном окне менять на нажатие VK_BACK,
но получается что вообще неработают кнопки :)
Объясните, плз, где я тут ступил...

var
MyHookHandle :HHook;
wnd:HWND;
function MyKeyHook(Code: integer; wParam: word; lParam: Longint):LongInt;stdCall;
begin
if code >= 0 then begin
wnd:=getForegroundWindow;
sendMessage(wnd,WM_KEYDOWN,VK_BACK,0);
end
else begin
CallNextHookEx(MyHookHandle,Code, wParam, lParam);
exit;
end;
end;
procedure SetHook;stdCall;Export;
begin
MyHookHandle := SetWindowsHookEx(WH_Keyboard, @MyKeyHook, hInstance, 0);
end;

---

← →
Новичек   (2003-12-16 13:21) [1]

когда ты нажимаешь на кнопку - то и отжать тоже ее должен:
WM_KEYUP

---

← →
FeRR ©   (2003-12-17 04:18) [2]

sendMessage(wnd,WM_KEYDOWN,VK_BACK,0);
sendMessage(wnd,WM_KEYUP,VK_BACK,0);
Пробовал так уже, то же самое получается :(

---

← →
FeRR ©   (2003-12-17 09:10) [3]

Вобщем почти разобрался в чем дело было /вместо GetForegroundWindow использовал FindWindow/, только
Send оно всеравно не отправляет, хотя окно находит...

wnd:THandle;
classname: array[0..255] of char;

function ...
begin
...
wnd := FindWindow(nil,"test.txt - Блокнот"); // например
GetClassName(wnd,classname,SizeOf(ClassName));
wnd := FindWindow(classname,nil);
SendMessage(wnd, WM_DOWN, VK_MENU, 0);
SendMessage(wnd, WM_UP, VK_MENU, 0);
...

---

← →
FeRR ©   (2003-12-18 04:35) [4]

Сделал через keybd_event - тема закрыта...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c