Delphi FAQ >> Операционная система
Данная функция, написанная на Delphi, позволяет получить иконку, ассоциированную с определенным типом файлов (такие иконки отображаются, например, в Проводнике).
Uses ShellApi; …
function GetAssociatedIcon (const AExtension:String; ASmall: Boolean): HIcon;
var Info: TSHFileInfo; Flags: Cardinal;
begin
if ASmall then
Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
else
Flags := SHGFI_ICON or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES; SHGetFileInfo (PChar(AExtension), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), Flags); Result := Info.hIcon;
end;
Пример использования (на форме находятся кнопка TButton и диалог открытия файлов TOpenDialog):
procedure TForm1.Button1Click(Sender:TObject);
begin
if OpenDialog1.Execute then Form1.Icon.Handle := GetAssociatedIcon(ExtractFileext(Opendialog1.FileName), False);
end;