Извлечение из EXE-файла иконки и рисование ее в TImage I
Каким образом извлечь иконку из EXE- и DLL-файлов (ExtractAssociatedIcon) и
отобразить ее на компоненте Timage или небольшой области на форме?
uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var IconIndex : word;
h : hIcon;
beginIconIndex := 0;
h :=
ExtractAssociatedIcon(hInstance,
'C:\WINDOWS\NOTEPAD.EXE',
IconINdex);
DrawIcon(Form1.Canvas.Handle,
10,
10,
h);
end;
|