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?