Просмотр файлов в папке и подпапках

[Yar]

Как просмотреть файлы в папке и подпапках?
(Приведите пример кода)

[Anton]

Визуально, это можно отобразить следующим образом :
1. На вкладке Samples находишь ShellListView1 и ShellTreeView1.
2. Далее в инспекторе объектов для ShellListView1 находишь
свойство ShellTreeView1(будет выделено красным) и в свободное поле делаешь двойной щелчок и у тебя должно там появится ShellTreeView1.
3. Аналогично делаешь для ShellTreeView1 находишь свойство ShellListView1(будет выделено красным) и в свободное поле делаешь двойной щелчок и у тебя должно там появится ShellListView1.
Теперь визуально можешь просматревать файлы в папках и подпапках и если я не ошибаюсь запускать их!

[Stilet]

На самом деле все гораздо проще. Можно обойтись и без ShellListView1:

unit Unit1;

interface

uses shellapi,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls;

type
TForm1 = class(TForm)
ShellTreeView1: TShellTreeView;
procedure FormCreate(Sender: TObject);
procedure ShellTreeView1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellTreeView1.Align:=alClient;
ShellTreeView1.ObjectTypes:=ShellTr eeView1.ObjectTypes+ [otNonFolders];
end;

procedure TForm1.ShellTreeView1Click(Sender: TObject);
begin
// а это запуск
if ShellExecute(form1.handle,'open',pc har(ShellTreeView1.Path),
pchar(ExtractFileName(ShellTreeView 1.Path)),
pchar(ExtractFilePath(ShellTreeView 1.Path)),1)<=32
then caption:='Не пойдет';
end;

end.

[Carbon]

А можно просто: FindFirst и FindNext.

[Alar]

http://www.programmersclub.ru/labfile

http://www.programmersclub.ru/labmultimedta

Mp3-плеер

Программа для воспроизведения mp3 файлов. Для запуска программы поместите в каталог с Delphi исходником mp3 файлы и только после этого запускайте проект.
Скачать (15 кб)

[Yar]

А как просмотреть файлы в подпапках с помощью FindFirst и FindNext?

Допустим у меня есть папка D:\Temp

procedure TForm1.FindFiles;

var
SearchRec: TSearchRec;
r:integer=0;

begin
r:=FindFirst('D:\Temp\*.*', FaAnyfile, SearchRec);
while r = 0 do
begin

if ((SearchRec.ExcludeAttr and FaDirectory <> FaDirectory) and
(SearchRec.Attr and FaVolumeId <> FaVolumeId)) then
r := FindNext(SearchRec);

end;

Эта процедура просматривает файлы в папке. А как так сделать, чтобы просматривались файлы в подпапках?

[Carbon]

Рекурсивная процедура для всех найденных папок.

ЗЫ Отсеивай файлы с названиями '.' и '..'.

[Yar]

Спасибо! Но можно по подробнее (привести пример кода)?

[Alar]

Yar - подобная тема была на форуме, устали объяснять, хотя всё это просто.

Всё что вам нужно есть здесь

http://www.programmersclub.ru/labfile

http://www.programmersclub.ru/labmultimedta

Т.е. исходники с описанием.

[Alar]

http://programmersforum.ru/showthrea...EF%E0%EF%EA%E5 - вот тема

http://programmersforum.ru/search.php - а вот поиск по форуму