Извлечь имена приложений

[NeiL]

Подскажите пожалуйста как из окна "Открыть с помощью" извлечь список рекомендуемых программ при открытии файла. Советовали капаться в реестре, но ничего дельного там не нашел. Уже четыре дня пытаюсь и ничего не выходит. (DELPHI)

[B_N]

NeiL, а Вы про свои старые темы просто забываете что-ли?
http://programmersforum.ru/showthread.php?t=18335
http://programmersforum.ru/showthread.php?t=18389
http://programmersforum.ru/showthread.php?t=18388
Их как, удалять, или штрафовать за кросспостинг?

Смотрите ключ HKEY_CLASSES_ROOT\Applications и выбирайте из него все, у которых нет значения "NoOpenWith"

[NeiL]

Большое спасибо

[Stilet]

Ну плохо рылся знач.
Вот я так например получаю список:

unit Unit1;

interface

uses   registry,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   t:TRegistry;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var e:String;a:TStringList;i:integer;
begin
OpenDialog1.Execute;
a:=TStringList.Create;
t:=TRegistry.Create;
e:=ExtractFileExt(OpenDialog1.FileName);
t.RootKey:=HKEY_CURRENT_USER;
t.OpenKeyReadOnly('\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\'+
 e+'\OpenWithList');
t.GetValueNames(a);
for i:=0 to a.Count-1 do ListBox1.Items.Add(t.ReadString(a[i]));
end;

end.