CreateCursor

[SeregaIRK]

Привет всем !
Подскажите пожалуйста как работать с методом CreateCursor ?
Какаие значения вводятся в скобки ?
Если можно с примером ! Заранее спасибо !

[alexBlack]

А в справке примера не достаточно ?
Вот пример на Delphi. Курсор - квадрат с буквой А в центре

type
  TForm4 = class(TForm)
  protected
    procedure WMSetCursor(var Message:TMessage); message WM_SetCursor;
  end;
....
var H:HCursor;
procedure TForm4.FormCreate(Sender: TObject);
const A : array [1..32, 1..4] of byte =
           ( ($00,$00,$00,$00),
             ($7F,$FF,$FF,$FE),
             ($7F,$FF,$FF,$FE),
             ($7F,$FF,$FF,$FE),

             ($7F,$F0,$0F,$FE),
             ($7F,$F0,$0F,$FE),
             ($7F,$F0,$0F,$FE),
             ($7F,$F0,$0F,$FE),

             ($7F,$F0,$0F,$FE),
             ($7F,$F0,$0F,$FE),
             ($70,$00,$00,$0E),
             ($70,$00,$00,$0E),

             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),

             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),

             ($70,$00,$00,$0E),
             ($70,$00,$00,$0E),
             ($70,$00,$00,$0E),
             ($70,$00,$00,$0E),

             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),
             ($70,$0F,$F0,$0E),

             ($7F,$FF,$FF,$FE),
             ($7F,$FF,$FF,$FE),
             ($7F,$FF,$FF,$FE),
             ($00,$00,$00,$00)
           );
const X : array [1..32, 1..4] of byte =
           ( ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00),
             ($00,$00,$00,$00)
           );

var size : TPoint;
begin
   size.x := GetSystemMetrics(SM_CXCURSOR); // 32
   size.y := GetSystemMetrics(SM_CYCURSOR); // 32

   H := CreateCursor(hInstance, 0, 0, 32{size.x}, 32{size.y}, @A, @X);
end;

procedure TForm4.FormDestroy(Sender: TObject);
begin
   DestroyCursor(H);
end;

procedure TForm4.WMSetCursor(var Message:TMessage);
begin
   SetCursor(h);
end;