#3
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;| Bu Konudaki Yorumlar |
|
mouse cursorunun bulunduğu yerdeki rengi alma - Yazar: accessman - 19/04/2012, 20:24
Cvp: mouse cursorunun bulunduğu yerdeki rengi alma - Yazar: accessman - 19/04/2012, 21:24
Cvp: mouse cursorunun bulunduğu yerdeki rengi alma - Yazar: accessman - 19/04/2012, 21:35
Cvp: mouse cursorunun bulunduğu yerdeki rengi alma - Yazar: accessman - 22/04/2012, 13:21
RE: mouse cursorunun bulunduğu yerdeki rengi alma - Yazar: accessman - 11/04/2020, 17:19
|
