Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Toolbar Чужого приложения 
:(
    Опции темы
Гость_Vladimir
Дата 7.1.2006, 22:08 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


заранее спасибо.
  Вверх
p0s0l
Дата 8.1.2006, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Попробуй TB_HITTEST



--------------------
С уважением, г-н Посол.
PM   Вверх
Гость_Владимир
Дата 13.1.2006, 14:34 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Передаю хэндл и локальные координаты.
Возможно ошибка в параметрах 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 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


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

SendMessage(appHandle, WM_COMMAND, 7, toolBarHandle);

но не работает. Число 7 в параметрах - это номер кнопки (8-я, нумерация идёт с нуля).
  Вверх
Voyager
Дата 13.1.2006, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 18
Так надо еще и хендл тулбара знать чтоб работать с контролами в нем.
PM   Вверх
Санчес_
Дата 14.1.2006, 00:23 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Цитата(Voyager @ 13.1.2006, 23:44)
Так надо еще и хендл тулбара знать чтоб работать с контролами в нем.

Я его знаю - он записан в переменной toolBarHandle.
  Вверх
Гость_Vladimir
Дата 14.1.2006, 11:45 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ребят помогите разобраться с этим TB_HITTEST.
Пробовал
SendMessage(hToolBar, TB_HITTEST, 0, lparam(@Point));
выдает все время отрицательный результат.
  Вверх
Girder
Дата 14.1.2006, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


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

Репутация: 25
Всего: 155
1. ScreenToClient
2. WM_LBUTTONDOWN+WM_LBUTTONUP


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
p0s0l
Дата 14.1.2006, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Цитата(Гость_Владимир @ 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;


Это сообщение отредактировал(а) p0s0l - 14.1.2006, 18:35


--------------------
С уважением, г-н Посол.
PM   Вверх
sjvov
Дата 14.1.2006, 19:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
супер!!!
спасибо p0s0l.

Классный у вас тута форум, я даже зарегился ради такого дела.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0536 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.