Icons aus Shell32.dll

[Christian Seehase]

Moin Mathias,

meinst Du jetzt die Smallicons?

[MathiasSimmack]

@Chris: Nö.

@Tpercon: Wenn du unter dem Imageindex 48 bleibst, dann kannst du die Icons getrost verwenden. Soweit ich das gesehen habe, sind diese identisch. Insofern dürfte es bei dir (Laufwerks-Icons) keine Probleme geben.

Generell wäre aber sicher sakuras Beitrag interessant, weil diese Variante unabhängig von eigenen Zugriffen auf die "shell32.dll" ist. Ich habe mir mal die Freiheit genommen, den für dich wahrscheinlich wichtigen Teil zu extrahieren. sakura wird hoffentlich nicht schimpfen.

Folgendes (gebasteltes :wink:) Beispiel liest die vorhandenen Laufwerke mit den korrekten Icons in eine ListView ein. Die Routinen "DriveExists" und "DriveType" stehen in der DP-Library und sind -natürlich!- auch von sakura:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  FileInfo: TSHFileInfo;
  ImageListHandle: THandle;
  aIcon: TIcon;
begin
  for i := 0 to 25 do
    if(DriveExists(i)) then
      begin
        fillchar(FileInfo,sizeof(FileInfo),#0);
          ImageListHandle := SHGetFileInfo(pchar(CHR(i+65) + ':\'),
          0, FileInfo, sizeof(FileInfo), SHGFI_ICON or SHGFI_LARGEICON);

        try
          aIcon := TIcon.Create;
          try
            aIcon.Handle := FileInfo.hIcon;

            ListView1.Items.Add;
            ListView1.Items[ListView1.Items.Count-1].Caption    :=
              CHR(i+65) + ':\  (' + DriveType(i) + ')';
            ListView1.Items[ListView1.Items.Count-1].ImageIndex :=
              ImageList1.AddIcon(aIcon);
          finally
            FreeAndNil(aIcon);
          end;
        finally
          DestroyIcon(FileInfo.hIcon);
          ImageList_Destroy(ImageListHandle);
        end;
      end;
end;

Codebasis, Copyright by Sakura.
(Das nur, damit er mich nicht auf 10 Mio US-Dollar verklagt. :idea: :twisted:)

<Edit>

"ShellAPI" und "CommCtrl" (für ImageList_Destroy) nicht vergessen! Außerdem sollte die Imageliste natürlich die Maße 32x32 besitzen. Andernfalls kann man aber auch das Flag SHGFI_SMALLICON benutzen.

Hatte ich doch glatt vergessen zu erwähnen. :oops:

</Edit>


Gruß,
Mathias.

[Tpercon]

OK, funktionieren tut es wunderbar, nur es ist zu langsam.
Ob es was bringt wenn man überprüft ob ein Icon schon in der ImageList ist oder nicht und dann entsprechend das Icon nicht noch einmal bzw. doch einfügt. Oder woher kann dieser Geschwindigkeitsverlust sonst kommen?

[MathiasSimmack]

Zitat:

Zitat von Tpercon

Ob es was bringt wenn man überprüft ob ein Icon schon in der ImageList ist oder nicht ...

Also, ich bin kein Vulkanier, aber streng logisch gesehen würde ich auf Nein tippen, denn wenn du erst eine Bedingung prüfen musst, geht ja auch ein bisschen Zeit drauf.

Ich gehe mal davon aus, dass du die Icons nicht ständig neu einliest. Wenn du das nur einmal beim Start machst, dann bietet sich doch ein Splashscreen mit einem Progressbar an. Dann weiß der User, dass er einen Moment Geduld haben muss.

[Tpercon]

Die Laufwerksymbole lade ich natürlich nur beim Start.
Aber die Dateisymbole lade ich ständig neu. Wie denn sonst? Oder sollte ich sämtliche Dateisymbole auf dem System beim Start laden, die Position und die Extension mir in einem Array speichern um sie später zuordnen zu können?

Gruß

[MathiasSimmack]

Was programmierst du eigentlich?
Oder anders: Warum musst du die Dateisymbole ständig neu laden?

Ich glaube, bei Delphi6 gibt´s eine spezielle Listview, die dir die Ordner inkl. Symbolen usw. anzeigt. Damit würdest du sicher besser wegkommen, wenn du eine Datei- und Ordnerstruktur in deinen Programmen brauchst.

[Christian Seehase]

Moin Tpercon,

ich hab' jetzt nich ausprobiert, wie sich das auf die Geschwindigkeit auswirkt, aber Du könntest bei den Dateiicons ja mal versuchen, Dir eine TStringsList mit den schon eingelesenen Extensions aufzubauen, (Sorted=true, Duplicates=dupIgnore), und die Extensions dann mittels AddObject hinzufügen, wobei Du als Objekt jeweils das Icon(Handle) hinzufügst, dass über ExtractAssociatedIcon ausgelesen wird. Dann liessen sich bereits bekannte Icons aus der Liste wohl relativ schnell auslesen lassen.
Oder Du benutzt eine ImageList, der die jeweils neuen Icons hinzugefügt werden, und fügst als Objekt einfach nur die Nummer des Icons in der ImageList hinzu. (auslesen wie vorher).
Damit könntest Du Dir die Verwaltung (Create/Free) der angehängten Iconobjekte sparen.

[Daniel B]

Zitat:

Zitat von MathiasSimmack

Ich glaube, bei Delphi6 gibt´s eine spezielle Listview, die dir die Ordner inkl. Symbolen usw. anzeigt.

Hi,

das macht doch die TreeView!? :roll: Aber bei der ListView kann man ja auch eigene Symbole benutzen. Er hat D5Ent. Ich weiss nicht ob TreeView da schon dabei ist.

[Christian Seehase]

Moin Daniel B,

der TreeView als solcher ist schon enthalten, nur nicht der ShellTreeView, den Mathias wohl meinte.

[Tpercon]

Die ShellTreeView Komponente zeigt wohl automatisch schon die Icons der Dateien/ Ordner und Laufwerke an?

Aber ich möchte trotzdem die Dateien lieber in der ListView lassen und nur die Ordner/ Laufwerkauswahl über die TreeView machen.

Wie kann man denn herausfinden, ob ein Icon schon in der ImageList ist oder nicht, ohne ne zusätzliche Liste zu benutzen?! Geht das?
Momentan durchsuche ich nämlich die ListView nach der Extension und entscheide so, ob ich das Icon neu hinzufügen muß oder den Index benutzen kann und diese Methode ist schon etwas schneller als zuvor!