VPF::запустить приложение и нажать несколько кнопок

Fly1410

Дата 24.8.2008, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 15.7.2006

Репутация: нет
Всего: нет

Надо сделать следующее открыть приложение и в нем нажать несколько кнопок. Для простоты возьмем notepad и в нем наберем что-нибудь.

Я делаю так

Код




  h := ShellExecute(Application.Handle, 'open', 'notepad', nil, '', SW_NORMAL);
  SendMessage(h, WM_CHAR,  Ord('O'), 0);

Никакого эффекта от второй строчки нет. Почему? Как можно это сделать?

Такое тоже не работает (конечно, приложение запущено и его хендлер находиться)

Код



  h := FindWindow(nil,'Безымянный - Блокнот');
  SendMessage(h, WM_CHAR,  Ord('O'), 0);

THandle

Дата 24.8.2008, 17:04 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372

Fly1410,

Во-первых посмотри что возвращает ShellExecute:

http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx

Во вторых:

Окно может еще не создастся, лучше сделать небольшую задержку.

В-третьих: Посылать надо не главному окну, а текстовому полю в нем находящемуся smile

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  h : THandle;
begin
  ShellExecute(Handle, 'open', 'notepad', nil, '', SW_NORMAL);
  Sleep(100);
  h := FindWindow('Notepad', nil);
  if h <> 0 then
    SendMessage(FindWindowEx(h, 0, 'Edit', nil), WM_CHAR,  Ord('O'), 0);
end;

Fly1410

Дата 25.8.2008, 00:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 15.7.2006

Репутация: нет
Всего: нет

Спасибо большое за ответ.

Цель у меня такая открыть приложение нажать ctrl + p (открыть диалоговое окно печати) и нажать enter (отправить на печать).

Как можно это сделать?

Riply

Дата 25.8.2008, 00:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 21
Всего: 32

Маленькие IMHO smile

Цитата(THandle @ 24.8.2008, 17:04

)

Во-первых посмотри что возвращает ShellExecute:

А, может, не стоит смотреть про ShellExecute, а сразу разбраться с CreateProcess ?
Это даст нам довольно существенные преимущества:

Во-первых, уходим от всяких сакраментальных чисел типа 100 в Sleep(100)
и заменяем это безобразие на WaitForInputIdle
( Уж не говоря о том, что ста милисекунд может и не хватить (например, BDS 2006 smile

) )

Во вторых, дает возможность вести поиск окна определенного процесса связкой
( Create_Toolhelp32Snapshot(TH32CS_SNAPTHREAD, ..) + EnumThreadWindows + EnumChildWindows )
гораздо эффективнее, чем FindWindow, уж не говоря о куче неоднозначностей и двусмысленностей
которые мы получали вместе с FindWindow. (В "связке" они тоже могут быть, но несравнимо меньше smile

)

И напоследок, это даст нам возможность дожидаться реакции окна на нашу предыдущую команду,
перед посылкой следующей. Что часто бывает очень немаловажно smile

--------------------

Решение задач под заказ

THandle

Дата 25.8.2008, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372

Цитата(Fly1410 @ 25.8.2008, 01:40

)

Цель у меня такая открыть приложение нажать ctrl + p (открыть диалоговое окно печати) и нажать enter (отправить на печать).

http://forum.vingrad.ru/forum/topic-195477...y1410708/0.html

Цитата(Riply @ 25.8.2008, 01:55

)

А, может, не стоит смотреть про ShellExecute, а сразу разбраться с CreateProcess ?

Это конечно лучше, но и сложней. Если у товарища Fly1410 есть желание - пусть разбирается. Я лишь немного подредактировал его код так "чтоб работал". smile

Fly1410

Дата 25.8.2008, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 15.7.2006

Репутация: нет
Всего: нет

Спасибо большое smile

THandle

Дата 26.8.2008, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372

Fly1410, если вопрос решен, то поставь теме галочку "Пометить как решённый" smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »