Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];
ВнизКак получить список файлов Найти похожие ветки
← →
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);
← →
begin...end © (2005-05-19 14:15) [4]> 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 16:26) [5]begin...end © (19.05.05 14:15) [4]
там несколько иное было:) и вообще процедурка выполняла изначально несколько иную работу, просто порезал для поста.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c