Советы по Delphi

       

Извлечение из EXE-файла иконки и рисование ее в TImage I


Каким образом извлечь иконку из EXE- и DLL-файлов (ExtractAssociatedIcon) и отобразить ее на компоненте Timage или небольшой области на форме?

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex : word;h : hIcon;begin
IconIndex := 0;h :=ExtractAssociatedIcon(hInstance,'C:\WINDOWS\NOTEPAD.EXE',IconINdex);
DrawIcon(Form1.Canvas.Handle,10,10,h);end;
[000021]


Сперва для получения дескриптора иконки используйте вызов API ExtractIcon, затем назначьте (assign) ее TImage.

Далее смотри электронную документацию. [000389]



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