Forum: Object-Pascal / Delphi-Language
Delphi
by HomerGER,
27. Jun 2004
hallo
ich habe jetzt es so gemacht
ListView4.SmallImages.Handle := SHGetFileInfo(PChar(dateien_sl.Strings), 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
Forum: Object-Pascal / Delphi-Language
Delphi
by HomerGER,
25. Jun 2004
Hallo
Ich lese tmp dateien aus und zeige sie in ein Listview an
zustätzlich noch das Datei-Icon
//******************************************************************************
//Haupt Function
Procedure Temp_Ordner_Anzeigen_WHU();
var
list_item_li : TListItem;