SHGetFileInfo; Icons von Laufwerken

schitho · Beiträge: 288 XP Home SP2 D2005 Prof

Hi,

mit SHGetFileInfo gelingt es mir nun dank Eurer Hilfe, die Icons und den Dateityp zu den einzelnen Dateien in einem Verzeichnis zu ermitteln und anzuzeigen.

Die Anzeige erfolgt in VirtualTreeView.

Nun möchte ich im Baum nicht nur das Verzeichnis anzeigen lassen, sondern auch alle Laufwerke (ähnlich, wie beim Explorer).

Wie komme ich aber zu die Icons für die Laufwerke und wie kann ich diese in die ImageListe der Dateiicons ergänzen, ohne, dass Windows danach nur noch Schrott anzeigt. (Bei SHGetFileInfo darf man ja die ImageList nicht verändern oder erweitern, weil sonst falsche Icons angezeigt werden). :?:

Moderiert von Tino: Titel geändert.

_________________
(Sorry! Leider ewiger Delphi-Neuling)

schitho · Beiträge: 288 XP Home SP2 D2005 Prof

Hi,

Die ImageList enthält eh alle benötigten Icons, also auch die der Laufwerke, Desktop, etc.

Hab folgende Lösung gefunden, um den Index für die passenden Icons zu ermitteln:

1.) Die Icons von Laufwerken kann man mit SHGetFileInfo eh ganz einfach anzeigen lassen. Man muss dazu nur statt dem Dateinamen den Laufwerksbuchstaben (z.B. 'C:\') übergeben.

2.) Den Desktop oder den Arbeitsplatz bekommt man so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetSpecialIcon(what: integer):integer;
var
   pidl: PItemIDList;
   shfi: TSHFileInfo;
begin
  SHGetSpecialFolderLocation(Form1.Handle, what, pidl);
  SHGetFileInfo(PChar(pidl), 0, shfi, SizeOf(shfi), SHGFI_PIDL or
    SHGFI_DISPLAYNAME or SHGFI_ICON or SHGFI_TYPENAME);
  result := shfi.iIcon;
  Form1.StaticText1.Caption := String(shfi.szDisplayName);
  SHFreeItemIDList(pidl);
end;

Der Aufruf erfolgt dann so:

markieren

Delphi-Quelltext

1:	IconIndex:=GetSpecialIcon(CSIDL_DRIVES);

für den Arbeitsplatz und so

markieren

Delphi-Quelltext

1:	IconIndex:=GetSpecialIcon(CSIDL_DESKTOP);

für den Desktop.

_________________
(Sorry! Leider ewiger Delphi-Neuling)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme