ShellExecute и запуск файла с неизвестным расширением

[Pantalone]

Файл у нас запускается так:
ShellExecute(frm.hWnd, "open", Path, vbNullString, vbNullString, SW_SHOWNORMAL)
Но запускается он только если его расширению сопоставлено какой-то приложение. А если нет, то как открыть окно для выбора программы в которой откроется файл, такое какое открывает винда?

[Debugger]

А как ты собираешься открыть файл неизвестным приложением? Задачу поставь нормально... Или всё-таки это "иди туда не знаю куда, неси то, не знаю чего"?

[Pantalone]

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

[Debugger]

Мля! Так бы и сказал. Так, предположим есть горка файлов с расширение (предположим) *.MyFile .
1. Ты хочешь назначить (для открытия) для них свою прогу.
2. Ты хочешь сделать так, чтобы когда в проге открывали файл он "видеелся". (например, ты написал php редактор, и когда ты тащишь php-файл на прогу, то прога открывалась не с "чистым листом", а с файлом).

[tyomitch]

Debugger, ты всё ещё не въехал.

[Pantalone]

Да, со внятным объяснением у меня туго, сорри ребята.

[zHackLeX]

Я конечно могу ошибаться, но по-моему он говорит про OpenAs_RunDLL...
Ну посмотри, КАК открывается окно "Открыть с помощью..."
У меня так:
rundll32.exe C:\WINDOWS\system32\shell32.dll,OpenAs_RunDLL c:\testfile.testext
где testfile.testext - файл с неопознанным расширением

Разумеется, никто не мешает тебе запустить это окно самостоятельно - через VB Shell или API ShellExecute...

[vvs_adm]

Да, со внятным объяснением у меня туго, сорри ребята.

Да ну, все там понятно было

[zHackLeX]

Ну что, с OpenAs разобрался?

[Pantalone]

Да.

[zHackLeX]

Вот, нашёл одну занятную (по-моему) статью - пробежал глазами, вроде всё там есть... особенно

There are seven verbs, called canonical verbs, whose meaning is automatically recognized by the shell: open, find, explore, print, printto, openas, and properties.

Проверял лично, что эти команды работают с ShellExecuteEx.
То есть, никто не обязывает тебя запускать Rundll32 - можно всё взвалить на систему ))
Declare функции OpenAs_RunDLL не прокатило (Bad Calling Convention) (а жаль).

[tyomitch]

Declare функции OpenAs_RunDLL не прокатило (Bad Calling Convention) (а жаль).

Потому что объявить нужно правильно.

[zHackLeX]

...потому что bad dll calling convention.
А как правильно объявить?

Rem Спорить не буду, не знаю.

Да. Зачитался статьёй, да ссылку забыл
http://www.oreilly.com/catalog/vbshell/chapter/ch04.html

[tyomitch]

Ты-то как объявил?

[zHackLeX]

Ну... как интуиция подсказала

...lib "shell32.dll" (ByVal FileName As String)

Пробовал также

...lib "shell32.dll" (ByVal FileName As String, ByVal dwReserved as Long)

[tyomitch]

Интуиция подвела.
надо ...lib "shell32.dll" (ByVal hwnd As Long, ByVal hinst As Long, ByVal lpszCmdLine As String, ByVal nCmdShow As Long)
причём это не Function, а Sub.

Источник: http://support.microsoft.com/kb/q164787/