获取系统图片，并放入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;