delphi编写提取exe文件的ICO图标

最新推荐文章于 2025-05-31 14:42:53 发布

aroc_lo

最新推荐文章于 2025-05-31 14:42:53 发布

阅读量1.9k

点赞数

分类专栏：编程技术 DELPHI编程文章标签： delphi exe integer image string 编程

DELPHI编程同时被 2 个专栏收录

379 篇文章

订阅专栏

编程技术

152 篇文章

订阅专栏

本文介绍如何使用Delphi编程从EXE文件中提取图标，并保存为ICO格式。通过编写简单的程序，用户可以轻松地从任何EXE文件中获取图标资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标,我们为什么不提取出来呢?下面教你怎么用delphi编程提取EXE文件的图标,并保存为ICO格式的.

代码如下:

procedure TForm1.getIcon;
var
  Count : Integer;
  FileName : String;
  i:integer;
begin
  if( FileName <> Edit1.Text ) then
  begin
    FileName:=Edit1.Text;
    I := 0;
    Count := ExtractIcon( Application.Handle, PChar(FileName),
    $FFFFFFFF );
  end
  else
    Inc(I);
  if( I < Count ) then
    Image1.Picture.Icon.Handle :=
    ExtractIcon( Application.Handle, PChar(FileName), I )
  else
    ShowMessage(’没有找到！’ );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    getIcon;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Execute;
edit1.Text:=opendialog1.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
savedialog1.Execute;
image1.Picture.SaveToFile(savedialog1.FileName);

end;