VPF::Программное нажатие кнопки в чужой программе

legens

Дата 30.10.2011, 01:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Скорее всего, покажется, что таких тем тут разбиралось достаточно много, но прошу уделить внимание проблеме. Проблема заключается в следующем есть сторонняя программа Cutting3 http://dl.dropbox.com/u/43065254/Cutting3_setup.rar или http://www.cuttinghome.com/indexr.html для раскроя листов, после формирования диаграммы раскроя, осуществляется переход на PageControl на новую страницу, после этого мне необходимо программно нажать на кнопку 'Отчет' на ToolBare. Пользовался Spy++ и WinSpy показывает класс только самого toolbara и edita и comboboxa. ну и + могу получить name окна которое создается после нажатия. но как нажать кнопку 'Отчет' я не понял
TfrPreviewForm.

Код


FindWindowEx 
var
  h, h2: THandle;
begin
  h := FindWindow('TfrmMain', nil);
  h2 := FindWindowEx(h, 0, nil, 'Отчет');

  if h2 <> 0 then
  begin
    SendMessage(h2, BM_CLICK, 0, 0);
    SendMessage(h2, WM_LButtonDown, 1, 1);

    SendMessage(h2, WM_LButtonUP, 1, 1);

 end;

Люди помогите пожалуйста!!

legens

Дата 30.10.2011, 12:22 (ссылка)

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

Загрузка ...

Новичок

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

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

люди help плиз, Подскажите каким способом можно разрешить эту проблему

Код


procedure TForm1.Button4Click(Sender: TObject);
var
  h, h2, h3, h4, h5: THandle;
  Nm: Array [0 .. 255] of Char;
  titleLength: integer;
  title: string;
  ButtonsCount: integer;
begin
  h2 := 0;
  h := FindWindow('TfrmMain', nil);
  h2 := FindWindowEx(h, 0, 'TbsSkinPageControl', nil);

  h3 := FindWindowEx(h2, 0, 'TbsSkinTabSheet', 'Диаграммы раскроя');
  h4 := FindWindowEx(h3, 0, 'TbsSkinToolBar', nil);
  ButtonsCount := SendMessage(h4, TB_BUTTONCOUNT, 0, 0);
  SendMessage(h4, TB_CHECKBUTTON, 4, 0);

ButtonsCount = 0,
на других примерах работает

Это сообщение отредактировал(а) legens - 30.10.2011, 19:17

DYUMON

Дата 3.11.2011, 09:59 (ссылка)

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

Загрузка ...

Опытный

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

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

Хотел было создавать новую тему а смотрю аналогичная проблемма. не получается переключатся по вкладкам tabcontrol

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

Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.

bems

Дата 3.11.2011, 19:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

legens, это потому что у кнопка тулбара это не окно. Щелкай по тулбару в нужных координатах, и/или используй эти сообщения (возможно придется внедриться в чужой процесс)

DYUMON, 1) телепаты в отпуске
2) один топик - один вопрос

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

Обижено школьников: 8

legens

Дата 9.11.2011, 13:19 (ссылка)

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

Загрузка ...

Новичок

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

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

bems,
кнопка тулбара это не окно - это то я знаю, решили с помощью координат в самой программе
bems,

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