Установка флагов итемов в CheckedListBox чужого приложения

[visualman]

Приветствую!

Проблема такая:

есть 2 приложения:
1 - инсталлятор продукта конторы
2 - Моё средство автоматизации тестирования

CheckedListBox - ListBox с галками у пунктов.

Требуется в диалоге инсталлятора в объекте CheckedListBox поставить флаги у некоторых элементов этого списка.
У списка знаю только Handle.

Другие действия со списком совершаю без проблем. Например:

Код: Выделить всё

RetVal = SendMessage (CheckedListBox.hWnd, LB_GETCOUNT, 0, 0)

- получает колличество элементов списка

Код: Выделить всё

RetVal = SendMessage (CheckedListBox.hWnd, LB_GETTEXT, 1, BuffLen)

- получает текст итема

Код: Выделить всё

RetVal = SendMessage (CheckedListBox.hWnd, LB_SELECTSTRING, -1, ItemText)

- Ищет строку в списке по её начальной части текста

(написано абстрактно)

и т.д.

Мне надо найти такую константу, вместо LB_GETCOUNT, LB_SELECTSTRING и т.д. чтобы у итема устанавливался флаг (галочка). Типа он выбран.

Например Вот так:

Код: Выделить всё

RetVal = SendMessage (CheckedListBox.hWnd, LB_SETITEMCHECK, 2, 1)

(2-индекс итема, 1 - булевский True - установить флаг; 0 - снять флаг)

Сорс http://www.codeproject.com/KB/combobox/Win32SDK_ListboxCombobox.aspx#CheckedListBox_SetCheckState11 надежд не оправдал.
В сорсе APIListBox тоже ни чего полезного не нашёл. Помогите плиз! 3 дня в поисках решения.

[Хакер]

Что за инсталлятор? Хорошие инсталляционные платформы предлают выбор опций с помощью ключей или спец. API. Так что будет документированный путь, а не горе-способ с сообщениями.

[visualman]

Что за инсталлятор? Хорошие инсталляционные платформы предлают выбор опций с помощью ключей или спец. API. Так что будет документированный путь, а не горе-способ с сообщениями.

InnoSetup. На Delphi написан. Класс списка TNewCheckListBox. 'Производная' от стандартного ListBox.

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

Люди говорят, что надо двигаться в сторону LB_GETITEMDATA, но он всегда False возвращает (типа у пункта флаг не установлен)

[Хакер]

В чём проблема? Ты не знаешь, какое сообщение надо послать окну, чтобы элемент стал чекнутым (не путать с чёкнутым)?

[ger_kar]

А что если банально послать WM_LBUTTONDOWN / WM_LBUTTONUP . Интересно, что сообщение WM_LBUTTONDBLCLK есть, а сообщения для одинарного клика я не нашел, у меня сложилось такое ощущение что его вообще нет. Я как-то делал подобное в программе "компьютерный зал", для переключателя, помогло одно из двух мной предложенных, правда уже не помню точно какое.

[visualman]

В чём проблема? Ты не знаешь, какое сообщение надо послать окну, чтобы элемент стал чекнутым (не путать с чёкнутым)?

ДаДа!!!! Именно этого я не знаю!

[ger_kar]

ДаДа!!!! Именно этого я не знаю!

Кстати тоже интересно было-бы узнать, может специальное сообщение есть для этого.
visualman, а ты пробовал WM_LBUTTONDOWN и WM_LBUTTONUP посылать?

[Хакер]

ДаДа!!!! Именно этого я не знаю!

LB_SETSEL

[visualman]

ДаДа!!!! Именно этого я не знаю!

LB_SETSEL

[Хакер]

Вот ты попробуй. Я в спорных случаях всегда испытываю, прежде чем написать.

[visualman]

Вот ты попробуй. Я в спорных случаях всегда испытываю, прежде чем написать.

Блин! Сколько раз я её описание перечитывал за 3 дня...
Спасибо большое! На VBшном листе работает. Проверю завтра на дельфях.

Спасибо!

[visualman]

Увы увы ((( Ни с TNewCheckListBox, ни с CheckedListBox из VS, не работает. Только с VBшным.

Возвращает LB_ERR.

GetLastError выдал: Операция успешно завершена.

Прицепляю проект