使用SHGetFileInfo函数获取任何文件大图标
2017-10-11 13:25
741 查看
为了实现在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;
网络中有很多获取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;
相关文章推荐
- 收藏——在C#使用SHGetFileInfo获取(管理)文件或者文件夹图标(C#封装Win32函数的一个例子)
- CodeProject - 在C#使用SHGetFileInfo获取(管理)文件或者文件夹图标(C#封装Win32函数的一个例子)
- CodeProject - 在C#使用SHGetFileInfo获取(管理)文件或者文件夹图标(C#封装Win32函数的一个例子)
- C#获取文件(磁盘驱动器)的关联图标(使用API SHGetFileInfo)
- 获取Exe文件版本信息的函数(使用GetFileVersionInfo得到TFileVersionInfo结构体,包含12项内容)
- 【MoreWindows工作笔记4】 获取文件图标,类型名称,属性 SHGetFileInfo
- 获取文件图标,类型名称,属性 SHGetFileInfo
- Windows API——SHGetFileInfo——获取文件信息
- 获取给定路径的图标,演示SHGetFileInfo用法
- SHGetFileInfo 显示文件类型图标
- 获取文件属性SHGetFileInfo
- Windows API——SHGetFileInfo——获取文件信息
- SHGetFileInfo 获得文件类型图标
- Windows API——SHGetFileInfo——获取文件信息
- SHGetFileInfo获取图标说明
- SHGetFileInfo 获得文件类型图标
- SHGetFileInfo获取系统图标注意事项
- Windows API——SHGetFileInfo——获取文件信息
- SHGetFileInfo(获取文件信息)
- 利用WinAPI(GetFileVersionInfo)获取文件版本信息