Вызвать окно Открыть с помощью...

[Shouldercannon]

Как в Delphi вызвать окно Windows Открыть с помощью... для выбора соответсвующей программы для открытия определённого файла. Нашёл пример на форуме

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

но не знаю как применить его в своём случае, нужно открыть с помощью файл по указанному пути в ListBox
D:\cfg\banned_user.cfg
Просто открыть

ShellExecute(handle, 'open', pChar(ListBox1.Items[ListBox1.ItemIndex]), nil, nil, SW_SHOW);

А как будет это выглядеть при открытии того же файла, но только с Открыть с помощью...?

[ОДИНОЧЕСТВО В СЕТИ]

 OpenWith(ListBox1.Items[ListBox1.ItemIndex]);

вот так это будет

[mihali4]

Вас это интересует?
Как открыть диалог "Открыть с помощью..."

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;

[Shouldercannon]

В продолжение темы. Как вызвать диалоговое окно Windows при событии: "Не удалось открыть файл" с двумя вариантами действий: Поиск соответсвия в Интеренете и Выбор программы из списка установленных программ?