delphi - 如何在delphi中将图标转换为具有alpha透明度的png？

Question

下面的代码将从文件中提取图标并将其转换为 png 但没有 alpha 透明度？

var
   IconIndex : word;
   icon:TIcon;
   png:TPngImage;
   bmp:TBitmap;
begin
  IconIndex := 0;
  icon := TIcon.Create;
  icon.Handle := ExtractAssociatedIcon(hInstance,pChar(Edit1.Text), IconIndex) ;
  bmp:= TBitmap.Create;
  bmp.LoadFromFile('blank.bmp');
  DrawIcon(bmp.Canvas.Handle, 0, 0, icon.Handle) ;
  png := TPngImage.Create();
  png.Assign(bmp);
  png.SaveToFile('icon.png');
end;

Answer 1

PngComponents包含一个单元PngFunctions.pas，您可以在其中查看

过程ConvertToPNG(源:TGraphic；输出目标:TPngImage)；

在那里您可以找到将 TIcon 转换为 TPngImage 的代码 - 或者直接使用该过程。