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

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

{
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;

Взято с сайта: http://www.swissdelphicenter.ch

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...