| Вопрос: Иконка объекта | Добавлено: 12.08.05 20:49 |
Автор вопроса:  Black Dragon | Web-сайт: в разработке | ICQ: 321186096 |
| Где-то на сайте есть пример "Take Assotiated Icon". Так получить ассоциированную иконку объекта (файла, папки, диска) размера 16х16, а не 32х32, как в примере? |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  Amor ICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #1 | Добавлено: 13.08.05 07:15 |
|
Const DI_MASK = &H1
Const DI_IMAGE = &H2 Const DI_NORMAL = DI_MASK Or DI_IMAGE Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long Private Sub Form_Paint() Dim mIcon As Long mIcon = ExtractAssociatedIcon(App.hInstance, "C:\Autoexec.bat", 2) 'Draw the icon on the form  rawIconEx Me.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL
'remove the icon from the memory estroyIcon mIcon
End Sub |
||
|
Номер ответа: 2 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #2 | Добавлено: 13.08.05 13:33 |
|
2Amor:
ну ды этож не то... |
||
|
Номер ответа: 3 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #3 | Добавлено: 14.08.05 18:20 |
2 Barsik: это действительно не то 
|
||
|
Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 14.08.05 23:52 |
|
2 Black Dragon: точно не то
П.С. )))))))))))))))))))))
ну кто четвёртый?! Может потом это попадёт в раздел самых тупых ответов... |
||
|
Номер ответа: 5 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #5 | Добавлено: 15.08.05 19:51 |
|
ну кто четвёртый?! Может потом это попадёт в раздел самых тупых ответов... А может потом сделать раздел на сайте: "Самые путые ответы истории форума"?
2 All: а теперь серьезно: как?! |
||
|
Номер ответа: 6 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #6 | Добавлено: 15.08.05 22:54 |
я делал это раньше... исходник потерял, а сейчас непомню все как было 
|
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 15.08.05 23:52 |
| А ты примеры смотрел, набири в поисковике... Примеров вытягивания иконки много, неужели не в одном нет 16х16 ? | ||
|
Номер ответа: 8 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #8 | Добавлено: 16.08.05 21:32 |
|
А ты примеры смотрел
Смотрел. Иначе не спрашивал бы. набири в поисковике
Набирал, там ерунда полнейшая, не имеющая ничего общего с кодом на VB Примеров вытягивания иконки много
Может быть
неужели не в одном нет 16х16
Сколько искал, не нашел
|
||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 17.08.05 00:03 |
|
А ну порой в эту сторону!
Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long Public Type SHFILEINFO hIcon As Long ' out: icon iIcon As Long ' out: icon index dwAttributes As Long ' out: SFGAO_ flags szDisplayName As String * MAX_PATH ' out: display name (or path) szTypeName As String * 80 ' out: type name End Type |
||
|
Номер ответа: 10 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #10 | Добавлено: 22.08.05 22:09 |
|
Тебе пример выслать? Работающий граббер + иконки 16*16.
|
||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 22.08.05 22:30 |
|
и мне интерестно, вышли если не влом
VisualBasic@xaker.ru |
||
Страница: 1 |