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

Question

如题，有人知道吗？

Answer 1

如何取得一个文件相关应用程序的图标很多文档都与某个应用程序相关，如.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;