SHGetFileInfo benutzen um verknüpftes Datei-Icon anzuzeigen?

[SirThornberry]

@mirage228: Ist aber ziemlich umständlich. So wie dani es angeht ist es eigentlich schon ok. Habs bei mir so. (ist von der Performance her wohl besser als das von mirage228)

Delphi-Quellcode:

procedure TJBFirstStart01.FormCreate(Sender: TObject);  //FormCreate des Formulares
var LHandle: Integer;
    SFI: TSHFileInfo;
begin
  LHandle := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  if LHandle <> 0 then
  begin
    ImageList1.Handle := LHandle;  //ImageList1 ist eine TImageList die aufm Form liegt
    ImageList1.ShareImages := True;
  end;
end;

procedure TJBFirstStart01.SetImages;  //procedure die ich aufrufe wenn sich der Inhalt von meiner ListView geändert hat
var LCount: Integer;
    Info: TSHFileInfo;
begin
  for LCount := 0 to AddedFolders.Items.Count - 1 do
  begin
    SHGetFileInfo(PChar(AddedFolders.Items.Item[Lcount].SubItems.Strings[0]),0,Info,SizeOf(TSHFileInfo),SHGFI_SYSIconIndex or SHGFI_TYPENAME);
    AddedFolders.Items.Item[LCount].ImageIndex := Info.iIcon;
  end;
end;