Приложение которое выводит список файлов текущего каталога и при клике на любом из файлов откроет его.

[LimanSSk]

Подскажите пожалуйста, как реализовать приложение которое выводит список файлов текущего каталога и при клике на любом из файлов откроет этот файл в зарезервированном приложениии(.txt - в блокноте и тд.)?

[Alar]

компонент ShellListView

procedure TForm1.ShellListView1Click(Sender: TObject);
begin

 ShellExecute(Hinstance, 'open', PChar(ShellListView1.SelectedFolder.PathName) , nil, nil, SW_SHOWMAXIMIZED);
end;

не забудь в uses добавить shellapi


Для установки папки при запуске программы вставь код -

procedure TForm1.FormCreate(Sender: TObject);
begin
      ShellListView1.root:='c:\';
end;

[Zloy_Doomer]

FindFirst, FindNext В качестве парметров полставляем нужный каталог и ищем там все файлы то есть *.* ... А потом как сказал алар....