Главная » Статьи по Delphi » Мышь и курсор » Программно изменить курсор операционной системы

Программно изменить курсор операционной системы

Автор:

Пути к курсорам установленным в операционной системе хранятся в реестре в следующей ветви: HKEY_CURRENT_USER\Control Panel\Cursors.

uses Registry;
...
Function SetWinCursor(CurName: string): boolean;
var Reg: TRegistry;
begin
  Result:=true;
  if not(FileExists(CurName)) then
  begin
    Result:=false;
    exit;
  end;

  Reg:=TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('\Control Panel\Cursors', false)=false then
  begin
    Result:=false;
    exit;
  end;
  reg.WriteExpandString('Arrow', CurName);
  Reg.free;

  SystemParametersInfo(SPI_SETCURSORS, 0, nil, 0);
end;

Пример использования

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SetWinCursor('c:\test.cur')=false then showmessage('Ошибка');
end;

В случае если указанного файла не будет или не будет нужной ветви в реестре функция возвратит False

Просмотров: 4455

Обсудить на форуме

0   Спам (26.04.2009) 1. DomiNick Благодарю... А как можно при этом изменять ещё и его размеры..? Ответ: Курсор это просто картинка, выводящаяся ОС поверх всего. Просто измените курсор на курсор побольше. Специальной функции ОС думаю что не предусматривает.

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.