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

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