ListView, Icon und SHGetFileInfo

[HomerGER]

Hallo

ich lese die Laufwerke aus und zeige sie in ListView

Delphi-Quellcode:

if (laufwerk_type_i = DRIVE_FIXED) then
        begin
            //Label ermitteln
            GetVolumeInformation(PChar(laufwerk_s), @laufwerk_label_c[0], SizeOf(laufwerk_label_c), nil, temp_d, temp_d, nil, 0);

            //Alles in ListView
            Haupt_Form.Wartung_ListView5.Items.Add.Caption := laufwerk_s + laufwerk_label_c;

            SHGetFileInfo('C:\', 0, file_info_si, SizeOf(file_info_si), SHGFI_ICON OR SHGFI_LARGEICON);
            //Das hier nur zum Test hab ich überhaupt ne Icon
            Haupt_Form.Image1.Picture.Icon.Handle := file_info_si.hIcon;
        end;

er zeigt mir aber in file_info_si.hIcon nur das StandardIcon an nicht was ich da wirklich drin habe !!

und wie bekomme ich das icon in das ListView an die erste Stell noch vor der Checkbox?

[Luckie]

Gerade das Thema hatten wir in den vergangenen Tagen schon häufiger.

[MathiasSimmack]

Zu dem anderen hat Luckie ja schon was gesagt, so beschränke ich mich auf:

Zitat:

Zitat von HomerGER

und wie bekomme ich das icon in das ListView an die erste Stell noch vor der Checkbox?

Gar nicht. Die Checkbox steht immer vorn, und das ist auch gut und richtig so.

[HomerGER]

das mit den icon hab ich jetzt auch gefunden
aber nicht warum er mir nur das standard icon anzeigt und nicht das wirklich verwendet anzeigt

[MathiasSimmack]

Ich bin nicht ganz sicher, aber wenn ich deine kurze Beschreibung richtig verstehe, dann willst du das tatsächliche Symbol eines Laufwerks anzeigen? Ja, wenn sich das von dem Symbol von C:\ unterscheidet, dann solltest du auch den passenden Buchstaben angeben und nicht immer C:\ benutzen:

Zitat:

Zitat von HomerGER

Delphi-Quellcode:

SHGetFileInfo('C:\', 0, file_info_si, SizeOf(file_info_si), SHGFI_ICON OR SHGFI_LARGEICON);

[HomerGER]

ich habe alle laufwerkicon geändert !! 'c:\' ist im programm ne variable

ich habe für meine C-platte das win Icon, er zeigt mir aber immer nur das Standardicon an

liest SHGetFileInfo nur das icon aus, was win dafür vorsieht, oder das was wirklich benutzt wird ?

[MathiasSimmack]

Jetzt wo du´s sagst -

Ich habe spaßeshalber einer meiner Partitionen mal ein anderes Symbol verpasst, und die Funktion "SHGetFileInfo" liefert anstandslos eben dieses neue Symbol zurück, und ich sehe es dann in der List-View.

So sieht mein Code aus:

Delphi-Quellcode:

uses
  CommCtrl, ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
var
  hImgBig  : HIMAGELIST;
  fi       : TSHFileInfo;
  dwBufLen : dword;
  buf      : string;
  p        : pchar;
  li       : TListItem;
begin
  // Imageliste für große Symbole holen & zuweisen
  hImgBig := HIMAGELIST(SHGetFileInfo('',0,fi,sizeof(fi),
    SHGFI_SYSICONINDEX or SHGFI_ICON));
  if(hImgBig <> 0) then
    ilBig.Handle  := hImgBig;

  // unter der Maßgabe, dass "ilBig" eine ImageList auf
  // der Form ist, die in der List-View als "LargeImages"
  // eingetragen ist



  // List-View leeren
  ListView1.Items.Clear;
  ListView1.Items.BeginUpdate;

  dwBufLen := GetLogicalDriveStrings(0,nil);
  if(dwBufLen > 0) then
  begin
    SetLength(buf,dwBufLen);

    if(GetLogicalDriveStrings(dwBufLen,@buf[1]) <> 0) and
      (buf <> '') then
    begin
      p      := @buf[1];
      while(p[0] <> #0) do
      begin
        li   := ListView1.Items.Add;
        case GetDriveType(p) of
          DRIVE_FIXED:
            li.Caption := Format('Festplatte %s',[p]);
          DRIVE_REMOVABLE:
            li.Caption := Format('Wechsellaufwerk %s',[p]);
          DRIVE_REMOTE:
            li.Caption := Format('Netzlaufwerk %s',[p]);
          DRIVE_CDROM:
            li.Caption := Format('CD/DVD-Laufwerk %s',[p]);
          DRIVE_RAMDISK:
            li.Caption := Format('RAM-Disk %s',[p]);
        end;

        // Symbol ermitteln
        SHGetFileInfo(p,0,fi,sizeof(fi),
          SHGFI_ICON or SHGFI_SYSICONINDEX);
        li.ImageIndex := fi.iIcon;

        inc(p,lstrlen(p)+1);
      end;

      buf := '';
    end;
  end;

  ListView1.Items.EndUpdate;
end;

[HomerGER]

nein auch mit deinen code zeigt er mir für alle platte nur das standard icon an

wo oder mit was hast du denn plattenicon geändert ?


ist XP

[MathiasSimmack]

Ich hab´s, getreu der Anleitung im PSDK (Index aufrufen und "Customizing Icons" eintippen), in die Registry geschrieben.

[Luckie]

Bei mir werden mit MS's Methode auch die sonder Icons meiner Cardreader-Laufwerke korrekt angezeigt.