Подписаться на RSS рассылку
Главная » Статьи по 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

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

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

0   Спам
(26.04.2009)
1. DomiNick
Благодарю... smile

А как можно при этом изменять ещё и его размеры..?

Ответ: Курсор это просто картинка, выводящаяся ОС поверх всего. Просто измените курсор на курсор побольше. Специальной функции ОС думаю что не предусматривает.


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта