Petite fonction permettant d'obtenir la couleur d'un point de l'écran, même si celui-ci est en de-hors de l'application.
Source / Exemple :
// Fonction donnant la courleur du point (x,y) de l'écran
Function CouleurPointEcran(x,y:Integer):TColor;
var Dc : HDC;
Begin
// Création d'un contexte d'affichage non lié à une fenêtre
// donc permet d'accéder à l'écran entier
DC := CreateDC('DISPLAY',Nil,Nil,Nil);
Try
// Obtenir la couleur du point
Result:=GetPixel(DC,X,Y);
Finally
// ne pas oublier de libérer le contexte, c'est une ressource rare.
DeleteDc(DC);
End;
End;
Conclusion :
Cette source et quelques autres sur :
http://nono40.developpez.com
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.