Диалог выбора иконок

[Space]

Как вызвать диалог выбора иконок 16х16 в shell32.dll? И как записать изображение в ImageList?

[iGrok]

Как вызвать диалог выбора иконок 16х16 в shell32.dll? И как записать изображение в ImageList?

Хм. А о каком диалоге идёт речь?
ИМХО, нету стандартного диалог выбора иконки, и в каждой софтине он свой, в зависимости от текущих нужд.

[Proxy]

А с какой целью всё это? Ты случайно не хочешь просто извлечь иконки из Dll, EXE и поместить их в imagelist?
Если да, то в поиске глянь, если нет, то можешь дальше не читать. Такое поднималось раз 10 за время моего пребывания здесь. Есть функция в API для извлечения иконок из EXE, DLL (возвращала изображение, идентификатор не вспомню так быстро), и ещё была функция для просмотра количесва иконок в dll, exe. Вот с их помощью и делалось такое.

В Vista и Windows 7 могло всё несколько измениться: иконки уже точно не обязательно 64х64 битмап с альфаканалом 32х32 битмап с альфаканалом и 16х16 битмап с альфаканалом, т.к. уже видел иконку гигантского размера (точно не растянутую из 32х32 или 64х64). Может быть и эти 2 функции тоже изменились.

[Хакер]

Есть такой диалог.
И функция есть. Правда она плохо документирована. Она имеет ординал 62, принимает хендл окна родителя, указатель на строку с именем файла, ноль и указатель на то место, куда следует записать ID выбранной ячейки.

И это один из случаев, где нужно быть внимательным: под 9x эта функция ждёт в качестве второго параметра указатель на ANSI-строку, а под NT — на юникодную.

[Space]

Я имел ввиду диалог, который вызывается по правому клику на ярлыке - Свойства - Сменить значок. Правда, там иконки не 16х16, а мне надо 16х16.

[Хакер]

И, что, мой ответ тебя не удовлетворяет?

[Space]

а как ты думаешь?

[alibek]

Space, тебе голова зачем дана? Тебе же дали подробный ответ.

[Space]

у меня нет головы Я - безбашенный программист. Ну во первых, я не знаю, что такое ординал 62, подозреваю, что это некий номер ф-и в dll.

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

function SHChangeIconDialog(hOwner: LongInt; sFilename: LPWSTR; nBuf: LongInt;
  var nIconIndex: LongInt): LongInt;
  stdcall; external 'Shell32.dll' index 62;

ну енто, код на Паскале нашёл, но ещё с головой там не гулял

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

куда следует записать ID выбранной ячейки.

И что я с этим ID буду делать?

[iGrok]

у меня нет головы Я - безбашенный программист. Ну во первых, я не знаю, что такое ординал 62, подозреваю, что это некий номер ф-и в dll.

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

function SHChangeIconDialog(hOwner: LongInt; sFilename: LPWSTR; nBuf: LongInt;
  var nIconIndex: LongInt): LongInt;
  stdcall; external 'Shell32.dll' index 62;

ну енто, код на Паскале нашёл, но ещё с головой там не гулял

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

куда следует записать ID выбранной ячейки.

И что я с этим ID буду делать?

Можешь на стене записать. Можешь инвертировать три верхних бита, прибавить 153 и разделить пополам. Можешь порыться в памяти по полученному адресу...

А можешь подсунуть функции, которая извлекает иконки из библиотек...

[Хакер]

у меня нет головы Я - безбашенный программист.

Это оксюморон похлеще, чем немой певец.

Ну во первых, я не знаю, что такое ординал 62, подозреваю, что это некий номер ф-и в dll.

Это значит, что функция имеет такой ординал. Для безмозглых можно перефразировать: надо написать Alias "#62" при объявлении функции.

И что я с этим ID буду делать?

Работать.

[djalex777]

[Хакер] :: Зачем постить ерунду?

[djalex777]

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

[Хакер]

Ответ и пример того, что должно было быть в объявлении, если функция импортируется по ординалу, уже был дан. Ценности в твоём примере не было никакой: та его часть, которая показывала импорт по ординалу, не имела ценности, потому что ответ уже был дан. Остальная же часть более чем наполовину была ошибочной.

[Proxy]

А можно было модериал разместить под постом, а пост оставить? А то интересно же что там было.

[djalex777]

В момент блокирования Хакером записи там должно было быть:

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

Private Declare Function SHChangeIconDialog Lib "shell32" Alias "#62" (ByVal hOwner As Long, ByRef szFilename As Byte, ByVal Reserved As Long, ByRef lpIconIndex As Long) As Long


И часть моего предыдущего поста

[Хакер]

Этого чела забанить за враньё. В оригинале второй параметр был ByVal ... As String, последний As Integer, тип возврата As Integer.

[djalex777]

