使用Delphi 2009，尝试制作一个启动器。
为了使其“敏捷”，我真的很想在后台线程中加载图标。
我已经使用了这里找到的解决方案：能否从 Vista Shell 获取 48x48 或 64x64 图标？ https://stackoverflow.com/questions/1703186/can-48x48-or-64x64-icons-be-obtained-from-the-vista-shell
如果不在线程中运行，这可以正常工作。
一旦我将其放入线程中，某些图标就不会被“获取”，或者成为某种通用图标。
我什至尝试序列化线程（实际上使它们过时），但它产生了相同的结果。
所以，问题是：
如何在线程中加载图标（具有与链接示例相同的可用选项）？
/Lars
编辑：
在 GetIconFromFile 中添加了一些非常基本的错误检查
if 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 ) <> 0 then
begin
if not Assigned( aIcon ) then
aIcon := TIcon.Create;
aImgList := GetImageListSH( SHIL_FLAG );
aIndex := SFI.iIcon;
if aImgList <> 0 then
aIcon.Handle := ImageList_GetIcon( aImgList, aIndex, ILD_NORMAL );
end;
这没有任何区别。
我仍然得到一些通用图标（不过，仅当在线程中调用时）
编辑2：
线程代码（非常简单）：
procedure TIconLoader.Execute;
var
Item : TGridItem;
I : TIcon;
begin
inherited;
while not terminated do
begin
Item := nil;
if assigned(FOnNeedGridItem) then
begin
Synchronize(
procedure
begin
FOnNeedGridItem(Self, Item);
end
);
end;
if assigned(Item) then
begin
GetIconFromFile(Item.FFilename, I, SHIL_EXTRALARGE);
Synchronize(
procedure
begin
Item.SetIcon(I);
end
);
// I.Free;
end
else
Terminate;
end;
end;
