Советы по 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; |
