Условие не работает

[Sony_boy]

Здарова. Вот код

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, d: Integer;
begin
  x := 920;
  y := 680;
  Label1.Caption := IntToStr(DesktopColor(x, y));
  d:=DesktopColor(x, y);
  Label1.Font.Color := d; 
  if d <> DesktopColor(x, y) then
  begin
end
else
begin
form1.close;
end;
end;

Что он должен делать: при запуске проекта, определить цвет в указанных координатах. Он выполняет. При изменении цвета в указанных координатах, должно сработать условие и выполниться действие(в моём случае закрытие формы). Вот именно это не работает. В чём ошибка в коде?

[min@y™]

В чём ошибка в коде?

интересно, на сколько ещё форумов ты запостил этот кусок говнокода?

1543736.png

Мне, вот, почему-то, кажется что функция DesktopColor() здесь при равных икс и ыгрек вернёт то же самое значение. И поэтому, условие

if d <> DesktopColor(x, y) then

выполнится чуть позже, чем никогда.

[Stilet]

При изменении цвета в указанных координатах, должно сработать условие и выполниться действие

Кроме всего сказанного почему не написать так:

if d <> DesktopColor(x, y) then Close;

Твоя система IF вообще какая-то не такая. Ты игру хакаешь? - у тебя не выйдет.