delphi取鼠标指定位置颜色


源代码:
----------------------------------------------------

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
   GroupBox1: TGroupBox;
   Panel1: TPanel;
   Label1: TLabel;
   Edit1: TEdit;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Edit2: TEdit;
   Edit3: TEdit;
   Edit4: TEdit;
   Label5: TLabel;
   Edit5: TEdit;
   Label6: TLabel;
   Edit6: TEdit;
   Timer1: TTimer;
   procedure Timer1Timer(Sender: TObject);

  p rivate
   { P rivate declarations }
  public
   constructor Create(AOwner: TComponent); override;
   procedure hotkeyProc(var msg:TMessage);message WM_HOTKEY;
   { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$APPTYPE CONSOLE}
var
  hotID:THandle;
  p1:TPoint;
  hHand1:THandle;
  hdc1:HDC;
  color1:Cardinal;
{ TForm1 }


constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  //注册热键HOME
  RegisterHotKey(Self.Handle,hotID,0,VK_HOME);
  Timer1.Enabled:=true;
  p1:=Point(0,0);
end;

procedure TForm1.hotkeyProc(var msg: TMessage);
var
  r,g,b:Integer;
  c:TColor;

begin
  { TODO -o猪悟能 : 采集颜色 }
  c:=Color1;
  r:=GetRValue(ColorToRGB(c));
  g:=GetGValue(ColorToRGB(c));
  b:=GetBValue(ColorToRGB(c));
  Edit2.Text:=IntToStr(r);
  Edit3.Text:=IntToStr(g);
  Edit4.Text:=IntToStr(b);
  //Writeln(r);
  //Writeln(g);
  //Writeln(b);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  if GetCursorPos(p1)then
  begin
   Edit5.Text:=IntToStr(p1.X);
   Edit6.Text:=IntToStr(p1.Y);
   hHand1:=WindowFromPoint(p1);
   hdc1:=GetDC(hHand1);
   Windows.ScreenToClient(hHand1,p1);
   color1:=GetPixel(hdc1,p1.X,p1.y);
   Panel1.Color:=color1;
   Edit1.Text:=IntToStr(color1);
  end;
end;

end.


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678