ekran kordinatları

[pentegram9]

kolay gelsin arkadaslar kendı bilgisayarımın ekranında belli kordinatları girerek rgb degerlerını okumak ıstıyorum yardımcı olan arkdaslara sımdıden tesekkur ederım kolay gelsın

[conari]

http://delphi.about.com/od/fullcodeproj ... 12704a.htm

[qamyoncu]

Kod: Tümünü seç

function renkoku(x,y:integer): Tcolor;
var
DCDesk: HDC;
bmp: Tbitmap;
begin
  bmp := TBitmap.Create;
  bmp.height:=screen.height;
  bmp.width:=screen.width;
  DCDesk:=GetWindowDC(GetDesktopWindow);
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
  ReleaseDC(GetDesktopWindow, DCDesk);
  result:=bmp.Canvas.Pixels[x,y];
  bmp.free;
end;

Umarım yardımcı olur..

[pentegram9]

tesekkur ederım hocam cok makbule gectı allah razı olsun bnu proje bıtınce ılk exeyı sıze gonderecem bakalım beyenecekmısınız

[qamyoncu]

bakalım beyenecekmısınız

Bekliyorum.. umarım beğenirim..

[CemErgun]

y - ğ , umarım iğnelenen arkadaş almıştır mesajı

[Lord_Ares]

merhaba ben mousun olduğu yerin rengini alıp, karşılaştırma yapmak istiyorum.flaş ile yapılmış bir oyunda mousun olduğu yerin rengini öğrenmek ve eğer renk siyah ise şunu yap, beyaz ise bunu yap demek istiyorum.
sizin vermiş olduğunuz kodu şöyle kullandım fakat bir sonuç alamadım. Nerde yanlış yapıyorum. Normalde fonksiyonun bana renk değerini çevirmesi gerekmiyormu.( white, red, black gibi değerler veya AFFF gibi değerler)


procedure TForm1.Button4Click(Sender: TObject);
var
point:TPoint; // kursor'un bulundugu yer

begin
getcursorpos(point);
renkoku(point.X,point.Y);
end;

end.

[conari]

verdiğim link tam bu işi yapıyor.

[Lord_Ares]

ok teşekkurler hallettim. kullanmak isteyen arkadaşlar için kodu aşağıda veriyorum.

formunuza
3 tane edit
1 tane shape
1 tane timer

koyun sonra formunuzun public kısmına bunu ekleyin


public { Public declarations }
ScreenDC: HDC;
end;

sonra timer componentinin ontimer ına bu kodu ekleyin

procedure TForm1.Timer1Timer(Sender: TObject);
VAR
CursorPos: TPoint;
PixelCol: TColor;
begin
GetCursorPos(CursorPos);
PixelCol := GetPixel(GetWindowDC(GetDesktopWindow),cursorPos.x, CursorPos.y);
Shape1.Brush.Color:=PixelCol;
Edit1.Text:=ColorToString(PixelCol);
Edit2.Text:=inttostr(CursorPos.X);
Edit3.Text:=inttostr(CursorPos.Y);

end;