Connaitre la couleur du pixel sur l'écran

function DesktopColor( const x,y: integer): TColor;
var
c:TCanvas;

begin
c:=TCanvas.create;
c.handle:=GetWindowDC(GetDesktopWindow);
result:=getpixel(c.handle,x,y);
c.free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
pos: TPoint;

begin
GetCursorPos(Pos);
Panel1.Color:=DesktopColor(pos.x, pos.y);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour18/01/2002
VisualisationVu 1677 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur