PHP DM Gate v0.9 » Контекстное меню "Открыть с помощью..."

misha_gr (09.07.08 19:08) [0]

В рамках приложения реализован достаточно простой менеджер файлов. Выглядит, в первом приближении, как одна из панелей Total Commander. Есть необходимость вывести в контекстном выпадающем меню (по правой кнопке) окошко вроде системного окошка из Проводника "Открыть с помощью|Выбор программы". Может, Мастера подскажут что делать, где искать? Сильно подозреваю что существует стандартная функция API/ShellAPI, но вот как по научному?

<Цитата>
AFHU (09.07.08 22:28) [1]

> Контекстное меню "Открыть с помощью..."

Помню, что несколько месяцев назад тут задавался точно такой же вопрос, как программно вызвать диалог "Открыть с помощью". Тут даже было дано решение, но кажется на C++ (потому что так нужно было тогда автору вопроса)

Хотя не уверен, что misha_gr вариант копаться в архивах форума особо прельщает

<Цитата>
AFHU (09.07.08 22:34) [2]

> копаться в архивах форума особо прельщает

Этого и не нужно. Разве поиск отменяли?

http://yandex.ru/yandsearch?text=delphi+%D0%B4%D0%B8%D0%B0%D0%BB%D0%BE%D0%B3+%D0%BE%D1%82%D0%BA%D1%80%D1%8B%D1%82%D1%8C+%D1%81+%D0%BF%D0%BE%D0%BC%D0%BE%D1%89%D1%8C%D1%8E

По первой ссылке выходим на DelphiWorld, а там ответ:
uses
ShellApi;

procedure OpenWith(FileName: string);
begin
ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'),
PChar('shell32.dll,OpenAs_RunDLL ' + FileName), nil, SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
OpenWith(Opendialog1.FileName);
end;

<Цитата>
misha_gr (10.07.08 12:40) [3]

Большое спасибо. Копаться в архивах - таки да, не особо прельщает. А с поиском: упрёк принимается, протупил.

<Цитата>