提取图标

最新推荐文章于 2023-12-05 14:29:54 发布

转载最新推荐文章于 2023-12-05 14:29:54 发布 · 168 阅读

文章标签：

#shell

提取图标到ImageList

const
SFile='D:\windows\system32\shell32.dll';
var
i:integer;
Count:integer;
hIcon:HWND;
icon:TICON;
begin
Count :=-1;
Count :=ExtractIcon(HInstance,SFile,Count);
icon :=TICon.Create;
try
  for i:=0 to Count-1 do
  begin
   hIcon :=ExtractIcon(HInstance,SFile,i);
   icon.Handle :=hIcon;
   imgList.AddIcon(icon);
   lstView.Items.Add.ImageIndex :=i;
  end;
finally
  icon.Free;
end;
end;

提取图标并保存到本地
function GetFileIcon(const Filename:string;SmallIcon:Boolean):HICON;
var
info:TSHFILEINFO;
Flag:Integer;
begin
if SmallIcon then
Flag :=(SHGFI_SMALLICON or SHGFI_ICON)
else
Flag :=(SHGFI_LARGEICON or SHGFI_ICON);
SHGetFileInfo(PChar(Filename),0,Info,Sizeof(info),flag);
Result :=info.hIcon;
end;

procedure TForm1.Button1Click(Sender:TObject)
var
icon:HICON;
myicon:TIcon;
begin
icon :=GetFileIcon('E:\...\1.exe',False);
myicon :=TIcon.Create;
myicon.Handle :=icon;
myicon.SaveToFile('D:\s1.ico');
DrawIconEx(Image1.Canvas.handle,10,10,icon,0,0,0,0,DI_NORMAL);
myicon.Free;
end;