Получить иконку чужого окна

Советы » ICO » Получить иконку чужого окна

{ 
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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com