24 - OBTENIR LA COULEUR D'UN POINT DE L'ÉCRAN

Le petit coin du web de Nono40

http://nono40.developpez.com

SOURCES

PRÉSENTATION : Il s'agit juste d'obtenir la couleur d'un point de l'écran...

ZIP : Téléchargez le zip

APERÇUS :

NOTES :

CODE :

// 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;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.