VPF::Вопрос по работе с чужими процессами.

COOLHack

Дата 11.10.2008, 21:59 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: -1
Всего: 0

Нужно нажать CheckBox в чужой проге.

Пытался делать так:

Код


function EnumChild (HWND : HWND; lParam : LPARAM) : BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str : PChar;
  WndText : string;
  WndTextLen : integer;
begin
  try
    GetMem(Str, STR_SIZE);
    if GetClassName(HWND, Str, STR_SIZE) > 0 then
      if StrComp(Str, 'Button') = 0 then
        begin
          WndTextLen := SendMessage(HWND, WM_GETTEXTLENGTH, 0, 0);
          SetLength(WndText, WndTextLen);
          if WndTextLen > 0 then
            begin
              SendMessage(HWND, WM_GETTEXT, WndTextLen + 1, Integer(WndText));
              if CompareStr(WndText, 'ыыы') = 0 then
               SendMessage(HWND, BM_GETCHECK, 0, 0);
            end;
        end;
  finally
    FreeMem(Str);
  end;
end;

Но галочка не ставится.

Проблема в том, что кнопка находится на компоненте, который WinSpyy показывает как #32770 (Dialog)
.

Как нажать эту кнопку?

Это сообщение отредактировал(а) COOLHack - 11.10.2008, 22:08

THandle

Дата 11.10.2008, 22:04 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

COOLHack, а где ты её ставишь? Тут только GET'ы.

Это?

Код


SendMessage(HWND, BM_SETCHECK, BST_CHECKED, 0);

ТО есть полный код:

Код


function EnumChild (HWND: HWND; lParam: LPARAM): BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str: PChar;
  WndText: string;
  WndTextLen: integer;
begin
  try
    GetMem(Str, STR_SIZE);
    if GetClassName(HWND, Str, STR_SIZE) > 0 then
      if StrComp(Str, 'Button') = 0 then //winspy показал что у этого CheckBox а класс Button.
        begin
          WndTextLen := SendMessage(HWND, WM_GETTEXTLENGTH, 0, 0);
          SetLength(WndText, WndTextLen);
          if WndTextLen > 0 then
            begin
              SendMessage(HWND, WM_GETTEXT, WndTextLen + 1, Integer(WndText));
              if CompareStr(WndText, 'Текст CheckBox а ') = 0 then
                SendMessage(HWND, BM_SETCHECK, BST_CHECKED, 0);
            end;
        end;
  finally
    FreeMem(Str);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
     EnumChildWindows(findwindow(nil, 'Имя проги'), @EnumChild 0);
end;

Если не пашет то посмотрим. Я не проверял. Просто посмотрел по логике как должно быть smile

Это сообщение отредактировал(а) THandle - 11.10.2008, 22:07

COOLHack

Дата 11.10.2008, 22:10 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: -1
Всего: 0

Не пашет. я думаю что всё из-за того что эта фигня находится на одной из вкладок. Как посоветуешь сделать?

Это сообщение отредактировал(а) COOLHack - 11.10.2008, 22:18

THandle

Дата 11.10.2008, 22:17 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Работает. Посмотри.

Кстати. Если ты определяешь что это класс Button, то это не обязательно CheckBox. У него стиль BS_CHECKBOX, а у той же простой кнопки его нет. Проверяй этот стиль еще на всякий случай.

Присоединённый файл ( Кол-во скачиваний: 9 )

CheckBox.rar 211,74 Kb

COOLHack

Дата 11.10.2008, 22:29 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: -1
Всего: 0

Огромный респект. Работает. Проблема была в том, что я неверно текст CheckBox а прописал.

Пасиб что откликнуолся на мой вопрос.

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