Проверка расширений файлов

[spamer]

Всем привет. Вот у меня такая проблема:
получаю я список файлов и папок в любом каталоге, вывожу этот список в ListView. Теперь мене надо запустить любой файл - это все я делаю при помощи ShellExecute(). Когда расширение файла нормально (известно оно системе), то все запускается - это есть хорошо. А вот как мене проверить: если расширение файла не известно, то выдать например сообщение ShowMessage('Error');

Пробовал воспользоваться функцией ExtractFileExt, которая возвращает расширение файла, но тогда с чем сравнивать это полученно расширение? Кто знает, подскажите.

[Neeter]

Просмотрите ветку HKEY_CLASSES_ROOT в реестре.

[spamer]

Я вот в этой ветке реестра нашел просто список расширений(не знаю всех или не всех). А как мне тогда сравнивать мое расширение с этими расширениями из реестра ??? В ручную создавать список всех этих расширений?

[Neeter]

Зачем, вот вам примеры:

Этот код выводит в ListBox все ключи из HKEY_CLASSES_ROOT:

procedure TForm1.bt_1Click(Sender: TObject);
var
 reg: TRegIniFile;
 i: integer;
begin
 reg := TRegIniFile.Create;
 try
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.OpenKey('', false);
  lbox_1.Items.BeginUpdate;
  reg.ReadSections(lbox_1.Items);
  lbox_1.Items.EndUpdate;
 finally
  reg.Free;
 end;
end;

Вот код, который заносит в listbox только расширения:

procedure TForm1.bt_2Click(Sender: TObject);
var
 reg: TRegIniFile;
 i: integer;
begin
 reg := TRegIniFile.Create;
 try
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.OpenKey('', false);

  lbox_1.Items.BeginUpdate;

  reg.ReadSections(lbox_1.Items);
  i := 0;
  while i <> lbox_1.Items.Count do
  begin
   if lbox_1.Items[i][1] <> '.' then
    lbox_1.Items.Delete(i)
   else
    inc(i);
  end;

  lbox_1.Items.EndUpdate;
 finally
  reg.Free;
 end;
end;

lbox_1 - ListBox

не знаю всех или не всех

Всех.

[spamer]

Neeter спасибо. А вот меня интересует еще такой вопрос, например выбрал я в своем ListView некий файл для запуска (например с расширением DLL или wdb или другой какой то файл с известным системе расширением, но который предназначен не для запуска пользователем), как мене проверить эту ситуацию и выдать соответствующее сообщение, что например файл нельзя запустить ?

[Neeter]

Я снова покажу с listbox'ом, я думаю, вам не составит труда переделать это к listview.

procedure TForm1.bt_3Click(Sender: TObject);
var
 i: integer;
 reg: TRegIniFile;
 sec: TStrings;
begin
 reg := TRegIniFile.Create;
 try
  sec := TStringList.Create;
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.OpenKey('', false);
  reg.ReadSections(sec);
  for i := 0 to sec.Count - 1 do
   if (sec[i][1] <> '.') and (sec[i] <> '*') then
   begin
    ShowMessage('Данного расширения не существует');
    Break;
   end
   else if sec[i] = ExtractFileExt(lbox_2.Items[lbox_2.ItemIndex]) then  //Здесь замените на имя файла или путь к файлу из listview
   begin
    ShowMessage('Данное расширение существует');
    Break;
   end;
 finally
  reg.Free;
  if sec <> nil then sec.Free;
 end;
end;

В listbox'е использовались данные строки:

filename.txt
ffff.dll
ffsas.ljjdf

На первых двух выдает сообщение что найдено расширение, на последней выдает что не найдено.

[spamer]

Neeter спасибо, суть я понял.