如何 用文件的扩展名从Windows下解析出对应的图标，用于自己的程序 ？(100分)

在程序中已知文件全名，欲解析出它的注册图标与文件名一起列出，前提是自己的程序里
不包括这些图标资源。
不知那位大侠，有此经验？

更正：
在程序中已知文件扩展名，欲解析出它在本地机上的注册图标，前提是
1)自己的程序里不包括这些图标资源;2)文件本身不在本地硬盘上
不知那位大侠，有此经验？

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1036258

#include <shlobj.hpp>
HANDLE ExtractIconByExt(AnsiString Ext)
{
SHFILEINFO FileInfo;
SHGetFileInfo(Ext.c_str(),
0,
&amp;FileInfo,
sizeof(FileInfo),
SHGFI_USEFILEATTRIBUTES | SHGFI_ICON);
return FileInfo.hIcon;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TIcon* icon = new TIcon;
icon->Handle = ExtractIconByExt(Edit1->Text);
Image1->Picture->Icon = icon;
delete icon;
}

多人接受答案了。