| Вопрос: SHELL32.dll | Добавлено: 18.04.07 11:04 |
Автор вопроса:  Боцман | Web-сайт: Rus-Skipper.narod.ru | ICQ: 295725312 |
|
При выборе иконки для папки Windows обращается к SHELL32.dll с готовым набором, при выборе создает файл Desktop с параметрами например [.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll IconIndex=22 Вопрос, есть ли возможность программно обратится к этой DLL и получить путь для своего например PictureBOX типа Picture1.Picture LoadPicture путь & индекс иконки? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 18.04.07 12:16 |
|
Private Sub Command1_Click()
Dim hIcon As Long Dim FilePath As String FilePath = "C:\Windows\System32\Shell32.dll" Picture1.BorderStyle = 0 Picture1.BackColor = vbWhite Picture1.Height = Screen.TwipsPerPixelY * 32 Picture1.Width = Screen.TwipsPerPixelY * 32 hIcon = ExtractIcon(App.hInstance, FilePath, 20) 'например 20 Set Picture1.Picture = LoadPicture("" 
Picture1.AutoRedraw = True Call DrawIcon(Picture1.hdc, 0, 0, hIcon) Picture1.Refresh End Sub Ладно, вот так получить иконку, а как обратится к окну выбора и получить индекс? Может кто поможет? |
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 18.04.07 14:09 |
|
Вопрос уже решен, но для вызова в виде
Call Shell("rundll32.exe shell32.dll,Control_RunDLL иконка.cpl,,0" )
иконка.cpl что то подобное не нашел. Может и к лучшему! |
||
Страница: 1 |