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


本文整理自网络,侵删。

 
 为了实现在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;  

相关阅读 >>

Delphi 判断一目录是否共享

Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)

Delphi comparestr 这个函数可以模糊匹配,且不区分大小写

Delphi fmx调用jar里的java类init方法

Delphi 木马配置器通用写法(末尾追加数据的方法)

Delphi 指定在ie浏览器或ie内核打开链接

Delphi 获取局域网内的机器名

Delphi 网上获取北京时间firedac 下的 sqlite [3] - 获取数据库的基本信息

Delphi 位运算

Delphi idhttp中application/x-www-form-urlencoded字符说明

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...