Hey! compañeros ya ah funcionado! xD.......
Código Delphi
[-]procedure TForm1.Timer1Timer(Sender: TObject);
Var
c : TControlCanvas;
color : TColor;
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
co := TcontrolCanvas.Create;
Try
c.Handle := GetDC(0);
color := c.Pixels[123,123];
panel1.Color:= color;
finally
deleteDC(c.Handle);
c.Free;
end;
end;
Utilizando el código de coso como base, utilizando la función propuesta por ElKurgan y checando más a fondo como se maneja lo del GetDC encontre que hacía falta borrar el DC obtenido al mandar llamar a la función GetDC...
Ya lo eh probado por bastante tiempo sin que se comience a alentarse y sin que me arroje algún error.....
Para escanear una área de la pantalla creen que sea conveniente utilizar un array bidimensional de Tcolor ó será mejor guardar esa área en un Bitmap?¡?
para después hacer la búsqueda del color predominante en dicha área..
Gracias por su ayuda y su tiempo..
Saludoss!!