Советы по Delphi

Icon


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

Каким образом извлечь иконку из 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]



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