1. Когда я начал писать тот свой пост, твоего поста с Alias "#62" ещё не было.
2. Когда я вспомнил разницу между Integer VB.NET и VB6 я изменил свой пост, но он уже не сохранился (не отредактировался), т.к. был заблокирован Хакером.
Вот тебе и враньё

[Хакер]

Вообще это забавно.

Пункт первый не принимается, т.к. если бы за время пока ты писал своё сообщение кто-то бы ответил (в твоей верси: я) сюда, форум бы предупредил тебя. Так что оправдание не засчитывается. Ты начал писать сообщение либо после того, как я запостил своё, либо всё-же видел предупреждение от форума.

Пункт второй не принимается, и что примечательно, по той же причине: если бы ты отредактировал своё сообщения до блокировки, форум бы меня предупредил об этом.

[djalex777]

Пункт первый не принимается, т.к. если бы за время пока ты писал своё сообщение кто-то бы ответил (в твоей верси: я) сюда, форум бы предупредил тебя. Так что оправдание не засчитывается. Ты начал писать сообщение либо после того, как запостил своё, либо всё-же видел предупреждение от форума.

Оправдание? Разницу между оправданием и объяснением чувствуешь? А почему были обяснения? - из уважения к форуму и его посетителям. Возможно какое-то предупреждение и было, но я его просто пропустил.

Пункт второй не принимается, и что примечательно, по той же причине: если бы ты отредактировал своё сообщения до блокировки, форум бы меня предупредил об этом.

Хм.. А теперь включаем мозг - я жму - отредактировать сообщение, после этого ты жмешь заблокировать (или что-то в этом духе). Запись заблокирована и в то же время поднята у меня на изменение. Я жму отправить и получаю сообщение о том, что запись заблокирована.

[Хакер]

Запись заблокирована и в то же время поднята у меня на изменение. Я жму отправить и получаю сообщение о том, что запись заблокирована.

Именно так. Ты не успел отредактировать, а не я прошляпил момент, когда плохой пост стал хорошим.
Это важно, потому что в следующих сообщениях ты выставил меня так, как будто это именно я стёр хороший, правильный пост.

[Proxy]

как будто это именно я стёр хороший, правильный пост.

нет кто-то другой стёр этот пост. Это конечно дело сугубо модераторское, ну если уж вы посчитали правильным не удалять темы даже если они бредоподобны (вы же просто блокируете темы на VBStreets), то и удалять посты пользователей тоже как-то не логично.
Если кажется, что не удалённой информацией кто-то неприменно попробует воспользоваться, то это не разумно: красный модериал сразу бросается в глаза.

[Space]

Человек не знал как вызвать функцию по номеру

О, я человек! Хотя и программист

Для безмозглых можно перефразировать

Ну спасибо. Так приятно услышать комплимент от кого-то Но у меня ещё остался спинной мозг
Кстати, а что это за фишка - ординал? Функции нельзя было дать имя? Или это вечная проблема программеров с именованием? Или Микрософт решили опять съэкономить на памяти?
Да, кстати... В "Что? Где? Когда?" бородатый мужик играл в команде Мухина, это не ты, Хакер?

[Хакер]

Кстати, а что это за фишка - ординал? Функции нельзя было дать имя? Или это вечная проблема программеров с именованием? Или Микрософт решили опять съэкономить на памяти?

Это двухбайтный номер функции. Имя можно не указывать. Тогда останется возможность импортировать функцию только по ординалу.

бородатый мужик играл в команде Мухина, это не ты, Хакер?

Нет.

[Space]

Ну, ординал, наверное, лучше запоминается, чем имя И именованные константы ошибка века

[iGrok]

Ну, ординал, наверное, лучше запоминается, чем имя И именованные константы ошибка века

Ну например так:
"Если речь идёт о недокументированной функции, то почему нельзя обойтись без имени? Зачем оно нужно?"

Вот они и обошлись.

UPD:
А оказывается у неё таки есть имя, и имя это "PickIconDlg": http://msdn.microsoft.com/en-us/library/bb776481.aspx

Но:

Note This function is available through Windows Vista and Microsoft Windows Server 2003. It might be altered or unavailable in subsequent versions of Windows.

[Proxy]

А может всётаки стоит где-то завести раздел с разборами Windows API? Просто много полезной информации теряется в недрах форума и затем когда-нибудь всплывёт повторно (и не раз). В MSDN многое как-то не слишком понятно описано, а изменения в API есть от версии к версии, без этого никак. Хотя бы в сишных примерах использования.

[Space]

а в Винде есть запрет на использование каких-то функций из-за авторских прав и всё такое?

[alibek]

Ты сам понял, что сказал?

[Proxy]

Авторских прав? Нет конечно, API и разработано для взаимодействия ОС со сторонними продуктами ППО (и не только сторонними).
Может речь о чём-то другом? Права доступа?