AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

SHGetFileInfo Icon und ListView

Ein Thema von HomerGER · begonnen am 25. Jun 2004 · letzter Beitrag vom 27. Jun 2004
Antwort Antwort
Benutzerbild von HomerGER
HomerGER

Registriert seit: 8. Jun 2003
390 Beiträge
 
Delphi 7 Professional
 
#1

SHGetFileInfo Icon und ListView

  Alt 25. Jun 2004, 08:02
Hallo
Ich lese tmp dateien aus und zeige sie in ein Listview an
zustätzlich noch das Datei-Icon

Delphi-Quellcode:
//******************************************************************************
//Haupt Function
Procedure Temp_Ordner_Anzeigen_WHU();
var
list_item_li : TListItem;
icon_list_il : HImageList;
file_info_fi : TSHFileInfo;
dateien_sl : TStringList;
folder_s : String;
i : Integer;

begin
    //Icon laden
    icon_list_il := HImageList(SHGetFileInfo('', 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_ICON));

    if (icon_list_il <> 0) then
    begin
        Haupt_Form.Wartung_Temp_ImageList1.Handle := icon_list_il;
        Haupt_Form.Wartung_Temp_ImageList1.Height := 16;
        Haupt_Form.Wartung_Temp_ImageList1.Width := 16;
    end;

    //Alles löschen
    Haupt_Form.Wartung_ListView41.Clear;

    //Spezial Ordner auslesen
    folder_s := Windows_System_Variable_GU('Temp');

    dateien_sl := TStringList.Create;
    dateien_sl.Clear;

    try
        Dateien_Suchen_GU(dateien_sl , folder_s, '*.*');

        for i := 0 to dateien_sl.Count - 1 do
        begin
            Application.ProcessMessages;

            //Name
            list_item_li := Haupt_Form.Wartung_ListView41.Items.Add;
            list_item_li.Caption := ExtractFileName(dateien_sl.Strings[i]);

            //Icon
            SHGetFileInfo(PChar(dateien_sl.Strings[i]), 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_ICON);
            list_item_li.ImageIndex := file_info_fi.iIcon;

        end;


    finally
        dateien_sl.Free;
    end;
end;
nur bekomme ich jetzt den fehler Out of Resource
nehme ich
Delphi-Quellcode:
            
SHGetFileInfo(PChar(dateien_sl.Strings[i]), 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_ICON);
list_item_li.ImageIndex := file_info_fi.iIcon;
raus ist alles ok
habe ich irgendwo vergessen den speicher freizugeben?
oder was ist da falsch?
kann jemand helfen
  Mit Zitat antworten Zitat
Benutzerbild von HomerGER
HomerGER

Registriert seit: 8. Jun 2003
390 Beiträge
 
Delphi 7 Professional
 
#2

Re: SHGetFileInfo Icon und ListView

  Alt 27. Jun 2004, 12:05
hallo
ich habe jetzt es so gemacht

ListView4.SmallImages.Handle := SHGetFileInfo(PChar(dateien_sl.Strings[i]), 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

list_item_li.ImageIndex := file_info_fi.iIcon;

jetzt kommt das Programm ohne absturz und grafik fehler aus


aber warum ?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf