使用SHGetFileInfo函数获取任何文件大图标

2017-10-11 19:16:30来源:CSDN作者:yueyun889人点击

分享

   为了实现在vista和更高版本的系统中能够获取任何文件的大图标(48*48像素,甚至256*256像素),真是找了很多资料,最终经过朋友的帮忙找到了实现方法。

   网络中有很多获取exe大图标的方法,可惜不能获取所有文件的,有使用ExtractIcon函数也有介绍使用注册表实现的,经过仔细测试,最终采用SHGetFileInfo函数。SHGetFileInfo的使用方法网上资料很多,但是真正能实现48*48图片采集的功能也不容易。

以下博文内容转自网络。

 

uses    ShellAPI, CommCtrl;const  SHIL_LARGE = 0; {32x32}  SHIL_SMALL = 1; {16x16}  SHIL_EXTRALARGE = 2; {48x48}  SHIL_SYSSMALL = 3; {16x16}  SHIL_JUMBO = 4; {256x256}function GetFileIconEX(AFile: string; ASHIL_FLAG: Cardinal): HICON;  function _X: Boolean; {判断是否符合系统版本}  begin    Result := False;    if Win32MajorVersion < 5 then      Exit;    if (Win32MajorVersion = 5) and (Win32MinorVersion < 1) then      Exit;    Result := True;  end;type  _SHGetImageList = function (iImageList: Integer; const riid: TGUID;    var ppvObj: Pointer): HResult; stdcall;var  nHandle: THandle;  nImageList: HIMAGELIST;  nSHGetImageList: _SHGetImageList;  nFileInfo: TSHFileInfo;const  IID_IImageList: TGUID = '{46EB5926-582E-4017-9FDF-E8998DAA0950}';begin  Result := 0;  nHandle:= LoadLibrary('Shell32.dll');  nImageList := 0;  if nHandle <> S_OK then  try    nSHGetImageList := GetProcAddress(nHandle, PChar(727));    if Assigned(nSHGetImageList) and _X then      nSHGetImageList(ASHIL_FLAG, IID_IImageList, Pointer(nImageList));  finally    FreeLibrary(nHandle);  end;  if nImageList > 0 then  begin    SHGetFileInfo(PChar(AFile), FILE_ATTRIBUTE_NORMAL, nFileInfo, SizeOf(TSHFileInfo),      SHGFI_SYSICONINDEX);    Result := ImageList_GetIcon(nImageList, nFileInfo.iIcon, ILD_NORMAL);  end;end;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台