Найти окно ошибки и нажать OK

[Shouldercannon]

Как можно найти данное окно ошибки и нажать в нём OK. Известно: имя заголовка и имя кнопки на панели задач.

[W0LF]

Такой вариант:

На таймер...

var
  Wind, Btn: HWND;
begin
  if FindWindow(nil, 'srcds.exe - Ошибка приложения') <> 0 then begin
    Wind := FindWindow(nil, 'srcds.exe - Ошибка приложения');
    Btn := FindWindowEx(Wind, 0, nil, 'OK');
    SendMessage(Btn, BM_CLICK, 0, 0);
  end;
end;

[Shouldercannon]

Спасибо, буду пробовать в работе.

[Shouldercannon]

Как найти на форме кнопку и нажать её. Кнопка может быть на чём угодно и следовательно нужно получать Hanld это чего угодно? Сделать автоматический поиск имея Caption формы и Caption кнопки.

  if FindWindow(nil, 'Form1') <> 0 then
  begin
    Wind := FindWindow(nil, 'Form1');
    Btn := FindWindowEx(Wind, 0, nil, 'Кнопка');
    SendMessage(Btn, BM_CLICK, 0, 0);
  end;

[eduard93]

Кнопки бывают разные, некоторые вообще окнами не являются.

[Shouldercannon]

function EnumChildProc(Wnd: HWND; CaptList: TStrings): BOOL; stdcall;
var
  captBuf: array[0..260] of Char;
begin
  Result := (Wnd <> 0); // условие завершения обхода дерева окон
  if Result then
  begin
    GetWindowText(Wnd, captBuf, SizeOf(captBuf)); // получаем заголовок (текст) окна
    if (Pos(CaptList[0], StrPas(captBuf)) > 0)    // проверяем не наше ли это окно
      and (CaptList.IndexOfObject(TObject(Wnd)) < 0) // проверяем не заглядывали ли мы уже в это окошко
      then CaptList.AddObject(StrPas(captBuf), TObject(Wnd)); // Добавляем в список заголовок и хэндл окна
    EnumChildWindows(Wnd, @EnumChildProc, Longint(CaptList)); // Рекурсивный обход дочерних окон
  end;
end;

function ClickButton(ParentWindow: HWND; ButtonCaption: string): Boolean;
var
  Btn: HWND;
  CaptList: TStringList; // В items-ы будем класть заголовки окон;
                         // в objects-ы будем класть хэндлы окон;
begin
  CaptList := TStringList.Create;
  try
    // В первый item листа кладем заголовок кнопки
    CaptList.AddObject(ButtonCaption, nil);

    // обходим все дочерние окна (ищем кнопку с указанным ButtonCaption )
    EnumChildWindows(ParentWindow, @EnumChildProc, Longint(CaptList));

    // Убеждаемся что нашлась ТОЛЬКО ОДНА КНОПКА с указанным ButtonCaption
    Result := ((CaptList.Count = 2) and (HWND(CaptList.Objects[1]) <> 0));

    if Result then
    begin
       Btn := HWND(CaptList.Objects[1]);
       PostMessage(Btn, BM_CLICK, 0, 0);
     { //или лучше
        SendMessage(Btn, WM_LBUTTONDOWN, 1, 1);
        SendMessage(Btn, WM_LBUTTONUP, 1, 1);
     }
    end;
  finally
    CaptList.Free;
  end;
end;
...
procedure TMyForm.btn1Click(Sender: TObject);
begin
  Wind := FindWindow(nil, 'Form1');
  if (Wind <> 0) then
  begin

    if ClickButton(Wind,'Кнопка') then
    begin
      ShowMessage('вроде нажали');
    end
    else
    begin
      ShowMessage('нету такой кнопки (или больше одной с таким капшеном)');
    end;

  end
  begin
    ShowMessage('нету окна с капшеном "Form1"');
  end;
end;

Как в таком окне нажать кнопку?

[eduard93]

А в таком окне и не надо ничего нажимать, просто завершение работы с флагом EWX_FORCE надо делать.

[xexxex]

Да в принципе у тебя направление правильное.
Только не надо вызывать рекурсию и надо учитывать знак подчеркивания в тексте.
В общем както так я бы сделал

type
  TFindInfo = reocrd
    ClsName: String;
    Text: String;
    Bounds: TRect;
    FoundBtn: HWnd;
  end;

function EnumChildProc(Wnd: HWND; var FindInfo: TFindInfo): BOOL; stdcall;
var
  captBuf: array[0..260] of Char;
begin
  Result := True; 
  with FindInfo do
  if CompareClassName() then
    if AnsiCompareText() then // здесь надо учитывать знак подчеркивания &   юзай StripHotkey()
      if CompareBounds() then begin
        FoundBtn := Wnd;
        Result := False;
     end;
          // рекурсия здесь не нужна
  

	
	

			
				Remarks

If a child window has created child windows of its own, EnumChildWindows enumerates those windows as well.
			
		
http://msdn.microsoft.com/en-us/library/ms633494(v=vs.85).aspx
end;

function ClickButton(ParentWindow: HWND; ButtonCaption: string): Boolean;
var
  FindInfo: TFindInfo;
begin
     // заполняем инфу
  FindInfo.ClsName := 'TButton';
  FindInfo....

    EnumChildWindows(ParentWindow, @EnumChildProc, Longint(@FindInfo));
  if Btn = 0 then Exit;

  SendMessage(FindInfo.FoundBtn, BM_CLICK, 0, 0);
    или
        SendMessage(FindInfo.FoundBtn, WM_LBUTTONDOWN, MK_LBUTTON	, MakelParam(4, 4));
        SendMessage(FindInfo.FoundBtn, WM_LBUTTONUP, MK_LBUTTON	, MakelParam(4, 4));

end;

[Аватар]

Мне кажется что сама идея ловить такие окна ущербна. Почему не пользовать try...exception для локализации исключений или перехватывать соответствующие сообщения windows в случае вываливания выше приведенного окна?