blocks|key|1412293|text|您必须使用SHGetImageList函数来获取带有较大图标的图像列表。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1412294|下面是一个用delphi编写的示例|1412295|uses+ShellApi,+Commctrl,+ShlObj;

const
++SHIL_LARGE+++++=+$00;++//The+image+size+is+normally+32x32+pixels.+However,+if+the+Use+large+icons+option+is+selected+from+the+Effects+section+of+the+Appearance+tab+in+Display+Properties,+the+image+is+48x48+pixels.
++SHIL_SMALL+++++=+$01;++//These+images+are+the+Shell+standard+small+icon+size+of+16x16,+but+the+size+can+be+customized+by+the+user.
++SHIL_EXTRALARGE=+$02;++//These+images+are+the+Shell+standard+extra-large+icon+size.+This+is+typically+48x48,+but+the+size+can+be+customized+by+the+user.
++SHIL_SYSSMALL++=+$03;++//These+images+are+the+size+specified+by+GetSystemMetrics+called+with+SM_CXSMICON+and+GetSystemMetrics+called+with+SM_CYSMICON.
++SHIL_JUMBO+++++=+$04;++//Windows+Vista+and+later.+The+image+is+normally+256x256+pixels.
++IID_IImageList:+TGUID=+'{46EB5926-582E-4017-9FDF-E8998DAA0950}';

function+GetImageListSH(SHIL_FLAG:Cardinal):+HIMAGELIST;
type
++_SHGetImageList+=+function+(iImageList:+integer;+const+riid:+TGUID;+var+ppv:+Pointer):+hResult;+stdcall;
var
++Handle++++++++:+THandle;
++SHGetImageList:+_SHGetImageList;
begin
++Result:=+0;
++Handle:=+LoadLibrary('Shell32.dll');
++if+Handle<>+S_OK+then
++try
++++SHGetImageList:=+GetProcAddress(Handle,+PChar(727));
++++if+Assigned(SHGetImageList)+and+(Win32Platform+=+VER_PLATFORM_WIN32_NT)+then
++++++SHGetImageList(SHIL_FLAG,+IID_IImageList,+Pointer(Result));
++finally
++++FreeLibrary(Handle);
++end;
end;


Procedure+GetIconFromFile(aFile:String;+var+aIcon+:+TIcon;SHIL_FLAG:Cardinal);
var
++aImgList++++:+HIMAGELIST;
++SFI+++++++++:+TSHFileInfo;
Begin
++++//Get+the+index+of+the+imagelist
++++SHGetFileInfo(PChar(aFile),+FILE_ATTRIBUTE_NORMAL,+SFI,
+++++++++++++++++SizeOf(+TSHFileInfo+),+SHGFI_ICON+or+SHGFI_LARGEICON+or+SHGFI_SHELLICONSIZE+or
+++++++++++++++++SHGFI_SYSICONINDEX+or+SHGFI_TYPENAME+or+SHGFI_DISPLAYNAME+);

++++if+not+Assigned(aIcon)+then
++++aIcon:=+TIcon.Create;
++++//get+the+imagelist
++++aImgList:=+GetImageListSH(SHIL_FLAG);
++++//extract+the+icon+handle
++++aIcon.Handle:=+ImageList_GetIcon(aImgList,+Pred(ImageList_GetImageCount(aImgList)),+ILD_NORMAL);
End;|code-block|syntax|javascript|1412296|您可以通过以下方式使用这些函数|1412297|var
+hicon+:TIcon;
begin
++++hicon:=+TIcon.Create;
++++try
+++++GetIconFromFile('C:\Tools\reflector\readme.htm',hicon,SHIL_JUMBO);
+++++Image1.Picture.Icon.Assign(hIcon);+//assign+to+timage
++++finally
+++++hIcon.Free;
++++end;
end;|1412298|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/bb762185%2528VS.85%2529.aspx^0|5|E|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@$A|X|B|Y|1|Z]]|C|$]]|$1|D|3|E|5|6|7|10|8|@]|9|@]|C|$]]|$1|F|3|G|5|H|7|11|8|@]|9|@]|C|$I|J]]|$1|K|3|L|5|6|7|12|8|@]|9|@]|C|$]]|$1|M|3|N|5|H|7|13|8|@]|9|@]|C|$I|J]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|C|$]]]|P|$Q|$5|R|S|T|C|$U|V]]]]

