ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ

Главная » Статьи » Программирование » Delphi

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

Извлечение из 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:WINDOWSNOTEPAD.EXE',
IconINdex);

DrawIcon(Form1.Canvas.Handle,
10,
10,
h);
end;

Категория: Delphi | Добавил: Merlin (07.12.2009)

Просмотров: 464 | Рейтинг: 0.0/0

Всего комментариев: 0

Статьи по Оптимизации

ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