HSPTV!掲示板

OSもどきを作っている者です。
マウスカーソルを砂時計にすることはできますか？

> マウスカーソルを砂時計にすることはできますか？
Windows のバージョンは何？

Windows 10 で砂時計にするには、独自のマウスカーソル画像を用意しないといけない。

なるほど...分かりました！windows 10です！

こんな感じでしょうか

#include "user32.as"

#define GCL_HCURSOR -12
#define IDC_WAIT 32514

	LoadCursor 0, IDC_WAIT
	SetClassLong hWnd, GCL_HCURSOR, stat

Windows10でも砂時計、というかグルグル？のカーソルにはできるはずです。

こちらのページが参考になると思います。
http://chokuto.ifdef.jp/urawaza/api/LoadCursor.html

お！ありがとうございました！

(チェック入れるの忘れてた)

	// *** 必要となるAPIや定数の定義 *** //
	#uselib "user32.dll"
	#func  SetWindowPos		"SetWindowPos"		int, int, int, int, int, int, int
	#cfunc LoadCursor		"LoadCursorA"		int, int
	#func  SetClassLong		"SetClassLongA"		int, int, int

	#define IDC_ARROW			32512	; 標準矢印カーソル
	#define IDC_IBEAM			32513	; アイビーム (縦線) カーソル
	#define IDC_WAIT			32514	; 砂時計カーソル
	#define IDC_CROSS			32515	; 十字カーソル
	#define IDC_UPARROW			32516	; 垂直の矢印カーソル
	#define IDC_SIZE			32640 	; [!] 現在は使われません
	#define IDC_ICON			32641	; [!] 現在は使われません
	#define IDC_SIZENWSE		32642	; 斜め右下がりの両方向矢印カーソル
	#define IDC_SIZENESW		32643	; 斜め左下がりの両方向矢印カーソル
	#define IDC_SIZEWE			32644	; 左右両方向矢印カーソル
	#define IDC_SIZENS			32645	; 上下両方向矢印カーソル
	#define IDC_SIZEALL			32646	; 4 方向矢印カーソル
	#define IDC_NO				32648	; 禁止カーソル
	#define IDC_HAND			32649	; Windows 98/Me/2000/XP：ハンドカーソル
	#define IDC_APPSTARTING		32650	; 砂時計付き矢印カーソル
	#define IDC_HELP			32651	; クエスチョンマーク付き矢印カーソル
	#define GCL_HCURSOR			-12

	#define global SetCursor(%1, %2) SetClassLong (%1), GCL_HCURSOR, LoadCursor( 0, (%2) ) : mouse GINFO_MX, GINFO_MY

	_hwnd = hwnd
	idcl = IDC_IBEAM, IDC_WAIT, IDC_CROSS, IDC_UPARROW, /*IDC_SIZE, IDC_ICON,*/ IDC_SIZENWSE, IDC_SIZENESW, IDC_SIZEWE, IDC_SIZENS, IDC_SIZEALL, IDC_NO, IDC_HAND, IDC_APPSTARTING, IDC_HELP
	foreach idcl
		wait 100
		idc = idcl(cnt)
		SetCursor _hwnd, idc
		mes idc
	loop
	wait 100
	SetCursor _hwnd, IDC_ARROW ; 普通に戻す
	mes "おしまい"
	stop

解決していましたが、半年前のマウスの実験コードが残ってたのでご参考にどうぞ(^^