Советы по Delphi

       

Показ иконки зарегистрированного расширения


Прислал Aleksey :

{процедура показывает иконку в заголовке окна, используемую для, интерисующего вас, зарегистрированного расширения файла}
{Не забудьте - ShellAPI поместить в uses}

procedure ShowIcon;
var
W : Word;begin
W := 0;Form1.Icon.Handle := {изображение иконки вы увидите в заголовке окна}{можно, конечно, посмотреть его и в TImage: для этого вместо "Form1.Icon.Handle" напишите "Image1.Picture.Icon.Handle"}ExtractAssociatedIcon(HInstance,Pchar('c:\windows\*.txt'{узнаем, например, какая иконкаиспользуется для текстового файла.вы можете указать конкретный файл с любым расширением}), W);end;
[000114]



Содержание раздела