/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

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

Прислал Aleksey msalex@tomcat.ru:

{процедура показывает иконку в заголовке окна, используемую для, интерисующего вас, зарегистрированного расширения файла}
{Не забудьте - 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]