SendMessage(ControlHWND,WM_SETFOCUS,0,0);
PostMessage(ControlHWND,WM_KEYDOWN,VK_RETURN,0);
PostMessage(ControlHWND,WM_KEYUP,VK_RETURN,0);
Нажатие клавиши
P.S Ещё впрос как в другой программе нажать какую либо кливишу например Enter
[quote=user13]P.S Ещё впрос как в другой программе нажать какую либо кливишу например Enter[/quote]
я вот так делал, когда-то:
[quote=user13]Я понимаю что SendMessage а по точнее можно ?[/quote]
а что ты именно хочешь?
я вот так делал, когда-то:
Код:
[quote=user13]Я понимаю что SendMessage а по точнее можно ?[/quote]
а что ты именно хочешь?
Оченб стронно что не эмитируеться Enter
Код:
var
wnd : HWnd;
begin
wnd := FindWindow('notepad', nil);
if wnd <> 0 then begin
SendMessage(wnd,WM_SETFOCUS,0,1);
PostMessage(wnd,WM_KEYDOWN,VK_RETURN,0);
PostMessage(wnd,WM_KEYUP,VK_RETURN,0);
end;
wnd : HWnd;
begin
wnd := FindWindow('notepad', nil);
if wnd <> 0 then begin
SendMessage(wnd,WM_SETFOCUS,0,1);
PostMessage(wnd,WM_KEYDOWN,VK_RETURN,0);
PostMessage(wnd,WM_KEYUP,VK_RETURN,0);
end;
то, что я написал в первом случае, нужно для того, чтобы нажать с помощью клавиши Enter кнопку, зная её Handle, т.е. ControlHWND, а с блокнотом все будет так:
мало найти главное окно надо еще найти дочернее и уже ему посылать сообщение.
Код:
var wnd,cwnd:HWND;
begin
wnd:=FindWindow(pchar('notepad'),nil);
if wnd<>0 then
begin
cwnd:=FindWindowEx(wnd,0,pchar('Edit'),nil);
if cwnd<>0 then
begin
SendMessage(cwnd,WM_SETFOCUS,0,0);
PostMessage(cwnd,WM_KEYDOWN,VK_RETURN,0);
end;
end;
end;
begin
wnd:=FindWindow(pchar('notepad'),nil);
if wnd<>0 then
begin
cwnd:=FindWindowEx(wnd,0,pchar('Edit'),nil);
if cwnd<>0 then
begin
SendMessage(cwnd,WM_SETFOCUS,0,0);
PostMessage(cwnd,WM_KEYDOWN,VK_RETURN,0);
end;
end;
end;
мало найти главное окно надо еще найти дочернее и уже ему посылать сообщение.