shelllistview nur icons?

[ichbins]

Ich hab dir oben eine Funktion gegeben, wie du die Icons kriegst:

Delphi-Quellcode:

var
  i:ticon;
  fileinfo:tshfileinfo;
begin
  i:=ticon.create;
  FillChar(FileInfo,SizeOf(FileInfo),#0);
  SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_SMALLICON); //auch shgfi_largeicon
  i.Handle:=fileinfo.hicon;
  i.transparent:=true;
  //in I ist jetzt das Icon der Verknüpfung gespeichert#
  form1.canvas.draw(0,0,i);
end;