Никто не знает где в коде ошибка , ПОДСКАЖИТЕ ПЛИЗ? А то начальник сильно нажатие кнопки хочет!

Это сообщение отредактировал(а) Berliner - 14.12.2005, 10:21

Так с кодом рабобрался. Кнопки нажимаются. Но та которая надо не нажимается. : програмка я так понял по заголовку окна ищет? А может отображаться однин заголовок а на самом деле быть другой? У меня програмка в которой надо жать на кнопку имеет заголовок типа делфийского "16-разрядная система MS-DOS" далее(тело) написано- 16 разрядное ........... и две кнопки Закрыть и Пропустить(которые надо жать програмно). Самое интересное что кнопки в другом приложении это прога нажимет. Как бы сделать так чтобы и тут нажимала?






Файл не могу прикрепить на форум -ошибку выдает.

Цитата(Berliner @ 14.12.2005, 11:42)

16-разрядная система MS-DOS

В "16-разрядная система MS-DOS" кнопку нажать невозможно.
Ибо физически ее не существует.
Можно попробовать сэмулировать нажатие клавиш.

ОК ,тогда следующий вопрос(извините если достал-но сильно надо! нажатие кнопок (для начальника)). Код отлично работает, но если кнопка
имеет Под первой буквой подчеркивание то не нажимается(типа горячая клавиша). Мне бы 2 варианта
1.Как минимально переделать код, чтобы и с подчеркиванием клавиши нажимались.
2.как минимально переделать код чтобы название клавиши отыскивалось без учета первой буквы.


Большое спасиб за понимание.

Код

var   Form1: TForm1; implementation procedure ClickOnForm(wnd: HWND; caption: string); var TheChildHandle: HWND; begin TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption)); SendMessage(TheChildHandle, WM_LButtonDown, 1, 1); SendMessage(TheChildHandle, WM_LButtonUP, 1, 1); end; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var wnd: HWND; caption: string; begin wnd := GetTopWindow(0); repeat SetLength(caption, GetWindowtextLength(wnd)); GetWindowText(wnd, @caption[1], length(caption) + 1); if (trim(caption) = 'GG') then ClickOnForm(wnd,'Button1'); //вот тут  с названием... wnd := GetNextWindow(wnd, GW_HWNDNEXT); until wnd = 0; //close; end;

Просто перед подчеркнутой буквой добавь знак &

Спасиб большое за помощь.

Цитата(Berliner @ 13.12.2005, 10:54)

Здраствуйте нужно чтобы программа(назовем ее n1) , нажала клавишу "Пропустить" (программмы назовем ее n2) и после этого выгрузилась из памяти(n1). Программы стартуют в одном bat файле в таком порядке сначала (n1 а потом n2 ). Помогите с кодом - срочно нужна помощь!

Вот общее решение:
1) Запусти из студии Spy++ и нацель его на нужное окно
2) Жми в этом окне кнопки и затем смотри в лог Spy++
3) Реализуй в своей проге программно всё то, что написал Spy++