Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

StPu © (2005-05-19 10:53:00)
Мастера подскажите как получить и вывести в combobox список имен файлов с заданным расширением. Например в папке с программой лежат 5 файлов с разными именами, но одним расширением - .dat Так вот мне в combobox надо вывести их имена.
Ответы лучше в приват.
Заранее всем спасибо.

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

begin...end (2005-05-19 14:15:00) [2]
> 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 можно убрать.

Antonn (2005-05-19 13:56:00) [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);

begin...end (2005-05-19 10:56:00) [4]
> StPu © (19.05.05 10:53)

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

Ega23 (2005-05-19 10:54:00) [5]
FindFirst + F1 + SeeAlso

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »