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

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

Форум программистов > Delphi: WinAPI и системное программирование > Toolbar Чужого приложения

Автор: Гость_Vladimir 7.1.2006, 22:08

Необходимо при наведении курсора мышки на чужой тулбар определить какая и менно кнопка находиться под курсором.

заранее спасибо.

Автор: p0s0l 8.1.2006, 01:17

Попробуй TB_HITTEST

Автор: Гость_Владимир 13.1.2006, 14:34

Передаю хэндл и локальные координаты.
Возможно ошибка в параметрах SendMessage.

Код


function ToolbarGetItemIndex(hToolBar: THandle; Point: TPoint):integer;
var
     ItemPos: integer;
begin
        ItemPos := SendMessage(hToolBar, TB_HITTEST, 0, lparam(@Point));
        form1.Memo2.Lines[0]:='ToolBar I: '+IntToStr(ItemPos);
end;

Автор: Санчес_ 13.1.2006, 18:24

Кстати, можно расширить тему: как нажать на кнопку в чужом тулбаре?
Пробовал

Код


SendMessage(appHandle, WM_COMMAND, 7, toolBarHandle);

но не работает. Число 7 в параметрах - это номер кнопки (8-я, нумерация идёт с нуля).

Автор: Voyager 13.1.2006, 23:44

Так надо еще и хендл тулбара знать чтоб работать с контролами в нем.

Автор: Санчес_ 14.1.2006, 00:23

Цитата(Voyager @ 13.1.2006, 23:44)

Так надо еще и хендл тулбара знать чтоб работать с контролами в нем.

Я его знаю - он записан в переменной toolBarHandle.

Автор: Гость_Vladimir 14.1.2006, 11:45

Ребят помогите разобраться с этим TB_HITTEST.
Пробовал
SendMessage(hToolBar, TB_HITTEST, 0, lparam(@Point));
выдает все время отрицательный результат.

Автор: Girder 14.1.2006, 16:31

1. ScreenToClient
2. WM_LBUTTONDOWN+WM_LBUTTONUP

Автор: p0s0l 14.1.2006, 18:30

Цитата(Гость_Владимир @ 13.1.2006, 14:34

)

Передаю хэндл и локальные координаты.
Возможно ошибка в параметрах SendMessage.

Дело в том, что структура TPoint должна была в адресном пространстве чужого процесса...

Код


var
  hToolbar : HWND;
  ProcessID : DWORD;
  MousePos : TPoint;
  rcToolbar : TRect;
  hProcess : THandle;
  Buffer : pointer;
  tmp : DWORD;
  Button : integer;

begin
// в hToolbar должен быть хэндл окна тулбара

  MousePos := Mouse.CursorPos;
  GetWindowRect(hToolbar, rcToolbar);
  MousePos.X := MousePos.X - rcToolbar.Left;
  MousePos.Y := MousePos.Y - rcToolbar.Top;

  GetWindowThreadProcessId(hToolbar, ProcessID);
  hProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_WRITE, False, ProcessID);
  Buffer := VirtualAllocEx(hProcess, nil, SizeOf(MousePos), MEM_COMMIT, PAGE_READWRITE);
  WriteProcessMemory(hProcess, Buffer, @MousePos, SizeOf(MousePos), tmp);
  Button := SendMessage (hToolbar, TB_HITTEST, 0, LPARAM(Buffer));
  VirtualFreeEx(hProcess, Buffer, 0, MEM_RELEASE);
  CloseHandle (hProcess);

// в Button находится № кнопки
end;

Автор: sjvov 14.1.2006, 19:05

супер!!!
спасибо p0s0l.

Классный у вас тута форум, я даже зарегился ради такого дела.