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

本文整理自网络，侵删。

 
会写自己的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; 
 

相关阅读 >>

Delphi读取网页源文件和获取字符串

Delphi 颜色表

Delphi 锁住listview防止刷新

Delphi datasnap清除僵死连接

Delphi strtoint 将“字符型”转换成“整数型”

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi 图像分割

Delphi fmx手机app，如何下载网站图片而不卡界面

Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理

Delphi 获取鼠标与键盘空闲时间

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi编写提取exe文件的ICO图标