1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Изменить тему без предупреждения?

Тема в разделе "Delphi - программирование", создана пользователем dplz, 18 дек 2009.

Статус темы:
Закрыта.
  1. dplz

    dplz Гость

    Репутация:
    0
    ;)
    Всем день добрый. Делаю программу, которая изменяет файл текущей темы и применяет его без предупреждения. Так вот два вопроса:
    1. Как узнать какая тема установлена?
    2. Как применить её без предупреждения. Нажал на кнопку, она применилась...
    спасиб.
     
  2. dplz

    dplz Гость

    Репутация:
    0
    Решил делать все через реестр, сделал так:
    Код:
    procedure TForm1.btn1Click(Sender: TObject);
    var
    R: TRegistry;
    begin
    R := TRegistry.Create;
    R.RootKey := HKEY_CURRENT_USER;
    R.OpenKey('Control Panel\Colors', True);
    R.WriteString('Hilight', 0 0 0);
    R.CloseKey;
    R.Free;
    end;
    В итоге что бы применился параметр темы, то нужно перезагрузить пк. Как сделать переход мгновенным? Перезагрузка explorer'a не помогает
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей