Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WinExec_ чтобы нажалось кнопка -"Запустит", WinExec 
:(
    Опции темы
mr_tg
Дата 20.10.2011, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Здраствуйте знатаки DELPHI 

в программе c:\progкam\a.exe 
(это программа (a.exe) не мая и не создана в DELPHI)
допустим три кнопки.
-"Запустит"
-"Тестинг"
-"выход"

мне надо запустит эту программу из моей проги на делфи.
1) я запускаю программу так:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 WinExec('c:\progкam\a.exe',SW_Hide);
end;

2) А после запуска проги, мне надо чтобы нажалось кнопка -"Запустит", -"выход" или -"Тестинг"
если кто сталкивалса этим вопросом и решил или кто знает решение..
подскажите или покажите пример..

Заране СПС за внимание.
MR_TG
PM MAIL   Вверх
niteo
Дата 20.10.2011, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Алгоритм такой:
Ищешь окно чужой программы.
Просматриваешь все дочерние окна (да, кнопка это окно).
Находишь необходимую тебе кнопку.
Шлешь сообщение: PostMessage(HandleButton, BM_CLICK, 0, 0);
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
mr_tg
Дата 20.10.2011, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
niteo СПС за совет.
Но как это и что это?
Цитата

Ищешь окно чужой программы.
Просматриваешь все дочерние окна (да, кнопка это окно).
Находишь необходимую тебе кнопку.

smile  
если можно просветите 
мне диталнее или дайти маленкий примерчик
как искать,и т.д.,
PM MAIL   Вверх
AndreyIQ
Дата 20.10.2011, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 8
Примерно так:
Код

var HForm,  HButton : HWND;
begin
  HForm :=FindWindow(nil,PWideChar('MainWindow'));
  if HForm <> 0 then
    HButton := FindWindowEx(HForm, 0,PWideChar('TButton'),PWideChar('&Button'));
    if HButton <> 0 then
      SendMessage(HButton, BM_CLICK, 0, 0);
end;


Это сообщение отредактировал(а) AndreyIQ - 20.10.2011, 14:36
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0923 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.