Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.27;
Скачать: CL | DM;

Вниз

Файловая система   Найти похожие ветки 

 
Игорек   (2002-03-29 12:46) [0]

Подскажите как вывести список файлов директории с их иконками.


 
Song ©   (2002-03-29 17:26) [1]

TShellListView


 
MBo ©   (2002-03-29 17:33) [2]

>Song
у него D5

ExtractAssociatedIcon


 
Sergey_n ©   (2002-03-31 03:50) [3]

С Делфи поставляются примеры, и там есть пример VirtualListView, (фактически проводни) там все что тебе нужно.


 
KIG Soft   (2002-03-31 17:13) [4]

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;




Страницы: 1 вся ветка

Текущий архив: 2002.06.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-88767
sergey32
2002-06-05 10:10
2002.06.27
Кто-нибудь знает как подконнектится к базе UNIFY


1-88900
Cooper
2002-06-14 16:55
2002.06.27
Нужен Help по TChart


1-88888
Bocman
2002-06-14 11:45
2002.06.27
Аномалия какая-то...


3-88766
Perec
2002-06-05 09:56
2002.06.27
Изменение наименования поля таблицы через системные таблыцы


3-88741
Pavel_S
2002-06-04 12:33
2002.06.27
Запрос и прорисовка формы