Изменение курсора

[Damien4Damien]

Имеется следующий код:

procedure TForm1.Timer1Timer(Sender: TObject);
var;
  CI : TCursorInfo;
begin
  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  Image1.Picture.Icon.Handle := CI.hCursor;
  Label1.Caption := IntToStr(CI.hCursor);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval := 40;
end;

Он выводит в форму изображение и идентификатор курсора.
Каким образом мне сейчас его изменить, чтобы он в новый лэйбл выводил сообщение "Курсор изменился", когда это действительно происходит?

[DomiNick]

У меня не выводит... Но это из-за CursorXP... Как-то по-левому сделана прога, почему бы просто не заменять системные курсоры? А она прячет настоящий курсор, инжектирует всем процессам свою dll и фиг знает что творит в них... =\\

Сделайте глобальную переменную и запоминайте последнее состояние... Если во время следующей проверки значение не равно предыдущему - то сообщайте...

[Damien4Damien]

Сделайте глобальную переменную и запоминайте последнее состояние...

Вчера пробовал таким способом - не получалось
Не могли бы написать именно код?
Сам затрудняюсь написать...

[Alexei91]

Пишите процедуру типа

procedure TForm1.LC(p: integer; s: PAnsiChar);
begin
Screen.Cursors[p] := LoadCursor(HInstance,s);
Image1.Cursor:=TCursor(p);
end;

Вместо Image1 Ваш элемент,для кот. должен появляться Ваш курсор.
Пример использования

LC(2,'oval');

'oval' - имя курсора из файла *.res.
В коде формы подключите Ваш res-файл,например, {$R MyFile.RES}
Файл с ресурсами создаёте заранее,например в Image Editor (стандартный Борландовский: Меню Tool->Image Editor) - он будет содержать Ваши курсоры.
Если что-то не получится во вложении пример программы и скриншот. Писал 1,5-2 года назад,как курсовую. Тогда ещё много чего не знал(да и сейчас не всё знаю:),так что код очень корявый,но рабочий. Перед запуском программы скопируйте папку "КРАБ" на диск С.

[Damien4Damien]

Спасибо большое за помощь) Очень благодарен всем