| Вопрос: SHELL32.DLL | Добавлено: 19.01.04 13:00 |
Автор вопроса:  Millenium | Web-сайт: www.aliyev.us | ICQ: 629966 |
|
Всем кто любит пользоватся средствами Windows привет! Вопрос вот в чём. Наверняка все знают что стандартные компоненты Windows находятся в его файле ресурсов SHEL32.DLL. ЧТо надо сделать? Надо выдернуть стандартные иконки (знаю номер İD) Как этого добится? Есть ли стандартный и краткий API? У меня есть один пример но он очень большой К стати содержимое SHELL32.DLL можно просмотреть З.Ы.: |
И остальным тоже.
, видео (AVİ) и стандартные системные стринги.
и без комментариев
. Если кто-то смржет разобрать и сделать его именно для SHELL32.DLL и максимально убавить код
буду намного благодарен!!!
B Visual C++ как Resource.
Тогда не надо бывает тошить и ави + иконки :-)
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 20.01.04 11:25 |
|
Иконки: Private Declare Function DrawIcon Lib "user32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long Private Sub Command1_Click() Dim hico As Long For i = 0 To 100 hico = ExtractIcon(ByVal App.hInstance, "shell32.dll", i) Command1.Caption = hico DrawIcon ByVal Me.hdc, ByVal i * 40, ByVal 10&, ByVal hico CloseHandle hico Next End Sub |
||
Страница: 1 |