Obtenir la couleur d'un point de l'écran

Contenu du snippet

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

A voir également

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.