Загрузка иконок файлов

[igroman]

У меня есть функция которая загружает в листбокс файлы и папки

if FindFirst(aPath + '*.*', faAnyFile, SearchRec) =0 then
begin
ListBox1.Items.Add(SearchRec.Name);
while (FindNext(SearchRec) =0) do
ListBox1.Items.Add(SearchRec.Name);
end;
//aPath это путь.

А как сделать так, чтобы у папок/файлов загружались ещё и иконки?? Заранее спасибо

[mutabor]

ExtractAssociatedIcon

[igroman]

Сообщение от mutabor

ExtractAssociatedIcon

А если вам нетяжело можете пожайлусто написать поподробнее что это, и с чем его есть?

[mutabor]

http://msdn.microsoft.com/ru-ru/libr...us,VS.85).aspx
Функция возвращает хэндл иконки. Если неясно, практикуйтесь в WinAPI.
Опять же вывести их куда, в тот же список? Это нужно будет вручную листбокс перерисовывать. Событие OnDrawItem нужно обрабатывать.
Пользуйтесь поиском. Вопрос избитый.

[Stilet]

igroman, я в принципе покажу как получить а уж как отрисовать в Листе это ты сам...

procedure TForm1.FileListBox1Click(Sender: TObject);
var p:pchar;c:Cardinal;i:HICON;o:word;
begin

o:=0;
GetMem(p,200);
c:=FindExecutable(pchar(FileListBox1.Items[FileListBox1.itemindex]),
 pchar(ExtractFilePath(FileListBox1.Items[FileListBox1.itemindex])),p);

i:=ExtractAssociatedIcon(HInstance,p,o);
if not DrawIcon(Form1.Canvas.Handle,0,0,i) then RaiseLastWin32Error;
end;