VPF::Системные курсоры - Форум программистов

Budy

Дата 13.4.2004, 06:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

:Всех приветствую.
Как можно путями Delphi свои курсоры установить в систему "пожизненно", т.е. чтоб при перезугрузке они оставались.

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

x77

Дата 13.4.2004, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

установить HKEY_CURRENT_USER\Control Panel\Cursors\ЧЕГО_НАДО

таким образом можно "пожизненно" переопределить любой из системных курсоров, типа, crAppStart.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Budy

Дата 14.4.2004, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Ага! А можно примерчик?

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

<Spawn>

Дата 14.4.2004, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

А что тут трудного? Открываешь regedit, залазишь в эту ветку и видишь как там хранятся курсоры <Название> - <Путь>. Затем открываешь Дельфи и юзаешь класс TRegistry

Код


uses ..., Registry;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  try
    Reg := TRegistry.Create;
    with Reg do
    begin
      RootKey := HKEY_CURRENT_USER;
      if OpenKey('Control Panel\Cursors\', False) then
      begin
        WriteString('MySuperCursor', 'C:\MegaCursor\abrakadabra.ani');
        CloseKey;
      end;
    end;
  finally
    FreeAndNil(Reg);
  end;
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

x77

Дата 14.4.2004, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

Budy, примерчик чего? записи в реестр?

Код


r := TRegistry.Create;
try
  r.OpenKey (...);
  r.WriteString (...);
finally
  r.Free;
end;

если нужен пример того, что надо писать, это дольше объяснять, чем один раз самому посмотреть. открой regedit и всё будет понятно.

--------------------

BLACK_KOT

Дата 2.7.2008, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

может я такой тупой, но у меня ниче не вышло: в реестре прописалась строка и всё. а дальше то чё?
кто нить может полный пример выложить?

--------------------

.. я - демо версия Бога от Microsoft..

mr.Anderson

Дата 2.7.2008, 19:24 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

BLACK_KOT,

Цитата

если нужен пример того, что надо писать, это дольше объяснять, чем один раз самому посмотреть. открой regedit и всё будет понятно

Поэтому залезь в реестр и глянь формат записи веток. Какие конкретно ветки - в коде у <Spawn> указано.

--------------------

Alexeis

Дата 2.7.2008, 19:41 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

BLACK_KOT, ой реестр шибко индивидуален. Начните вопрос с определении версии Windows.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

BLACK_KOT

Дата 2.7.2008, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

в реестре у меня по этому адресу кроме ключа "по умолчанию" ещё параметр Scheme Source лежит непонятный. и строка моя прописалась. а дальше то чё? как курсор то сменить????

Это сообщение отредактировал(а) BLACK_KOT - 2.7.2008, 19:58

Присоединённый файл ( Кол-во скачиваний: 2 )

__________.rar 14,46 Kb

--------------------

.. я - демо версия Бога от Microsoft..

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »