Значки в ListView

[Македонский]

Подскажите, пожалуйста, как в ListView отображать перед элементами стандартные значки, если элементами являются имена файлов с различными расширениями.
Свойство ViewStyle стоит как vsReport.

И в догонку: можно ли запускать эти файлы двойным щелчком?

[Stilet]

Ну я бы сначала для каждого файла получил иконку через ExtractAssociatedIcon, потом ее уже отрисовал бы :

uses
ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: hIcon;
IconIndex: word;
begin
IconIndex := 1;
Icon := ExtractAssociatedIcon(HInstance,
<Путь + файл>, IconIndex);
DrawIcon(Canvas.Handle, 10, 10, Icon);
end;

А запускать можно через ShellExecute, Например:

if ShellExecute(form1.handle,'open','D :\Help\Richter.chm','Richter.chm',' D:\Help\',1)<=32
then caption:='bad';

[Македонский]

С запуском получилось, а иконки так и не отображаются. Нельзя ли чтоб система автоматом подключала иконки к соответствующим файлам?

[Showy]

Вот взял из библии делфи, попробуй должно работать


procedure TForm1.FormCreate(Sender: TObject);
var
SysImageList: uint;
SFI: TSHFileInfo;
begin
//Создаём список маленьких и больших иконок
ListView1.LargeImages:=TImageList.C reate(self);
ListView1.SmallImages:=TImageList.C reate(self);
//Запрашиваем большие иконки
SysImageList := SHGetFileInfo('', 0, SFI,
SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
if SysImageList <> 0 then
begin
//Присваиваем системные иконки в ListView1
ListView1.Largeimages.Handle := SysImageList;
ListView1.Largeimages.ShareImages := TRUE;
end;
//Запрашиваем маленькие иконки
SysImageList := SHGetFileInfo('', 0, SFI, SizeOf(TSHFileInfo),
SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
if SysImageList <> 0 then
begin
//Присваиваем маленькие системные иконки в ListView1
ListView1.Smallimages.Handle := SysImageList;
ListView1.Smallimages.ShareImages := TRUE;
end;
end;

[Stilet]

Сообщение от Македонский

С запуском получилось, а иконки так и не отображаются. Нельзя ли чтоб система автоматом подключала иконки к соответствующим файлам?

Можно, это реализовано в ShellListView, иначе самому.
Ну может ты не туда рисуеш просто.

[Македонский]

Сделал как сказано в БИБЛИИ ДЕЛФИ, иконки появились, но все одинаковые, хотя расширения элементов (имен файлов) разные...

[Showy]

Вот весь пример из книги посмотри там написано как сделать в Процедуре AddFile с помощью функции SHGetFileInfo

[Македонский]

Спасибо громаднейшее!

Showy, а у тебя эта библия в электронной версии?

[Showy]

Да есть вся. Весит 13Мб

[Македонский]

А в архиве?