Comment changer l icone d une fenêtre par programmation ?
Voici un exemple de code :
PROCEDURE ChangeIcon(sIcon)
//Local
// Icon est un entier = 0x80
hIcon est un entier = AppelDLL32("user32","LoadImageA" ,Null, sIcon,1,0,0,16)
SI hIcon ALORS
SendMessage(Handle(),Icon ,1,hIcon) // icône 32*32 (alt-tab)
SendMessage(Handle(),Icon ,0,hIcon) // icône 16*16 (fenêtre)
SINON
//Traitement en cas d icone non trouve
FIN