请问怎样获得制定文件类型的图标？

[Taken]

如题，有人知道吗？

[Billy_Chen28]

如何取得一个文件相关应用程序的图标

很多文档都与某个应用程序相关，如.txt与NotePad相关联，如何取得与某个文件相关联
的应用程序的图标呢?
uses shellapi;
var
IconIndex : word;
h : hIcon;
begin
IconIndex := 0;
h := ExtractAssociatedIcon(hInstance,
PChar(filename),
IconINdex);
//将图标显示出来DrawIcon(image1.Canvas.Handle,0,0,h);
end;