Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

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

 
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()?


 
Leonid Troyanovsky ©   (2006-01-20 15:53) [4]


> 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.



Страницы: 1 вся ветка

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
15-1138817907
Alarm
2006-02-01 21:18
2006.02.19
Поздравление Керку


2-1138811005
Freezz
2006-02-01 19:23
2006.02.19
Длина текста в переменной


2-1138710802
Lenka_per
2006-01-31 15:33
2006.02.19
Переменная в переменной


3-1135523459
turonix
2005-12-25 18:10
2006.02.19
Проблемы при создании ограничения на поле типа Date в Access


2-1138452470
KiberNetIK
2006-01-28 15:47
2006.02.19
ProgressBar, и окна