Symbole auslesen

[smart]

Vielen Dank. Ich bin dann einen anderen Weg gegangen und habe es selbst hinbekommen. Für Alle die evtl. ein ähnliches Problem haben, hier das Listing.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Icon: TIcon;
  ListItem: TListItem;
  FileInfo: SHFILEINFO;
begin
  Icon := TIcon.Create;
  ListView1.Items.BeginUpdate;
  try
For i := 0 To FileListBox1.Items.Count - 1 do
begin
      with ListView1 do
          ListItem := ListView1.Items.Add;
          SHGetFileInfo(PChar(FileListBox1.Items[i]), 0, FileInfo, SizeOf(FileInfo), SHGFI_DISPLAYNAME);
          Listitem.Caption := FileInfo.szDisplayName;
          SHGetFileInfo(PChar(FileListBox1.Items[i]), 0, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME);
          ListItem.SubItems.Add(FileInfo.szTypeName);
          SHGetFileInfo(PChar(FileListBox1.Items[i]), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_LARGEICON);
          icon.Handle := FileInfo.hIcon;
          ListItem.ImageIndex := ImageList1.AddIcon(Icon);
          DestroyIcon(FileInfo.hIcon);
      end;
  finally
    Icon.Free;
    ListView1.Items.EndUpdate;
  end;
end;