Мир программирования

 


 Найти: на:


Меню
Партнеры
Счетчики
Реклама

Извлечение из 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 ;

 

[Оглавление]

Опрос

Конкурсы
Реклама

 

Web дизайн: Бурлаков Михаил    

Web программирование: Бурлаков Михаил

Используются технологии uCoz