获取外部程序窗口左下角图标

获取外部程序窗口左上角图标
看似简单，其实没几个人会。

[解决办法]
2楼不对，要实时读取
[解决办法]

Delphi(Pascal) code

uses  ShellAPI;var  SFI: TSHFileInfo;  ICO: TIcon;begin  if SHGetFileInfo(    'c:\windows\system32\taskmgr.exe',    FILE_ATTRIBUTE_NORMAL,    SFI, SizeOf(TSHFileInfo),    SHGFI_ICON or SHGFI_SMALLICON {or SHGFI_LARGEICON}  ) <> 0 then  begin    ICO := TIcon.Create;    ICO.Handle := SFI.hIcon;    // YOU CODE HERE ...    // DEMO: 运行后看本程序的窗口图标    Self.Icon.Handle := SFI.hIcon;    ICO.Free;    DestroyIcon(SFI.hIcon);  end;end;
[解决办法]
探讨

ie6的网页窗口也是标准窗口，它并不是特例，怎么取？
这么说吧，比如一个delphi的小程序，运行起来之后，我在按钮点击事件中改变Self.Icon.Handle的值，这样窗口左上角的图标变化了，现在问题是如何取得变化后的图标。

我要说的还是“程序文件的图标跟窗口左上角图标是可能不一样的”。