Как получить иконку чужого окна
Материал из DRKB
Как получить иконку чужого окна[править | править код]
{
First Start Notepad.exe and run this code:
}
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;
Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 02360