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

Вниз

FindFirst & FindNext   Найти похожие ветки 

 
Uriel ©   (2004-02-13 13:42) [0]

Добрый день ув. мастера.
Есть ListView, куда FindFirst"ом & FindNext"ом кидается список папок и файлов.

r := FindFirst(DirStr + "*.*", faAnyFile, DirInfo);
while r = 0 do begin
Application.ProcessMessages;
ListItem := ListView.Items.Add;
ListItem.Caption := DirInfo.Name;
if DirInfo.Attr = FaDirectory then
ListItem.ImageIndex := 0
else ListItem.ImageIndex := 1;
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);

Проблема в том, что таким макаром у всех файлов получаеться иконка с ImageIndex = 1, как бы мне сделать так, чтобы у файлов были их родные иконки, т.е. у *.doc - иконка MS Word и т.д.

ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО


 
Palladin ©   (2004-02-13 13:46) [1]

ExtractAssociatedIcon


 
Юрий Зотов ©   (2004-02-13 14:05) [2]

А еще неплохо было бы подправить код (сделать его короче, проще, безопаснее и надежнее):

if FindFirst(...) = 0 then
try
repeat
with ListView.Items.Add do
begin
Caption := DirInfo.Name;
ImageIndex := Ord(DirInfo.Attr and FaDirectory = 0)
end
until FindNext(...) <> 0
finally
FindClose(...)
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
1-79896
valerchik
2004-02-10 09:41
2004.02.25
Form


14-80211
KM
2004-02-05 18:23
2004.02.25
эксплоиты


14-80267
Danilka
2004-02-06 08:33
2004.02.25
Кому-нибудь еще приходят письма от www.ebay.com? :))


1-79751
Alex*
2004-02-12 09:32
2004.02.25
PasteSpecial в Excele.


3-79681
Vi0let
2004-01-27 07:17
2004.02.25
Как обработать OnCellClick при dgRowSelect = true