Récupérer la couleur d'un pixel de l'écran

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 268 fois - Téléchargée 28 fois

Contenu du snippet

Petit code pour connaitre la couleur du pixel situé sous la souris :)

Source / Exemple :


var
  Pos: TPoint;
  Couleur:TColor;
begin
  GetCursorPos(Pos);
  Couleur := DesktopColor(Pos.X, Pos.Y);

A voir également

Ajouter un commentaire

Commentaires

fabiin
Messages postés
338
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6 -
Bon le site marche pas,
voicl a fonction

function DesktopColor(const X, Y: Integer): TColor;
var
c: TCanvas;
begin
c := TCanvas.Create;
try
c.Handle := GetWindowDC(GetDesktopWindow);
Result := GetPixel(c.Handle, X, Y);
finally
c.Free;
end;
end;
slachz
Messages postés
110
Date d'inscription
lundi 21 avril 2003
Statut
Membre
Dernière intervention
1 janvier 2006
-
cool ton code juste une question:
comment vous faites tous pour trouver ces fonctions/procédures ?? je sais que c'est dans les DLL ou les fichiers DCU de delphi mais dès que j'en ouvre une dans le bloc-note ou delphi, c'est remplie de caracteres en + et pas formaté, illisible quoi ;(
merci et bon' progr'
++
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
5 -
Bonjour,
slachz, n'essaye pas d'ouvrir de fichiers .dcu - ils sont compilés ! Mémorise plutot le nom du fichier. Exemple : tu trouves dans le dossier Lib un fichier Monfichierdcu.dcu (rempli de fonctions et tout et tout). Tu ouvres un projet, et dans la clause uses tu ajoutes "monfichierdcu". Delphi fera le reste. Pour acceder aux fonctions, tu vas n'importe-ou et tu tapes Monfichierdcu.(et un popup avec le contenu du dcu ! )
Si tu n'as pas le fichier Monfichierdcu.PAS , tu ne pourras pas voir le code source :(
Voila j'espère avoir répondu à ta question - un peu tard c'est vrai mais bon ;)
A plus !
slachz
Messages postés
110
Date d'inscription
lundi 21 avril 2003
Statut
Membre
Dernière intervention
1 janvier 2006
-
ahah ouii ça date (et va savoir pourquoi je n'ai pas désactiver la notification depuis le temps que je ne viens plus).
En faite, ma question était plus de savoir comment connaitre les procédures proposées par les librairies, souvent -comme tu le dis toi même- disponible seulement sous forme compilées..
J'ai trouvé depuis: les docs ! ( et internet aussi :3)

En tout cas je te remercie tout de même de cette réponse (aah la joie d'internet ^^).
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
5 -
Bonjour, eh oui... ou ca s'arretera t-y leur progré mdr !
j'ai essayé de répondre le mieux possible :) mais internet est plus instruit que moi (enfin les autres disent ca mais je n'en crois pas un mot :p ).
A plus
Commenter la réponse de cwanty

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.