[TRUCO DELPHI] Iconos del Sistema Operativo.
delphi
Procedure CreateImages; var SysIL: HImageList; SFI: TSHFileInfo; begin {Crea un Imagelist} MyTreeView.Images := TImageList.Create(Self); SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON); if SysIL <> 0 then begin Images.Handle := SysIL; Images.ShareImages := TRUE; end; end;
Saludos!