Все файлы одинакого расширения[delphi]

[marcos]

Всем привет! Подскажите как вывести в memo1 все файлы одного расширения на компьютере?

[sn0w]

FindFirstFile/FindNextFile с соответствующими масками

вообще есть API и наскока помню в билдере оно в помощи идет. если речь о дельфи - незнаю, но должна быть.
есть мсдн также - но там обпаскаля нет

[xafon]

Процедура которая ищет на компьютере файлы с определённым расширением.

procedure FindFiles(StartFolder, Mask: string; List: TStrings;
ScanSubFolders: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
StartFolder := IncludeTrailingBackslash(StartFolder);
FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
try
while FindResult = 0 do
with SearchRec do
begin
if (Attr and faDirectory) <> 0 then
begin
if ScanSubFolders and (Name <> '.') and (Name <> '..') then
FindFiles(StartFolder + Name, Mask, List, ScanSubFolders);
end
else
begin
if MatchesMask(Name, Mask) then
List.Add(StartFolder + Name);
end;
FindResult := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;