Список используемых расширений файлов на компьютере

[maloun]

Здравствуйте.
Никогда не работал раньше с реестром, но всётаки понадобилось...
Когда-то давным давно лазил по реестру, нашёл там
папку (раздел HKEY_CLASSES_ROOT) в ней ещё множество подразделов имена которых форматы (расширения) файлов на моём компьютере.
Мне нужно этот список форматов
от " * " до " .zxp " получить, мб это не через реестр можно сделать, по тому что в реестре в разделе HKEY_CLASSES_ROOT ещё много папок с нормальными названиями.
В общем как мне получить нормальный список расширений файлов
из реестра или какнибуть ещё

[Человек_Борща]

проще простого:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegIniFile;
  i: integer;
begin
  reg := TRegIniFile.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.OpenKey('', false);
    ListBox1.Items.BeginUpdate;
    reg.ReadSections(ListBox1.Items);
    i := 0;
    while i <> ListBox1.Items.Count do
    begin
      if ListBox1.Items[i][1] <> '.' then
        ListBox1.Items.Delete(i)
      else
        inc(i);
    end;
    ListBox1.Items.EndUpdate;
  finally
    reg.Free;
  end;
end;

[maloun]

моя делфи, да и я сам понятия не имеем откуда взялся TRegIniFile;
мб ченить надо подключать?

[Пепел Феникса]

в uses Registry добавляем.

[maloun]

вот так уже работает, спасибо всем.