Карта сайтаСсылкиКонтакты

Как извлечь иконку из приложения Windows

PDF Печать
Статьи
Как вытащить иконку

Если нужно вытащить иконку, связанную с каким-либо приложением, можно использовать функцию ExtractAssociatedIcon. Но здесь есть некоторые особенности.

Для примера поместите кнопку по имени Button на форму, где-нибудь по центру, так как в левом верхнем углу мы будем рисовать нашу иконку. Подключите модуль ShellApi в разделе uses Вашего проекта.

Затем в событие кнопки Button1Click запишите следующий код:


uses
  { … } ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
  IconIndex : Word;
  h : HICON;
  buffer: array [0..2048] of Char;
 begin
  StrCopy(@Buffer, PAnsiChar('C:\Windows\Notepad.exe'));
  IconIndex := 0;
  h:= ExtractAssociatedIcon
      (hInstance, buffer, IconIndex);
  DrawIcon(Canvas.Handle, 10, 10, h) ;
end;

Теперь можете использовать иконку по Вашему усмотрению.

Если нужно вытащить иконку, связанную с каким-либо приложением, можно использовать функцию.


 

Добавить комментарий


Защитный код
Обновить