Имя файла по расширению

[wwww]

Всем привет!
В папке C:\test лежит несколько файлов с расширением txt. Как можно узнать имена всех файлов с расширение txt и как запихать их (имена) в разные переменные?
Помогите пожалуйста.Заранее спасибо!

[GAGARIN-NEW]

FileListBox тебе в помощ!
FileListBox.mask указываеш *.txt
FileListBox1.items - вот переменная TStrings с именами всех файлов
filelistbox1.FileName - полный путь к выделенному файлу
filelistbox1.Items[2] - только имя 3-го файлы (начинаются с 0)..это пример

[BOBAH13]

Есть FindFirst, FindNext, FindClose, TSearchRec (кажется). Смотрите их в дельфи или Api подобные только более удобны, хотя сильно и не отличаются - FindClose, FindFirstFileEx, FindNextFile, WIN32_FIND_DATA.

[SunKnight]

var aa,ppppp:HWND;r,y:integer;c:tsearch rec;s,d:string;f,t:file;
begin
y:=0;
r:=FindFirst (s+d,faAnyFile,c); \\s+d - путь и название файла (допустим s:='D:\bla\bla\' d:='*.*' )
While r=0 do \\цикл, r возвращ 0 если файл найден
begin
if (c.Size=0) then r:=FindNext(c)\\ если размер файла =0 значит ищим след. файл
else
begin
WriteLn('Find File : '+c.Name+' Size : '+inttostr(c.Size)+' Byte');\\ вывод на экран атрибутов файла(переменная С содержит атр. файла )
end;
r:=FindNext(c);
end;
end.
Это кусок моей проги для консоли, аналогично будет и для VCL.
Ну а запихнутьвсе данные можно в файл или массив.

[wwww]

Понятно.Всем спасибо.

[_SacreD_]

А у меня вот проблема такая, короче говоря в ListView отображаются файлы, как например отобразить файлы с расширением mp3 .
Я вот так пробую :

                 if FindFirst('*.mp3',faAnyFile,f)=0  then
                     begin
                           ImageIndex:=8;
                           SubItems.Add(inttostr(size));
                           subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                     end;

Но ничего не происходит... это я делаю для того что бы отделять файл от других, присваивая ему картинку