You must use the <a href="http://msdn.microsoft.com/en-us/library/bb762185%28VS.85%29.aspx" rel="noreferrer">SHGetImageList</a> function, to get the image list with the larger icons.

Here you have an example in delphi

<pre><code>uses ShellApi, Commctrl, ShlObj;

const
 SHIL_LARGE = $00; //The image size is normally 32x32 pixels. However, if the Use large icons option is selected from the Effects section of the Appearance tab in Display Properties, the image is 48x48 pixels.
 SHIL_SMALL = $01; //These images are the Shell standard small icon size of 16x16, but the size can be customized by the user.
 SHIL_EXTRALARGE= $02; //These images are the Shell standard extra-large icon size. This is typically 48x48, but the size can be customized by the user.
 SHIL_SYSSMALL = $03; //These images are the size specified by GetSystemMetrics called with SM_CXSMICON and GetSystemMetrics called with SM_CYSMICON.
 SHIL_JUMBO = $04; //Windows Vista and later. The image is normally 256x256 pixels.
 IID_IImageList: TGUID= '{46EB5926-582E-4017-9FDF-E8998DAA0950}';

function GetImageListSH(SHIL_FLAG:Cardinal): HIMAGELIST;
type
 _SHGetImageList = function (iImageList: integer; const riid: TGUID; var ppv: Pointer): hResult; stdcall;
var
 Handle : THandle;
 SHGetImageList: _SHGetImageList;
begin
 Result:= 0;
 Handle:= LoadLibrary('Shell32.dll');
 if Handle&lt;&gt; S_OK then
 try
 SHGetImageList:= GetProcAddress(Handle, PChar(727));
 if Assigned(SHGetImageList) and (Win32Platform = VER_PLATFORM_WIN32_NT) then
 SHGetImageList(SHIL_FLAG, IID_IImageList, Pointer(Result));
 finally
 FreeLibrary(Handle);
 end;
end;


Procedure GetIconFromFile(aFile:String; var aIcon : TIcon;SHIL_FLAG:Cardinal);
var
 aImgList : HIMAGELIST;
 SFI : TSHFileInfo;
Begin
 //Get the index of the imagelist
 SHGetFileInfo(PChar(aFile), FILE_ATTRIBUTE_NORMAL, SFI,
 SizeOf( TSHFileInfo ), SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SHELLICONSIZE or
 SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_DISPLAYNAME );

 if not Assigned(aIcon) then
 aIcon:= TIcon.Create;
 //get the imagelist
 aImgList:= GetImageListSH(SHIL_FLAG);
 //extract the icon handle
 aIcon.Handle:= ImageList_GetIcon(aImgList, Pred(ImageList_GetImageCount(aImgList)), ILD_NORMAL);
End;
</code></pre>

You can use these functions in this way

<pre><code>var
 hicon :TIcon;
begin
 hicon:= TIcon.Create;
 try
 GetIconFromFile('C:\Tools\reflector\readme.htm',hicon,SHIL_JUMBO);
 Image1.Picture.Icon.Assign(hIcon); //assign to timage
 finally
 hIcon.Free;
 end;
end;
</code></pre>

