Получить путь к файлу в ассоциированном приложении

[dvb]

Создано расширение файлов для нового приложения.
Это расширение связано с приложением.
Теперь ассоциированные с приложением файлы запускают приложение, однако в приложении открывается файл, ранее открытый из приложения, а не посредством клика на значке файла (путь прописывается через CommonDialog).

Необходимо при запуске приложения через любой ассоциированный файл получить путь к этому файлу.
Подскажите, как это реализовать?

[Antonariy]

Путь к кликнутому файлу будет в Command$.

[dvb]

Если не трудно - чуть по-подробнее, а то я пытался через этот command$ решить задачу, ан не получилось

[dvb]

...возвращается пустая строка. Пытался получить путь и в Form_Initialize, и в модуле в Sub Main - глухо!

[Proxy]

Немного не догнал в чём тема. Но может ты в реестре неправильно зарегал новый тип файла? Просто эксплорер будет посылать параметры коммандной строки только когда ты именно иконку файла ПЕРЕТАСКИВАЕШЬ на иконку программы. Иначе нужно ставить спецфлаг в реестре. Помнится где-то в каком-то строковом нужно было дописать "!", но где - не помню. Поищи по форуму, ибо я находил, когда свою оболочку кодил.

[dvb]

Зарегал правильно, систему оповестил через SHChangeNotify, система распознаёт файлы и выдаёт соответствующую иконку, значок приложения появляется в "Открыть с помощью...". Только чтение данных из файла производится по имени этого файла (читай - пути)с использованием переменной strFileName.

Вопрос: как при запуске приложения (а-ля простенький редактор вроде Word, Excel, Access) в переменную прописать путь выбранного пользователем файла? Если файл открывается в приложении с помощью диалога "Открыть", тут всё понятно, присваиваем переменной значение CommDial.FileName, сохраняем его в .ini или в реестре, а вот если приложение ещё не запущено и пользователь кликает на самом файле, где и как приложению узнать путь (имя) к этому файлу???

[Proxy]

Ещё раз говорю. Если корректно зареган, то Command$ будет содержать путь к файлу, по которому в эксплорере даблкликнули. Если не содержит - значит зареган неверно, ибо тама ещё не всё ты сделал. Вот.

[Antonariy]

В дефолтном значении ветки HKEY_CLASSES_ROOT\Твой.Класс\shell\open\command точно есть "%1%"?

[Proxy]

Во! Во! "%1%" точно!!!! А меня что-то на "!" заклинило.

[iGrok]

Второй % - лишний. Просто
"путь\мояпрограмма.exe" "%1"

[dvb]

Добавлял в реестр по этой функции:

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

Sub AssExtension()

Dim sKeyName As String
Dim sKeyValue As String

Dim ret as Long
Dim lphKey as Long

'Создание раздела программы
sKeyName = "MyApp.1" ' Название приложения
sKeyValue = "My Application 1" ' Полное название, так же возможно краткое описание
ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
ret = RegSetValue(lphKey, "", REG_SZ, sKeyValue, 0&)


'Создание раздела, для использования иконки.
sKeyName = "MyApp.1\DefaultIcon" ' Название приложения
sKeyValue = "C:\Program Files\MyProgram\myprog.exe,0"  ' Путь к используемой иконке
ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
ret = RegSetValue(lphKey, "", REG_SZ, sKeyValue, 0&)


'Создание раздела, относящегося к расширению
sKeyName = ".myp" ' Регистрируемое расширение
sKeyValue = "MyApp.1" ' Приложение, с которым связываеться данное расширение
ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
ret = RegSetValue(lphKey, "", REG_SZ, sKeyValue, 0&)


'Коммандная линия для приложения"MyApp".
sKeyName = "MyApp.1"
sKeyValue = "C:\Program Files\MyProgram\myprog.exe %1"
ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
ret = RegSetValue(lphKey, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)

Call SHChangeNotify (SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)

End Sub

В предпоследнем абзаце "Коммандная линия..." добавлен ключ с ".ехе %1".

Может, я где-то ещё пропустил такой ключ или неправильно использовал функцию command$?

[iGrok]

Да вроде всё правильно. Только проверь, а создаются ли эти ключи?
Ты ж ret нигде не смотришь, чёрт его знает, как отрботали функции..

[dvb]

Проверил... и нашёл где @ порылась:

Мой код передаёт строку в реестр без кавычек, а соммандная строка в этом случае возвращается в режиме DOS с с сокращёнными именами. У меня обработчик при ошибке обращения к файлу просто выходил из процедуры без комментов. В-общем, я добавил Chr(34) к экспортируемой в реестр строке и всё получилось, как надо

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

sKeyValue = Chr(34) & App.Path & "\" & App.Title & ".exe" & Chr(34) & " " & Chr(34) & "%1" & Chr(34)

Огромное спасибо всем, кто не позволил мне сойти с пути истинного, кто настоял и не дал отвернуться от использования функции command$(), дабы постичь результат созидания! Во как[/code]