Как получить список файлов

← →
StPu © (2005-05-19 10:53) [0]

Мастера подскажите как получить и вывести в combobox список имен файлов с заданным расширением. Например в папке с программой лежат 5 файлов с разными именами, но одним расширением - .dat Так вот мне в combobox надо вывести их имена.
Ответы лучше в приват.
Заранее всем спасибо.

← →
Ega23 © (2005-05-19 10:54) [1]

FindFirst + F1 + SeeAlso

← →
begin...end © (2005-05-19 10:56) [2]

> StPu © (19.05.05 10:53)

См. в справке по WinAPI описание сообщения CB_DIR.

← →
Antonn © (2005-05-19 13:56) [3]

procedure GetDirectories( Directory,ext: string; var ST:TCombobox);
var SearchRec: TSearchRec;
begin
if Directory[Length(Directory)] <> "\" then Directory := Directory + "\";

if FindFirst(Directory +ext, faReadOnly + faHidden + faArchive + faDirectory, SearchRec) = 0 then
begin
repeat
if ((SearchRec.Attr and faDirectory)=0) then
begin
ST.Items.Add( SearchRec.Name );
end ;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

использование: GetDirectories("c:\windows\system32","*.hlp",Combobox1);

> StPu

var P: PChar; begin P := "C:\MyProgram\*.dat"; SendMessage(ComboBox1.Handle, CB_DIR, DDL_READONLY or DDL_HIDDEN or DDL_SYSTEM or DDL_ARCHIVE, Integer(P)) end.

> Antonn © (19.05.05 13:56) [3]

var перед ST можно убрать.

begin...end © (19.05.05 14:15) [4]
там несколько иное было:) и вообще процедурка выполняла изначально несколько иную работу, просто порезал для поста.

Как получить список файлов Найти похожие ветки