■システムのマウスカーソルを変更

LoadCursorFromFile('ファイル名')とsetSystemCursor(Hcursor, カーソルの種類をあらわす定数)を使います。

システムのマウスカーソルを変更

var
  Hcur:Hcursor;
begin
  Hcur := loadCursorFromFile('C:\WINDOWS\Cursors\3dgarro.cur');
  //標準のマウスカーソルを変更します
  setSystemCursor(Hcur, OCR_NORMAL);
end;

定数	用途	通常の形
OCR_NORMAL	普段のカーソル	矢印
OCR_WAIT	処理中	砂時計
OCR_CROSS	テキスト上でのカーソル	十字
OCR_SIZEALL	上下左右にサイズ変更	矢印つき十字

アプリケーションを終了しても元に戻りません。ちゃんと変更する前のものに戻したほうがよいです。

戻る