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 SHGetFileInfo函数获取任何文件大图标

相关推荐

评论
