【Delphi 】将 png 或者 jpg 转换成 ico

代码说明：

1. Image 类型的选择：根据文件扩展名，代码会选择 TPngImage 或 TJpegImage 来加载图片。
2. 图像加载和调整大小：使用 TBitmap 将图像调整到指定的图标尺寸。
3. 图标创建和保存：将位图分配给 TIcon 对象并保存为 .ico 文件。

使用说明：

1. 将代码添加到您的 Delphi 项目中。
2. 修改 ConvertToIcon 方法的输入文件路径和输出文件路径。
3. 调用 ConvertToIcon 方法时，指定所需的图标大小（例如 16x16、32x32、64x64 等）。

运行该代码后，它会将指定的 .png 或 .jpg 文件转换为 .ico 文件，并保存到指定位置。

uses
  Vcl.Graphics, Vcl.Imaging.pngimage, Vcl.Imaging.jpeg, Vcl.Imaging.GIFImg, System.SysUtils, System.Classes;

procedure ConvertToIcon(const SourceFile, DestFile: string; IconSize: Integer);
var
  Image