Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c