已经存在一个EXE文件能不能把他的图标导出为ICO格式？

Question

已经存在一个EXE文件能不能把他的图标导出为ICO格式？

Answer 1

uses shellapi;
var
    IconIndex : word;
    h : hIcon;
begin
        IconIndex := 0;
        h := ExtractAssociatedIcon(hInstance,
                        PChar(filename),
                        IconINdex);
        DrawIcon(image1.Canvas.Handle,0,0,h);//将图标显示出来
end;
来自超级猛料

Answer 2

DELPHI下面有一个例子代码.自带的,功能很多,可以参考一下!

Answer 3

1. 用API函数ExtractIcon或ExtractIconEx，取得图标的HANDLE。
2. 创建一个TIcon类，将取得的HANDLE赋给TICON的HANDLE。
3. 调用TIcon的SaveToFile方法，保存图标到文件。
4. 释放该释放的对象。TIcon类的SaveToFile是有限制的，只能读16色的图标。

Answer 4

从其他程序中得到图标(没导出，自己做)
uses
  shellapi;
procedure TForm1.Button1Click(Sender: TObject);
var
 icon:ticon;
begin
 icon:=TIcon.Create;
 icon.Handle:=extracticon(hinstance,'f:\temp\eye.exe',0);
 //your code
 icon.Free;
 end;