18.07.2011, 00:20
|
Прохожий
|
|
Регистрация: 14.07.2011
Сообщения: 43
Репутация: -2279
|
|
Цитата:
Сообщение от unity
Код:
procedure TForm1.tmr1Timer(Sender: TObject);
begin
if getasynckeystate($71)<>0 then
t:= PChar(edt1.Text); // считывает назавание окна из edt1
id:=FindWindow(nil,(t)); // узнаёт hwnd окна
PostMessage(id,WM_KEYDOWN,vk_F1, 0); //посылает нажатие кнопки f1 окну
PostMessage(id,WM_KEYUP,vk_F1, 0); // посылает отжатие кнопки f1 окну
end;
как сделать чтобесли я нажал 1 раз F2 то и в окно 1раз было послоно нажатиеи отжатие F1
(щас у меня после тогокак нажал 1раз F2 в окно посылаеться множество нажатий)
|
решил это вот так:
Код:
var
Form1: TForm1;
id:HWND;
f:Integer;
implementation
{$R *.dfm}
procedure TForm1.tmr1Timer(Sender: TObject);
begin
if (getasynckeystate($71)<>0) and (f=0) then
begin
id:=StrToInt(hwnd1.Text);
PostMessage(id,WM_KEYDOWN,vk_F1, 0);
PostMessage(id,WM_KEYUP,vk_F1, 0);
f:=f-1;
end
else
f:=0;
end;
|