SendMessage и не только

[Snake_ua]

Доброго времени суток. Уже долго бьюсь над одним вопросом, буду благодарен за любую помощь. Суть задачи в том, что необходимо программно вызвать другую программу и покликать на ней для отправки файла . Работаю в банке и этот процесс хочу автоматизировать.
Вызывается сторонняя программа и необходимо нажать на кнопку.

function Walk(Current: HWND; name: PChar): HWND;
var temp, rtn: HWND;
    WindowText: PAnsiChar;
begin
  temp:=GetWindow(Current, GW_CHILD);
  while (temp<>0) do
  begin
     GetWindowText(temp,WindowText,255);
     if StrComp(name,WindowText)=0 then
        begin
        Result:=temp;
        Exit;
        end;
     rtn:=Walk(temp,name);
     if (rtn<>0) then
        begin
        Result:=rtn;
        Exit;
        end;
     temp:=GetWindow(temp,GW_HWNDNEXT);
  end;
  Result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Phwnd, Chwnd: HWND;
begin
Phwnd := FindWindow(nil, 'Формування файлу @36 на рівні балансового відділення');
if Phwnd <> 0 then
  begin
  Chwnd := Walk(Phwnd, '&Сформувати файл звітності');
  SendMessage(Chwnd, BM_CLICK, 0, 0);
  end;
end;

Функцию Walk нашел у одного пользователя, не помню где и как ник... Было написано ни Си, портировал на делфи.

GetWindowText(temp,WindowText,255);

Не передает значение переменной WindowText. И не то, что пустая строка, она не задействована, и естественно следующая строка вызывает ошибку. Потом я взял и просто скопировал код в новый проект. Работает, находит кнопку, нажимает, но... Нажимая на кнопку, выскакивает дочернее окно этой сторонней программы, моя прога останавливается до тех пор, пока не будет закрыто данное окно, но там тоже надо нажать кнопки, думаю обойки с помощью потоков. Когда я закрывая это дочернее окно своими руками прога идет дальше и вылетает ошибка после SendMessage. Скрин ошибки прикрепил. Помогите мне разобраться, застрял тут прилично

[3D Hunter]

Используйте PostMessage()

[Rififi]

Snake_ua

Суть задачи в том, что необходимо программно вызвать другую программу и покликать на ней для отправки файла . Работаю в банке и этот процесс хочу автоматизировать.

...

Функцию Walk нашел у одного пользователя, не помню где и как ник... Было написано ни Си, портировал на делфи.


не занимайтесь онанизмом оверкиллом, найдите лучше девушку, или хотя бы резиновую женщину:D возьмите AutoIt. В разы приятнее удобнее.

[Snake_ua]

Сообщение от 3D Hunter

Используйте PostMessage()

Тот же трабл

Rififi

Спасибо за совет)) но увы, приходится заниматься всякой фигней)) Дело в том, что я уже написал код, что подготавливает файл к отправке и вызывает соответственно эту же прогу. Человеку остается лишь покликать... Но мне надоела эта процедура вовсе. Осталось всего-то программно покликать.. Но вот GetWindowText для меня загадка. В моей проге переменная WindowText не инициализируется. В ней не существует значения. Хотя в новом проекте работает...

[Rififi]

Snake_ua

приходится заниматься всякой фигней

ну тогда через spy++ ищите классы/тайтлы нужных вам окон, дальше FindWindow, EnumChildWindows, ...

В моей проге переменная WindowText не инициализируется. В ней не существует значения. Хотя в новом проекте работает...

вообсЧе-то оно - указатель на char у вас... что уже неправильно, ибо надо TCHAR.
ну и память естессно не выделена... (((Ж

[GunSmoker]

var WindowText: PAnsiChar;
...
GetWindowText(temp,WindowText,255);

Память под WindowText Дед Мороз выделять будет?

http://www.transl-gunsmoker.ru/2011/...tion-than.html
http://www.transl-gunsmoker.ru/2009/09/blog-post.html