VBNet - Форум - ассоциация иконки и файла

Вопрос: ассоциация иконки и файла Добавлено: 25.03.04 15:05

Автор вопроса: DmitryIM

Подскажите как можно из программы сделать так, чтобы файл с определенным расширением в системе (в проводнике и т.д) отображался с определенной иконкой
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: X-Man Вопросов: 2 Ответов: 3	Профиль \| \| #1	Добавлено: 25.03.04 15:22
	В параметрах формы перед компиляцией поставь сойство иконки(прежде, нужно ее создать или выкачать.) Ответить

Номер ответа: 2
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #2

Добавлено: 27.03.04 20:06

HKEY_CLASSES_ROOT\.txt\"txtfile"

HKEY_CLASSES_ROOT\txtfile\DefaultIcon\"C:\PROGRAM FILES\BRED2R\BRED2R.EXE,1"

Ответить

Номер ответа: 3
Автор ответа:

KorDen

ICQ: 329465302

Вопросов: 4
Ответов: 11

Профиль | | #3

Добавлено: 29.03.04 01:39

Попробуй скачать исходник вот отсюда:

http://www.buygold.net/v06n09/ListviewShowFileIcon.zip

Сам долго искал, потом скачал и во всем разобрался. Классный примерчик!!!

Ответить

Номер ответа: 4
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #4

Добавлено: 29.03.04 01:59

Эх долго я обходил этот топик стороной... ну да смотреть больно

' Пример использования:
' Определение имеется ли ассоциация:
'   If IsAssociate(".shw", "HWStSkin") Then 
' Удаление ассоциации с файлом
        Call DeAssociate(".shw") 
' Установка ассоциации
        Call Associate(".shw", "HWStSkin", "Файл скина для программы HomeWork Statist", 1, App.Path & "\" & LCase(App.EXEName) & ".exe") 
' В модуль... 
' §§§§§§§§§§§§§§§§§§§§§§§§§§ Асоциирование с файлом §§§§§§§§§§§§§§§§§§§§§§§§§§ 
'Ассоциация файлов с программой
Public Sub Associate(ByVal sType As String, ByVal sKey As String, ByVal sDescr As String, _
                     ByVal iIcon As Integer, ByVal sPrompt As String) 
    Call RegSetValue(HKEY_CLASSES_ROOT, sKey, vbNullString, sDescr)
    If Len(sPrompt) Then Call RegSetValue(HKEY_CLASSES_ROOT, sKey & "\shell\open\command", vbNullString, sPrompt & " %1")
    Call RegSetValue(HKEY_CLASSES_ROOT, sKey & "\DefaultIcon", vbNullString, App.Path & "\" & LCase(App.EXEName) & ".exe," & CStr(iIcon))
    Call RegSetValue(HKEY_CLASSES_ROOT, sType, vbNullString, sKey)
End Sub 
Public Function DeAssociate(sType As String) As String
    DeAssociate = RegGetValue(HKEY_CLASSES_ROOT, sType, vbNullString) 
    Call RegDelKey(HKEY_CLASSES_ROOT, DeAssociate & "\shell\open\command")
    Call RegDelKey(HKEY_CLASSES_ROOT, DeAssociate & "\shell\open")
    Call RegDelKey(HKEY_CLASSES_ROOT, DeAssociate & "\shell")
    Call RegDelKey(HKEY_CLASSES_ROOT, DeAssociate)
    Call RegDelKey(HKEY_CLASSES_ROOT, sType)
End Function 
Public Function IsAssociate(sType As String, sKey As String) As Boolean
    IsAssociate = (RegGetValue(HKEY_CLASSES_ROOT, sType, "") = sKey)
End Function

Ответить

Страница: 1 |