Hallo,

au-weiha! Asche auf mein Haupt!
Ich habe es nicht gelöst und es scheint auch nicht mit mir zusammen zu hängen, aber der Thread war es auch nicht!
Sogar meine benutzte "Fremd-Explorer-Komponente" (TVirtualExplorerEasyListview) macht das so, also nicht richtig.
Eigentlich bin ich mir sicher, dass das früher funktioniert hat, weil ich ja darauf geachtet hatte. Aber nun geht das weder unter XP noch unter 7. Auch nicht mit (viel) älteren Versionen des Programms, bei denen es eigentlich immer geklappt hat!
Wieso kann es der Windows-Explorer richtig?

Das Icon für das Laufwerk steht als .Ico auf dem Stick und ist dort in der Autorun angegeben.
Der Windows Explorer liest es richtig aus, alles (?) andere nicht.
Wie bekommt man das Icon eines Laufwerkes noch raus, außer mit SHGetFileInfo?
Vielleicht (Sicher) muss man das anders machen!

Gruß
Mattze

Rufst du im Thread-Context CoInitialize auf?

Hallo,

nein, aber vergesst bitte den Thread!
Ich habe das so gemacht, wie es früher war (und es meiner Meinung nach funktionierte), also ohne Thread, sondern direkt im Hauptprogramm kodiert. Geht nicht! Genau das gleiche Problem.
Warum geht das nicht und wie kann man das richtig machen? Der Explorer kann es doch auch. Gehört das zu den geheimsten Geheimnissen von Minimalweich?

Gruß
Mattze

Hallo,

ich habe natürlich weiter probiert.
Es scheint tatsächlich am SHGetFileInfo zu liegen?
Mal ein Kurzbeispiel:
{unter M ist das USB-Stick angebaut.}

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ShellAPI, gesamt;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    FInfo : TSHFILEINFO;
    ic: TIcon;
    SIL: HWnd;
    il: TImageList;
begin
  il:= TImageList.Create(Self);
  SIL:=SHGetFileInfo(pchar('M:\'),0,Finfo, //name+':\'),0,Finfo,
                     sizeof(TSHFILEINFO),
                     SHGFI_SysIconIndex or SHGFI_Icon or SHGFI_Smallicon or SHGFI_displayname or SHGFI_Typename);
  il.handle:=sil;
  showmessage('Iconnumber: '+inttostr(finfo.iicon)+#13+'Anzahl Iconen in der Liste: '+inttostr(il.Count));
  ic:=TIcon.Create;
  ic.Handle:=finfo.hicon;
  image1.picture.Icon:=ic;
end;
end.

Wie gesagt: Der USB-Stick hat sein Icon in der Wurzel. Dieses wird daselbst in der Autorun.inf aufgeführt.
Im Windows Explorer klappt alles.
Ist der USB-Stick angeschlossen beim Programmstart, klappt das beim Buttonclick auch.
Wird er nach dem Programmstart (in der IDE gemacht) angeschlossen, flackert der "Programmrand" zweimal.
Buttonclick nach dem ersten Mal bringt ein falsches Icon.
Wenn erst das zweite Flackern abgewartet wird (etwa 1 sek. später), dann ist es danach zwar die gleiche Iconnumber, aber das richtige Icon.

FileIconInit8true) ändert auch nichts, vergrößert nur die Iconliste auf die echte Systemimagelist.

Also bleibt das Problem, wo der Fehler ist bzw. wie warte ich ab (in Devicechange), bis das zweite "Flackern" erledigt ist.
Ich nenne es "Flackern", weil man das sieht. Aber was macht der da? Evtl. kopiert er da erst die aktualisierte Systemimagelist zu der dem Programm zugeordneten. Dann müsste es aber eine Möglichkeit geben, um zu prüfen, wann er damit fertig ist, oder?

Gruß
Mattze