c# - tipos - obtener el tipo de cursor del mouse actual

puntero en forma de mano

Question

¿Cómo obtengo el tipo de cursor de mouse GLOBAL actual (reloj de arena / flecha / ...)? En Windows.

Global: lo necesito incluso si el mouse está fuera de mi aplicación o incluso si mi programa no tiene viento.

En C #, Delphi o winapi puro, no importa ...

¡¡Muchas gracias por adelantado!!

Answer 1

EDITAR: En Delphi

En la mayoría de los objetos visuales, puede usar la propiedad Cursor ; de lo contrario, use la propiedad Screen.Cursor . Al volver a establecerlo, crDefault cancela su cambio a lo que estaba configurado anteriormente.

Answer 2

Para obtener la información en el cursor global, use GetCursorInfo .

Answer 3

Uso (en Delphi)

Screen.MouseCursor.

Para el cursor del mouse actual.

General Win32 (user32) da:

function GetCursor: HCURSOR; stdcall;

Esto debería estar disponible para otros idiomas win32.

Answer 4

Los cursores OEM son recursos compartidos, por lo que todos los procesos que soliciten un cursor específico recuperarán el mismo identificador. Una aplicación puede almacenar en caché los controles de cursor del sistema estándar al inicio, luego puede usar GetCursorInfo para obtener el control del cursor global y buscar este manejador en el caché para recuperar su clase , si es de un cursor del sistema.

El siguiente código de muestra Delphi lo demuestra. Los identificadores del cursor se completan en una matriz mediante el uso de LoadImage en la creación del formulario. Un temporizador sondea el cursor global utilizando GetCursorInfo a intervalos regulares, el código busca el controlador en la matriz para recuperar el nombre del cursor de una matriz constante de nombres:

const
  HighCursor = 13;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    FCursorHandles: array [0..HighCursor] of HCURSOR;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  OEMCursors: array [0..HighCursor] of Integer = (OCR_NORMAL, OCR_IBEAM,
      OCR_WAIT, OCR_CROSS, OCR_UP, OCR_SIZENWSE, OCR_SIZENESW, OCR_SIZEWE,
      OCR_SIZENS, OCR_SIZEALL, OCR_NO, OCR_HAND, OCR_APPSTARTING,
      32651 {OCR_HELP?});

  CursorNames: array [0..HighCursor] of string = (''OCR_NORMAL'', ''OCR_IBEAM'',
      ''OCR_WAIT'', ''OCR_CROSS'', ''OCR_UP'', ''OCR_SIZENWSE'', ''OCR_SIZENESW'',
      ''OCR_SIZEWE'', ''OCR_SIZENS'', ''OCR_SIZEALL'', ''OCR_NO'', ''OCR_HAND'',
      ''OCR_APPSTARTING'', ''OCR_HELP'');

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to HighCursor do
    FCursorHandles[i] := LoadImage(0, MakeIntResource(OEMCursors[i]),
        IMAGE_CURSOR, 0, 0, LR_DEFAULTCOLOR or LR_DEFAULTSIZE or LR_SHARED);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

  function GetCursorName(Cursor: HCURSOR): string;
  var
    i: Integer;
  begin
    for i := 0 to HighCursor do
      if Cursor = FCursorHandles[i] then begin
        Result := CursorNames[i];
        Exit;
      end;
    Result := ''Unknown Cursor'';  // A custom cursor.
  end;

var
  CursorInfo: TCursorInfo;
begin
  CursorInfo.cbSize := SizeOf(CursorInfo);
  if GetCursorInfo(CursorInfo) then
    Label1.Caption := GetCursorName(CursorInfo.hCursor)
  else
    Label1.Caption := ''Fail: '' + SysErrorMessage(GetLastError);
end;

Tenga en cuenta que al utilizar Delphi, no es necesario almacenar en caché los manejadores del cursor, ya que Delphi lo hace a través de su lista Screen.Cursors . El código de muestra no lo usa para tener una mejor portabilidad.

También tenga en cuenta que no hay ''OCR_HELP'' en ''winuser.h'', pero la constante proporcionada correspondiente a ''IDC_HELP'' parece funcionar bien (aunque no pude encontrar un diálogo en W7 que utiliza el cursor de "Ayuda Seleccionar") .

Answer 5

Después de años, es hora de responder a mi propia pregunta. Así es como se comprueba si el cursor global actual es reloj de arena en C # (amplíe el código para sus propias necesidades si lo necesita):

private static bool IsWaitCursor()
{
    var h = Cursors.WaitCursor.Handle;

    CURSORINFO pci;
    pci.cbSize = Marshal.SizeOf(typeof(CURSORINFO));
    GetCursorInfo(out pci);

    return pci.hCursor == h;
}

[StructLayout(LayoutKind.Sequential)]
struct POINT
{
    public Int32 x;
    public Int32 y;
}

[StructLayout(LayoutKind.Sequential)]
struct CURSORINFO
{
    public Int32 cbSize;        // Specifies the size, in bytes, of the structure. 
    // The caller must set this to Marshal.SizeOf(typeof(CURSORINFO)).
    public Int32 flags;         // Specifies the cursor state. This parameter can be one of the following values:
    //    0             The cursor is hidden.
    //    CURSOR_SHOWING    The cursor is showing.
    public IntPtr hCursor;          // Handle to the cursor. 
    public POINT ptScreenPos;       // A POINT structure that receives the screen coordinates of the cursor. 
}

[DllImport("user32.dll")]
static extern bool GetCursorInfo(out CURSORINFO pci);