Как можно получить структуру TOOLINFO тултипа (Tooltips_class32)

[Narutо]

Как можно добраться до структуры TOOLINFO в чужом окне.
Можно вроде с помощью SendMessage отправив сообщение TTM_GETTOOLINFO тултипу, токо вот в Delphi пробую так
API функция SendMessage возвращает нули может кто знает
в чем дело??? Помогите пожалуйста !!

вот код:

uses Commctrl;
var ti:DWORD;
begin
SendMessage(i,TTM_GETTOOLINFO,ti,);
Form2.Edit13.Text:=DecToHex(ti,8);
end;

[MaxNik2009]

судя по описанию этого сообщения надо сделать как-то так:

var
  TI: PToolInfo; // указатель на структуру TToolinfo
begin
  SendMessage(handle, TTM_GETTOOLINFO, 0, lParam(TI));

[Stilet]

MaxNik2009

Может стоит еще и память выделить ?

new(TI);

Ато мало ли...

[Narutо]

Сделал так:

var ti: PToolInfo;
begin
SendMessage(i,TTM_GETTOOLINFO,0,lpa ram(ti));

Сообщение отправляется даже занчение какое-то возвращается в ti (может даже и указатель на структуру TOOLINFO) но окно и само приложение вылетает как бут-то его и небыло! Как быть не знаю???? Может какие API функции есть чтоб извлеч тексты из тултипов???

[Stilet]

Мдя... Видимо читать школота не умеет.
Ладно читаем вместе:

When sending the message, the hwnd and uId members identify a tool

Значит

ti^.hwnd:=Хендл
ti^.uId:=Номер тултипа

and the cbSize member must specify the size of the structure

ti^.size:=sizeof(TOOLINFO);

А уже потом посылать сообщение, и ессно мои рекомендации учесть.
Далее Если SendMessage вернуло 0 значит ничего не получилось - это тоже нужно обрабатывать.

[Narutо]

Может я не правильно понял :SendMessage(i,TTM_GETTOOLINFO,0,lp aram(ti)), где:
i - хэндл тултипа
TTM_GETTOOLINFO - само сообщение
0 - это ID конкретного тула (их может быть несколько)
lparam(ti) - это переменная, которая получит указатель на структуру TOOLINFO (или же сама структура
с инициализированными ti^.hwnd и ti^.uId) как прально то?

ТУЛТИП находится в чужом окне(приложении), у меня есть только хэндл тултипа,
самих ID(uID) тулов нет.
А как узнать uID тулов если есть токо хэндл???
может есть еще какое сообщение или функция?

[Stilet]

Может быть я тоже чего-то не понимаю, но я перевел хелп именно так.
Попробуй опиши как в хелпе сказано.

[Narutо]

Пока юзаю, результатов нет!

[Stilet]

Вот в принципе есть описание:http://programmistu.by.ru/api32_27.htm
Правда на ассемблере:

* TTM_GETTOOLINFO и TTM_SETTOOLINFO. Если вы хотите получить/изменить значения в структуре TOOLINFO после того, как она была отправлена тултипу, используйте данное сообщение. Вам потребуется указать tool, чьи характериситики вы хотите изменить, с помощью верных uId и hWnd.

Скорее всего ты просто эти параметры неверно задаешь.

[Narutо]

Получить текст конкретной подсказки можно посредством GetTipText( ).
Но че т не получается?