Hi MathiasSimmack,
ich wollte nicht unhöflich sein
, aber: ich habe sehr wohl deinen tipp befolgt, mit ausnahme der HIMAGELIST. ich habs so gemacht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var fi: TSHFileInfo;
begin
hImgSm := TImageList(SHGetFileInfo(nil,0,fi,sizeof(fi),SHGFI_SYSICONINDEX or SHGFI_SMALLICON));
if (hImgSm <> nil) then listview1.smallimages := hImgSm;
end;
aber ich mach lieber noch n screenshoot (anhang)