сканер экрана по пикселям

[victor20011]

Возможно ли сделать скан экрана по пикселям?

[VeTaL_UA]

Возможно.

[victor20011]

добавь плз в скайп

либо дайте код плз

если экран белый тогда сделать его черным


procedure TForm1.Timer13Timer(Sender: TObject);
var
ddddddd11:HWND;
BitMap:TBitMap;
ScreenDC:HDC;
begin
ddddddd11:=FindWindow(nil,'Counter-Strike');
if windowHandle <> 0 then
begin
if Screen.Width = 800 then
ScreenDC := GetDC(0);
if screendc=rgb(255,255,255) then
ReleaseDC(0,ScreenDC);
end;
end;

пробывал вот так ХДД


и так

procedure TForm1.Timer14Timer(Sender: TObject);
var
BitMap:TBitMap;
ScreenDC:HDC;
begin
if Screen.Width = 800 then
begin
GetDC(0);
if Canvas.Brush.Color=16777215 then
Canvas.Brush.Color:=0;
ReleaseDC(0,Canvas.Brush.Color);
end;
end;

Добавлено через 7 часов 3 минуты
Уже не надо спасибо:) я понял как