Подписаться на RSS рассылку
Главная » Статьи по Delphi » ICO » Получить иконку чужого окна зная его дескриптор

Получить иконку чужого окна зная его дескриптор

Автор: Борисов Сергей

function GetWindowsICO(h:HWND): HIcon;
begin
  Result := CopyIcon(GetClassLong(h, GCL_HICON ));
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var h : HWND;
begin
  h := FindWindow('notepad', nil); // находим окно
  DrawIcon(Canvas.Handle, 0, 0, GetWindowsICO(h)); // выводим иконку
end;

Открываем блокнот и получаем иконку.

Просмотров: 4490

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта