Имитация нажатия кнопки в чужом окне(форме)...

[Agasferat]

Как имитировать нажатие кнопки в чужом окне (форме)?
Есть какая нить функция, команда или процедура, которая бы позволяла это делать???

[medved_68]

Цитата: Сообщение от Agasferat Как имитировать нажатие кнопки в чужом окне (форме)? Есть какая нить функция, команда или процедура, которая бы позволяла это делать???

Для начала необходимо получить дескриптор данного окна. Можно для этого использовать FindWindow....затем функцией EnumChildeWindow....получить дескрипторы дочерних контролов, после этого проверить соответствие каждого контрола нужному классу и если найден нужный дескриптор - отправить ему сообщение о нажатии и отпускании кнопки мыши:

      //Находим дескриптор окна процесса распаковки
              Okno:=FindWindow(nil,'Самораспаковывающийся архив WinRAR');
              if Okno <> 0 then
                begin //Это процесс архиватора
                  SL.Clear;
                  EnumChildWindows(Okno, @EnumChildProc, Longint(SL));
                  //После окончания Han = дескриптору контрола
                  //который необходимо "программно нажать"
                  if Han <> 0 then PostMessage(Han, BM_CLICK, 0, 0);

Функция callback вот ее вторая часть:

//КаллБэк функция поиска дочерних контролов
function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall;
var
  ax:string;
begin
  Result := Wnd <> 0;
  if Result then
    begin
      Len:=GetClassName(Wnd,Buff,MAX_PATH);
      if Len > 0 then
        begin
          ax:=string(Buff);
          if ax = 'Button' then
            begin
              Len:=GetWindowText(Wnd,Buff,MAX_PATH);
              if (string(Buff)) = 'Извлечь' then Han:=Wnd;
            end;
        end;
      EnumChildWindows(Wnd, @EnumChildProc, Longint(SL));
    end;
end;

В данном случае я программно запускал самораспаковывающийся архив винрара и нажимал кнопку извлечь. Архив распаковывался и процесс "склеивал ласты".

[Agasferat]

Дескриптор окна есть, есть дескриптор кнопки! Мне вот что не понятно это как вот послать сообщение как ты говоришь о нажатие вот это момент меня интересует, можно подробнее ! А то шо то мусолю и мусолю ни как не доганю!

[medved_68]

Цитата: Сообщение от Agasferat Дескриптор окна есть, есть дескриптор кнопки! Мне вот что не понятно это как вот послать сообщение как ты говоришь о нажатие вот это момент меня интересует, можно подробнее ! А то шо то мусолю и мусолю ни как не доганю!

Либо SendMessage, либо PostMessage. Тем более, что дескриптор кнопки ты уже отловил. Вот ему и отправляй:

PostMessage(Дескриптор кнопки, BM_CLICK, 0, 0);

Есть правда кнопки, которые не понимают сообщение BM_CLICK - тогда приходится окну-родителю посылать нажатие/отпускание кнопки мыши с координатами контрола кнопки (делаем предварительно "лишние телодвижения", получая координаты контрола на форме). Даже если кнопка просто нарисована (т.е. это не контрол, а область формы (но это ИМХО не твой случай) - такой вариант прокатит на ура и форма обработает последовательность сообщений от якобы мыши.

[Agasferat]

А есть какая нить функция которая бы показала все Контролы какие есть в конкретном окне, дескриптор окна есть????
Ну то есть чтобы знать типы контролов

[medved_68]

Цитата: Сообщение от Agasferat А есть какая нить функция которая бы показала все Контролы какие есть в конкретном окне, дескриптор окна есть???? Ну то есть чтобы знать типы контролов

Нет, такой функции нет. Но есть программы. Одна из них входит в пакет MVS 2005 и называется Spy++. Есть и другие аналоги, например http://softsearch.ru/programs/61-526...download.shtml называется WieW 1.90. Работать просто - запускаешь программу, запускаешь "жертву", наводишь мышь и в программе (окне) отображается информация о контроле под указателем мыши, начиная от текущего дескриптора до имени класса, под которым данный контрол скомпилирован.