获取指定文件的图标

var
  h:hIcon;
  IconIndex:word;
begin
    h:=ExtractAssociatedIcon(HInstance,PChar(Application.Exename),IconIndex);
    DrawIcon(Form1.Canvas.Handle, 10, 10, h);
end;