Как послать нажатие клавишь в другое приложение

← →
jiurasdad (2006-01-20 15:09) [0]

ДОброе время суток! Есть к примеру приложение,я хочу в тестовое поле послать определенное слово из своей программы... как это сделать? Т.е. какя функция в Delphi это делает. В Visual BAsic-е была функция SendKeys а как в Delphi?

← →
begin...end © (2006-01-20 15:29) [1]

Если нужно сразу целое слово, то можно использовать WM_SETTEXT (если, конечно, текстовое поле является оконным контролом).

← →
Leonid Troyanovsky © (2006-01-20 15:32) [2]

> jiurasdad (20.01.06 15:09)
> ДОброе время суток! Есть к примеру приложение,я хочу в тестовое
> поле послать определенное слово из своей программы... как
> это сделать? Т.е. какя функция в Delphi это делает. В Visual
> BAsic-е была функция SendKeys а как в Delphi?

Послать слово - SendMessage(EditHandle, WM_SETTEXT, 0, LParam(PChar(..)))
Послать символ: PostMessage(EditHandle, WM_CHAR, Ord(chr), 0);

Аналог SendKeys, например: PostKeyEx32

http://groups.google.com/group/borland.public.delphi.vcl.components.using/msg/255759f5e020ea20

Однако, это не совсем Post, but a wrapper for keybd_event.
Т.е., для своей работы требует активации чужого окна.

--
Regards, LVT.

← →
Jiura (2006-01-20 15:34) [3]

Нет я хотел следующим образом: найти нужное окно, а затем послать туда слово. Нашел в интернете что нужно делать так:

procedure TForm1.Button1Click(Sender: TObject);
var
h : HWND;
begin
h:=FindWindow("Notepad",nil);
h:=FindWindowEx(h,0,"Edit",nil);
SendMessage(h,WM_CHAR,Ord("b"),0);
end;

-такая штука для блокнота. Но что-то она у меня не работает. Видимо неправильное название указываю "Notepad". А как вообще узнать правильное? Есть ли к примеру функция позволяющая получить список всех окон, запущенных в системе, чтобы потом выбрать правильное и использовать его в качестве параметра в функции FindWindow()?

> Jiura (20.01.06 15:34) [3]

> -такая штука для блокнота. Но что-то она у меня не работает.
> Видимо неправильное название указываю "Notepad". А как
> вообще узнать правильное? Есть ли к примеру функция

if h <> 0 then {окно класса Notepad найдено}

Перечислить окна верхнего уровня можно путем EnumWindows.
Обычно интерусуют лишь IsWindowVisible.
Класс окна узнают путем GetClassName.
См. также

http://groups.google.com/group/borland.public.delphi.winapi/msg/e080a4ba102c297b

--
Regards, LVT.

Как послать нажатие клавишь в другое приложение Найти похожие ветки