Самоноводка на определенный цвет.

[ladose]

procedure TForm1.имя(Sender: TObject);
begin
FindWindow(nil,'Counter-Strike');
if GetPixel(hDC(0), Mouse.CursorPos.X,Mouse.CursorPos.Y )=RGB(255,255,255) then
begin
Mouse_Event(MOUSEEVENTF_LEFTDOWN,Mo use.CursorPos.X,Mouse.CursorPos.Y,0 ,0);
end;
end;

[Человек_Борща]

И чего?

внутри окна своя координатная сетка
там DirectX и GetPixel этого не учитывает*
Нужно ставить hook на мышкэ, чтобы двигать ею.

[Кольша]

FindWindow(nil,'Counter-Strike');

зачем?
и еще следуя из вашего кода еслибы он работал то надо водить мышкой по всей CS пока не попадешь на цвет