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

Автор:

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;

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

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

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

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

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

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