Открыть файл программой

[Akella]

Скажите как можно открыт любой файл (моего расширения) моей программой через меню вызываемое Правой Кнопкой Мыши

[Kostyan]

Имеешь в виду ассоциировать какой-то тип файлов с твоей прогой? Делается через реестр:

Код: Выделить всё

Dim sKeyName As String
Dim sKeyValue As String
Dim ret As Long
Dim lphKey As Long, lphSubKey As Long

'Коммандная строка
sKeyName = "txtfile"
sKeyValue = App.Path & "\" & App.EXEName & ".exe %1"
Call RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)

Call RegSetValue(lphKey, "shell", REG_SZ, "Открыть", MAX_PATH)
Call RegOpenKey(lphKey, "shell", lphSubKey)
Call RegSetValue(lphSubKey, "Open", REG_SZ, "Открыть", MAX_PATH)
Call RegOpenKey(lphSubKey, "Open", lphSubKey)
Call RegSetValue(lphSubKey, "command", REG_SZ, sKeyValue, MAX_PATH)
Call RegCloseKey(lphSubKey)

'Ссылка на иконку
sKeyValue = App.Path & "\" & App.EXEName & ".exe,0" 'Иконка программы
'sKeyValue = Путь к значку 'Другая иконка
Call RegSetValue(lphKey, "DefaultIcon", REG_SZ, sKeyValue, MAX_PATH)
Call RegCloseKey(lphKey)


Данный код ассоциирует с твоей программой текстовые файлы (txt), и присваивает им свою иконку. Поменяй в коде txt на нужное расширение.

[Akella]

спасибо, сейчас попробую