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

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