Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Можно ли имитировать нажатие какой либо клавиши? 


TSerg   (2001-12-25 15:25) [0]

Народ, у меня к вам такой вопрос: "Как сделать чтобы имитировалось нажатие какой-либо клавиши?"



Digitman   (2001-12-25 15:47) [1]

см. Win32 API help, topics : SendMessage(), WM_CHAR, WM_KEYDOWN, WM_KEYUP



Olgerd   (2001-12-25 15:49) [2]

http://delphi.mastak.ru/articles/sendkey.html



Alx2   (2001-12-25 15:57) [3]

Попробовал - работает... Но это верхушка айсберга.

Var m : TWMKey;
begin
m.CharCode:=byte("!");
m.Msg := wm_char;
Edit1.Perform(m.Msg,TMessage(m).WParam,TMessage(m).LParam);
end;



Мефодий   (2001-12-25 16:09) [4]

Perform(WM_LBUTTONDOWN, 0, 0);
Delay(сколько нужно);
Perform(WM_LBUTTONUP, 0, 0);




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.019 c
6-42535           KSN                   2001-10-17 18:35  2002.01.14  
Ошибка при работе с TClientSocket


6-42529           Fast                  2001-10-18 00:29  2002.01.14  
Верификация мыла


6-42530           Gallant               2001-10-19 12:56  2002.01.14  
Проблема со локальной сетю


14-42574          Schummi               2001-11-15 22:28  2002.01.14  
Да вы что, сговорились что ли?


4-42616           Kyd                   2001-11-13 11:18  2002.01.14  
SendMessage(MyHandle, WM_SetText, 0, Integer(TextToSet));