Определение типа курсора в сторонних приложениях.

[lazutov]

Здравствуйте.
Необходимо проследить факт изменения формы курсора в других приложениях.
Может кто сталкивался с такой задачей?
Желательно без хуков, хотя не принципиально.
Заранее спасибо.

[LDA]

Если тебе надо узнать какой сечас курсор, то я делал так:

var
  CI:TCursorInfo;
  P:TPoint;
...
      if CursorShow = true then
      begin
        ci.cbSize := SizeOf(CI);
        GetCursorInfo(CI);
        if CI.flags <> 0 then // Если flags не равно 0, то курсор отображается
        begin
          GetCursorPos(P);                         
          DrawIcon(b.Canvas.Handle,P.X,P.Y,CI.hCursor);
        end;
      end;
...