获取系统图片，并放入ImageList

代码

function  GetSystemImageList(ImageList: TImageList): Boolean;
var
  vHandle: THandle;
  vSHFileInfo: TSHFileInfo;
begin
  vHandle : =  SHGetFileInfo( '' ,  0 , vSHFileInfo, SizeOf(vSHFileInfo),SHGFI_SYSICONINDEX  or  SHGFI_SMALLICON);
  Result : =  vHandle  <>   0 ;
  ImageList.Handle : =  vHandle;
end ;

转载于:https://www.cnblogs.com/ProgramBull/archive/2010/06/20/1761310.html