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

{ 
First Start Notepad.exe and run this code: 
Starte zuerst Notepad.exe und fьhre dann diesen Code aus: 
}

 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
;

Другое по теме:

• Как извлечь иконку из файлов ICO
• Создание ICO из BMP
• Анимированная иконка приложения