Как получить иконку чужого окна |
Previous Top Next |
Code: |
{ 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; |
©Drkb::02360
Взято с сайта: http://www.swissdelphicenter.ch