открыть с помощью

[tarasov]

как получить список приложений, с помощью которых можно открыть указанный файл.

[JTG]

Имеется ввиду отобразить диалог "Открыть с помощью"?

[tarasov]

так точно "Открыть с помощью"

[JTG]

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