Релиб / Программирование / Visual Basic / Получить картинку согласно расширению / Latest Posts

RE: Получить картинку согласно расширению

ormed — Thu, 17 Oct 2002 18:58:00 GMT

Option Explicit

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" _
Alias "ExtractAssociatedIconA" (ByVal hInst As Long, _
ByVal lpIconPath As String, lpiIcon As Long) As Long

Private Sub GetAssociatedIcon(picBox As PictureBox, filePath _
As String)
Dim hIcon As Long ' handle to icon
If Dir(filePath) <> "" Then 'a simple check.
hIcon = ExtractAssociatedIcon(App.hInstance, _
filePath, 0) ' try and get icon handle.
If hIcon <> 0& Then ' if we have the handle then
Picture1.AutoRedraw = True ' need this
Call DrawIcon(picBox.hdc, 0, 0, hIcon) ' draw the icon
picBox.Refresh ' refresh the box
picBox.AutoRedraw = False ' saves memory , but not needed
End If
Else ' duh file does not exist.
MsgBox ("Must be a valid path")
End If
End Sub

Private Sub Command1_Click()
Call GetAssociatedIcon(Picture1, "c:\mpr's\bjd1.mp3")
End Sub

RE: Получить картинку согласно расширению

ormed — Thu, 17 Oct 2002 17:46:00 GMT

Я тут провел некоторые исследования и выяснил.
допустим расширение .rrr
информация о нем хранится в реесте HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.rrr
там свойство по умолчанию равно ft000001
и потом HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ft000001\DefaultIcon и содержит путь к иконке

то есть нужно сначала найти название класса для расширения, а потом путь к иконке

RE: Получить картинку согласно расширению

Gastello — Thu, 17 Oct 2002 11:53:00 GMT

Блин, прогнал.
Я был в полной уверенности, что это форум по ASP!!!
не ту ссылку нажал, бывает :)

RE: Получить картинку согласно расширению

aaf — Thu, 17 Oct 2002 11:36:00 GMT

а если брать картинки прямо из системы? Такое возможно?

RE: Получить картинку согласно расширению

aaf — Thu, 17 Oct 2002 11:36:00 GMT

а если брать картинки прямо из системы? Такое возможно?

RE: Получить картинку согласно расширению

Gastello — Thu, 17 Oct 2002 10:33:00 GMT

дак а в чем проблема то.

формируешь массив с расширениями и сопоставлеными им путями к картинкам.
считываешь файлы, вырезаешь расширение и смотрешь по масиву, если
совпадает то выводишь соотв. картинку, если нет выводи картинку типа
неизвестный тип файла ну или ничего не выводишь.

RE: Получить картинку согласно расширению

aaf — Wed, 16 Oct 2002 06:34:00 GMT

Пиплы! Ну не ужели ни кто не делал такое?

RE: Получить картинку согласно расширению

aaf — Wed, 09 Oct 2002 06:26:00 GMT

Конечно о программе! Спвсибо конечно, но так я уже научился!
Попробую подробней:
У меня есть файлы в каталоге. И есть список этих файлов. Вот чтобы как то сделать более удобным к визуальному восприятию типов файлов я и хотел бы попробовать получить изображения для типов файлов а потом их использовать.
Вот! Ни кто не запутался? Вам везет.

RE: Получить картинку согласно расширению

Korolana — Tue, 08 Oct 2002 18:29:00 GMT

Nekorrektno postavlen vopros:
-rech idet o programme ili o sistemnyh sredstvah?
-O kakoy operacionke?

Esli govorim o sistemnyh sredstvah i Windows 2kP to:
Control Panel->Folder Options->File Types->Advanced->Change Icon

Получить картинку согласно расширению

aaf — Tue, 08 Oct 2002 13:12:00 GMT

Собс-но по теме. Есть список названий файлов - как каждому типу файлов согласно его расширению сопоставить системную картинку? Ни кто случаем не занимался?