Отлов Курсора.

[BARNEY]

Курсор мыши в ЧУЖОМ приложении меняется с одного на другой и обратно при наведении на какие либо объекты... каким образом это поймать..что он изменился... в ту и в другую сторону.

[BOBAH13]

Перехват API. В сети полно информации. Ловим SetCursor.
p.s. и от того что Вы пишите через 2 минуты еще один вопрос ничего не изменится, только хуже станет.

Edit
Да прикольно вы поступили, сначла постим, потом читаем мой пост, и удаляем свой, а потом дурака включаем.

Ответ дан. Еще какие то вопросы ?

[BARNEY]

не понял где и какой вопрос? И через какие 2 минуты?

Порылся в инете пример не нашёл который смог понять.

Накидайте пример если вас это не затруднит.

[BOBAH13]

Ну да... я долго искал Перехват API Delphi просто название функции замените на SetCursor

Создаете библиотеку эту, а потом экспортируему функцию используите в установке глобального хука GETMESSAGE (требуется для внедрения этой длл во все процессы).

library mylib;

uses
  Windows, Messages, ShellApi, TlHelp32;

{$R *.RES}

type
  TFarJmp = packed record
    PuhsOp: Byte;
    PushArg: Pointer;
    RetOp: Byte;
  end;
  
var
  AdrShellNotifyIconW: Pointer;
  OldProcW, JmpProcW: TFarJmp;
  NewProcW: Boolean;

function _Shell_NotifyIconW(dwMessage: DWORD; lpData: PNotifyIconDataW): BOOL; stdcall;
var
  Written, CurrentProc: DWord;
begin
  CurrentProc := GetCurrentProcess;
  
  WriteProcessMemory(CurrentProc, AdrShellNotifyIconW, @OldProcW, SizeOf(TFarJmp), Written);
  Result := Shell_NotifyIconW(dwMessage, lpData);
  WriteProcessMemory(CurrentProc, AdrShellNotifyIconW, @JmpProcW, SizeOf(TFarJmp), Written);
end;

procedure InstallHookShellNotifyIcon;
var
  CurrentProc, Written: DWord;
begin
  CurrentProc := GetCurrentProcess;

  // for Unicode
  AdrShellNotifyIconW := GetProcAddress(GetModuleHandle(shell32), 'Shell_NotifyIconW');
  NewProcW := False;

  if Assigned(AdrShellNotifyIconW) then
  begin
    JmpProcW.PuhsOp := $68;
    JmpProcW.PushArg := @_Shell_NotifyIconW;
    JmpProcW.RetOp := $C3;

    NewProcW := ReadProcessMemory(CurrentProc, AdrShellNotifyIconW, @OldProcW, SizeOf(TFarJmp), Written);
    if NewProcW then
      NewProcW := WriteProcessMemory(CurrentProc, AdrShellNotifyIconW, @JmpProcW, SizeOf(TFarJmp), Written);
  end;
end;

procedure UninstallHookShellNotifyIcon;
var
  CurrentProc, Written: DWord;
begin
  CurrentProc := GetCurrentProcess;

  // for Unicode
  if NewProcW then
    WriteProcessMemory(CurrentProc, AdrShellNotifyIconW, @OldProcW, SizeOf(TFarJmp), Written);
end;

function HookProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
  Result := CallNextHookEx(0, code, wparam, lparam);
end;

procedure DLLEntryPoint(dwReason: Integer);
begin

  case dwReason of

    DLL_PROCESS_ATTACH:
    begin
      InstallHookShellNotifyIcon;
    end;

    DLL_PROCESS_DETACH:
    begin
      UninstallHookShellNotifyIcon;
    end;

  end;

end;

exports
  HookProc name 'HookProc';

begin
  DllProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.