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

Материал из 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