获取执行文件文件图标问题？

Question

我有一个程序的原代码，在project option 中的application选项卡中有应用程序图标，我怎么把这个图标另存为文件（图标原文件已经找不到了）谢谢

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

用ExtractAssociatedIcon可以得到图标句柄。