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

uses shellapi;
var
  IconIndex: word;
  h: hIcon;
begin
  IconIndex := 0;
  h := ExtractAssociatedIcon(hInstance,
    PChar(filename),
    IconIndex);
  // 将图标显示出来
  DrawIcon(image1.Canvas.Handle, 0, 0, h);
end;