Как полуить цвет пикселя на экране?

[TwiX]

Вот нашёл функцию скриншота:

Procedure ScreenShot(Path: String);
Var
  Bmp : TBitmap;
  //JpgImg: TJPEGImage;
  DC : HDC;
Begin
  Bmp := Tbitmap.Create;
  //JpgImg := TJPEGImage.Create;
  Bmp.Height := Screen.Height;
  Bmp.Width := Screen.Width;
  DC := GetDC(0);
  Bitblt(Bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
  ReleaseDC(0, DC);
  bmp.SaveToFile(Path);
//JpgImg.Assign(bmp); //в JPG грузим Битмап
//JpgImg.CompressionQuality := Compres; //устанавливаем компрессию (качество) (1-100)
//JpgImg.SaveToFile(PathJPG); //сохраняем в формате JPG
//Очищаем память.
//JpgImg.Free;
  Bmp.Free;
End;

Как узнать цвет какого-нибуть пикселя, не сохраняя сам скрин?
Или хотя бы не грузя его в TImage?

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=59323 ТУТ
Сам спрашивал то же самое - получил ответ.

[ОДИНОЧЕСТВО В СЕТИ]

плохо ищем господа http://programmersforum.ru/showthread.php?t=25705

[DomiNick]

Может пригодится: > Пипетка как в фотошопе < ...

[TwiX]

xD Первым делом я её и создал =)

unit EyeDropperMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Refresh: TTimer;
    Label1: TLabel;
    procedure RefreshTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure getColor();
  end;

var
  Form1: TForm1;
  DC: HDC;
  Pix: Cardinal;

implementation

{$R *.dfm}

procedure TForm1.getColor;
var
  cur:TPoint;
  R,G,B:string;
begin
  Dc:=GetDC(0);
  Windows.GetCursorPos(cur);
  Pix:=GetPixel(Dc, cur.X, cur.Y);
  R:=IntToStr(GetRValue(Pix));
  G:=IntToStr(GetGValue(Pix));
  B:=IntToStr(GetBValue(Pix));
  while length(R)<>3 do R:=R+' ';
  while length(G)<>3 do G:=G+' ';
  while length(B)<>3 do B:=B+' ';
  label1.Caption:='RGB: '+IntToStr(GetRValue(Pix))+' '+IntToStr(GetGValue(Pix))+' '+IntToStr(GetBValue(Pix));
  ReleaseDC(0, Dc);
end;

procedure TForm1.RefreshTimer(Sender: TObject);
begin
  getColor;
end;

end.