Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Вопрос по работе с чужими процессами.

Автор: COOLHack 11.10.2008, 21:59

Нужно нажать 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)
.

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

Автор: THandle 11.10.2008, 22:04

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

Автор: COOLHack 11.10.2008, 22:10

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

Автор: THandle 11.10.2008, 22:17

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

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

Автор: COOLHack 11.10.2008, 22:29

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

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