如何获取屏幕上任意一点的颜色值，当然是用代码方式(100分)

W

Wrong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #1

如何获取屏幕上任意一点的颜色值，当然是用代码方式

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #2

procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
col: DWOrd;
MDC: HDC;
begin
MDC := GetDC(0);
GetCursorPos(p);
col := GetPixel(MDC, p.x, p.y);
ShowMessage(IntToStr(ColorToRGB(col)));
end;

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #3

先把屏幕拷下来
用代码的方式

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #4

呵，卷卷真厉害，又被抢了：）

 

W

Wrong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #5

接受答案了.