Changer l'icone d'une fenetre

//Exemple pour Internet Explorer

var
MyIcon: TIcon;
begin
MyIcon := TIcon.Create;
try
MyIcon.Handle := LoadIcon(0, IDI_ASTERISK);
SendMessage(FindWindow('IEFrame', nil), wm_SetIcon, ICON_SMALL,
MyIcon.Handle);
finally
MyICon.Free;
end;
end;