blocks|key|1412360|text|我们发现文件的索引不正确，因为在测试RRUZ发布的代码时显示了错误的图标。GetIconFromFile方法根据图像计数设置索引。我们将GetIconFromFile更改为使用SFI索引(+aIndex+:=+SFI.iIcon+)，并获得了正确的图标。显然，shellimagelist是不断变化的，所以索引是不正确的。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1412361|感谢所有被协助的人。现在，这似乎是一段非常好的代码。|1412362|procedure+GetIconFromFile(+aFile:+string;+var+aIcon:+TIcon;SHIL_FLAG:+Cardinal+);
var
++aImgList:+HIMAGELIST;
++SFI:+TSHFileInfo;
++aIndex:+integer;
begin+//+Get+the+index+of+the+imagelist
++SHGetFileInfo(+PChar(+aFile+),+FILE_ATTRIBUTE_NORMAL,+SFI,+SizeOf(+TSHFileInfo+),
++++SHGFI_ICON+or+SHGFI_LARGEICON+or+SHGFI_SHELLICONSIZE+or+SHGFI_SYSICONINDEX+or+SHGFI_TYPENAME+or+SHGFI_DISPLAYNAME+);
++if+not+Assigned(+aIcon+)+then
++++aIcon+:=+TIcon.Create;
++//+get+the+imagelist
++aImgList+:=+GetImageListSH(+SHIL_FLAG+);
++//+get+index
++//aIndex+:=+Pred(+ImageList_GetImageCount(+aImgList+)+);
++aIndex+:=+SFI.iIcon;
++//+extract+the+icon+handle
++aIcon.Handle+:=+ImageList_GetIcon(+aImgList,+aIndex,+ILD_NORMAL+);
end;|code-block|syntax|javascript|1412363|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

We found that the index of the file was not correct because the incorrect icon was shown during testing of the code posted by RRUZ. The GetIconFromFile method was setting the index baised on the image count. We changed GetIconFromFile to use the SFI index ( aIndex := SFI.iIcon ) and the correct icon was obtained. Apparently the shellimagelist is constantly changing so the index was incorrect.

Thanks to all to assisted. This seems like a very good piece of code now.

<pre><code>procedure GetIconFromFile( aFile: string; var aIcon: TIcon;SHIL_FLAG: Cardinal );
var
 aImgList: HIMAGELIST;
 SFI: TSHFileInfo;
 aIndex: integer;
begin // Get the index of the imagelist
 SHGetFileInfo( PChar( aFile ), FILE_ATTRIBUTE_NORMAL, SFI, SizeOf( TSHFileInfo ),
 SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SHELLICONSIZE or SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_DISPLAYNAME );
 if not Assigned( aIcon ) then
 aIcon := TIcon.Create;
 // get the imagelist
 aImgList := GetImageListSH( SHIL_FLAG );
 // get index
 //aIndex := Pred( ImageList_GetImageCount( aImgList ) );
 aIndex := SFI.iIcon;
 // extract the icon handle
 aIcon.Handle := ImageList_GetIcon( aImgList, aIndex, ILD_NORMAL );
end;
</code></pre>

If 48x48 or 64x64 icons are present in the Vista Shell how can you get the handle to display one in a TImage using SHGetFileInfo?

I'd like to select an icon from a imagelist that represents a folder path and display a 48x48 or 64x64 icon in a Timage.

<pre><code>// load the large system image for the current path into Image1
SHGetFileInfo( PChar( CurrentPath ), FILE_ATTRIBUTE_NORMAL, SFI,
 SizeOf( TSHFileInfo ), SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SHELLICONSIZE or
 SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_DISPLAYNAME );
AImageIndex := SFI.iIcon;
ImageList2.GetBitmap( AImageIndex, Image1.Picture.Bitmap );
</code></pre>

Bill

Can 48x48 or 64x64 icons be obtained from the Vista Shell?

Windows

如果Vista Shell中存在48x48或64x64的图标，如何使用SHGetFileInfo在TImage中显示这些图标？我想从代表文件夹路径的图像列表中选择一个图标，并在Timage中显示一个48x48或64x64的图标。// load the large system image for the current...

问能否从Vista Shell获得48x48或64x64图标？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问能否从Vista Shell获得48x48或64x64图标？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问能否从Vista Shell获得48x48或64x64图标？
EN