Icons in Listbox

[N47R0N]

Hi

so ich hab geschaft einen Filemanager zu coden nun geht es um das
aussehen, meine Frage ist nun wie man es hinbekmmt das wenn in der
Listbox nun die namen der Files die sich z.B. auf Laufwerk C:/ befinden
auch immer das Pasende Icon dazu gepackt wird.

also wenn es eine Winrar File ist dann steht am anfang gans klein das
Winrar Icon und dann der Filename. das selbe auch bei allen anderen
Formaten und Ordnern.

wie kann ich das realisieren?

[alzaimar]

Das geht über die Shellextensions. Schau doch mal in der ShellAPI, da müsste es was geben. Ich meine, bei www.swissdelphicenter.ch was gesehen zu haben

[N47R0N]

nach was soll ich bei swissdelphicenter suchen? wen ich Shellextensions
eingebe findet er nichts

[SirThornberry]

es gibt mehrere Variante an die Icons zu kommen. Zum einen ExtractAssociatedIcon zum anderen
gibt es die Möglichkeit eine Imagelist zu nehmen (fImgList)

Delphi-Quellcode:

//zum Initialisieren (zur einmal ausführen)
var LSFI: TSHFileInfo;
[...]
  LHandle := SHGetFileInfo('', 0, LSFI, SizeOf(LSFI), SHGFI_SYSICONINDEX or SHGFI_OPENICON);
  if LHandle <> 0 then
  begin
    fImgList.Handle := LHandle;
    fImgList.ShareImages := True;
  end;
[...]
//zum Icon holen
var LInfo: TSHFileInfo;
[...]
  SHGetFileInfo(PChar(LFilename),0,LInfo,SizeOf(TSHFileInfo),SHGFI_SYSIconIndex or SHGFI_TYPENAME);
  fImgList.GetBitmap(LInfo.iIcon, fTmpBitmap);

der Quelltext ist ein Auszug aus einem meiner Programme, daher auch die nicht immer ganz eindeutigen VariablenNamen

[Flocke]

@SirThornberry:
1. mit 'nem leeren Dateinamen geht's auch?
2. Wieso SHGFI_OPENICON?

Hier mal eine kleine Funktion, die ich mir Anno 98 geschrieben hab' (könnte man lt. obigen Post dann wohl auch vereinfachen) - liefert das Handle für kleine oder große Symbole:

Delphi-Quellcode:

function GetShellImageListHandle(fSmall: boolean): THandle;
var
  sfi: TShFileInfo;
  WinDir: string;
begin
  SetLength(WinDir, MAX_PATH);
  GetWindowsDirectory(PChar(WinDir), MAX_PATH);
  FillChar(sfi, SizeOf(sfi), 0);
  if fSmall
    then Result := SHGetFileInfo(PChar(WinDir), 0, sfi, SizeOf(sfi),
                                 SHGFI_SYSICONINDEX or SHGFI_SMALLICON)
    else Result := SHGetFileInfo(PChar(WinDir), 0, sfi, SizeOf(sfi),
                                 SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
end;

[Nachtrag]

Ach so: für einzelne Dateien und Ordner kannst du dann ebenfalls mit SHGetFileInfo mit dem Parameter SHGFI_SYSICONINDEX den Image-Index ermitteln.

[MaBuSE]

Zitat von N47R0N:

so ich hab geschaft einen Filemanager zu coden nun geht es um das
aussehen, meine Frage ist nun wie man es hinbekmmt das wenn in der
Listbox nun die namen der Files die sich z.B. auf Laufwerk C:/ befinden
auch immer das Pasende Icon dazu gepackt wird
....
wie kann ich das realisieren?

Wie Du an die passenden Icon kommst, zeigten Dir die letzten 2 Beiträge, aber wie kommen die Icons in die Liste?

• Einfach mal eine TComboBox, TImageList und ein TListView auf ein leeres Form legen.
• Dann die TListView Komponente markieren und F1 drücken -> Es wird nun die hilfe von Delphi zu TListView geöffnet.
• Dann in der Hilfe Eigenschaften anklicken -> Es wird das Fenster "Eigenschaften von TListView" mit der Liste aller Eigenschaften angezeigt
• Items auswählen -> Es wird die Hilfe Seite "Items (Eigenschaft von TCustomListView)" angezeigt.
• "Delphi-Beispiel" anklicken -> Es kommt ein Auswahlfenster "gefundene Themen"
• "Column, Items, ViewStyle, SmallImages, LargeImages, ImageIndex, AddObject, Objects (Beispiel)" auswählen
• lesen und den Quelltext in das Form kopieren.

(Ich habe das gerade in D7 getestet)
Viel Spaß
MaBuSE