Получить иконку чужого окнаDelphi , Графика и Игры , ICOПолучить иконку чужого окна
Оформил: DeeCo { First Start Notepad.exe and run this code: Starte zuerst Notepad.exe und fьhre dann diesen Code aus: } procedure TForm1.Button1Click(Sender: TObject); var hwindow : THandle; H: HIcon; begin hwindow := FindWindow('notepad',nil); H := CopyIcon(GetClassLong(hwindow, GCL_HICON )); DrawIcon(Canvas.Handle, 30, 30, H); end; Here is the translation of the text into Russian: Код написан на Delphi и используется для получения иконки внешнего окна (в этом случае, Notepad.exe) и рисования ее на канвасе формы. Следующий код работает следующим образом:
Вот улучшенная версия кода:
В этой версии кода добавлена проверка ошибок для обеспечения того, что функция Примечание: Функция В статье описывается способ получения иконки другого окна в приложении Delphi с помощью функции FindWindow для поиска окна, а затем CopyIcon для копирования его иконки. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |