| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Файловая система [D5, Win95/98, NT4]
Игорек © (2002-03-29 12:46:00)Подскажите как вывести список файлов директории с их иконками.
KIG Soft (2002-03-31 17:13:00) [1]procedure TComponator.UpdateFiles;
var
sr: TSearchRec;
li: TListItem;
fi: TSHFileInfo;
ext: string;
// IconIndex: word;
// ic: TIcon;
begin
Componator.ListView1.Items.Clear;
Componator.ListView1.Items.BeginUpdate;
if FindFirst(Componator.OvcDirectoryComboBox1.Directory + "\*.tvt", faAnyFile, sr) = 0 then repeat
if sr.Attr and faDirectory <> 0 then continue;
li := Componator.ListView1.Items.Add;
li.Caption := sr.Name;
ext := LowerCase(ExtractFileExt(li.Caption));
ShGetFileInfo(PChar("*" + ext), 0, fi, SizeOf(fi),
SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
li.ImageIndex := fi.iIcon;
if sr.Size < 1024
then li.SubItems.Add(IntToStr(sr.Size) + " byte")
else if sr.Size < 1024 * 1024
then li.SubItems.Add(IntToStr(round(sr.Size / 1024)) + " KByte")
else li.SubItems.Add(IntToStr(round(sr.Size / (1024 * 1024))) + " MByte");
li.SubItems.Add(fi.szTypeName);
until FindNext(sr) <> 0;
FindClose(sr);
Componator.ListView1.Items.EndUpdate;
end;
Sergey_n (2002-03-31 03:50:00) [2]С Делфи поставляются примеры, и там есть пример VirtualListView, (фактически проводни) там все что тебе нужно.
MBo (2002-03-29 17:33:00) [3]>Song
у него D5
ExtractAssociatedIcon
Song (2002-03-29 17:26:00) [4]TShellListView
| |
