![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить содержимое каталога ? [D5, Win2k]
SONY © (2003-02-12 08:57:00)Как ?
sans (2003-02-12 09:10:00) [1]var
f:TSearchRec;
begin
If FindFirst("Путь\*.*")=0
then
begin
Memo1.Lines.Add(F.Name);
while FindNext(F)=0 do Memo1.Lines.Add(F.Name);
end;
FindClose(f); //освобождаем память
end;
AlexKr (2003-02-12 09:10:00) [2]SendMessage(ListBox1.Handle,LB_DIR,
DDL_READWRITE or DDL_READONLY or DDL_ARCHIVE,
Integer(PChar(GetCurrentDir+"\*.bmp")) );
MBo (2003-02-12 08:59:00) [3]findfirst