| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

SendMessage + WM_KEYDOWN [D7, Win95/98]

FeRR ©   (2003-12-16 12:34:00) 

Вроде правильно сделал, а неработает :(
По идее оно должно нажатие любой клавиши
в активном окне менять на нажатие 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;

---

FeRR   (2003-12-18 04:35:00) [1]

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

---

FeRR   (2003-12-17 09:10:00) [2]

Вобщем почти разобрался в чем дело было /вместо 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-17 04:18:00) [3]

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

---

Новичек   (2003-12-16 13:21:00) [4]

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

---

Наверх