Оглавление
Введение
Постановка задачи
1. Анализ предметной области
1.1 Описание API-функций работы с реестром
1.2 Описание API-функций работы с потоками
2. Описание программной реализации
2.1 Описание структуры программы
2.1.1 Диаграмма взаимодействия модулей
2.1.2 Описание структуры модулей
2.2 Функции модуля MiniReg
2.3 Функции основного модуля (Unit1)
3. Программная реализация
3.1 Модуль работы с реестром (MiniReg)
3.2 Основной модуль программы (Unit1)
Интерфейс программы
Заключение
Используемая литература
Введение
Данный курсовой проект рассказывает о возможностях настройки, одной из наиболее распространенных, на сегодняшний день, операционных систем Windows®, поставляемой Американской корпорацией Microsoft®. Windows® — это мульти задачная операционная система для рабочих станций PC (Personal Computer). Основной идеей, которой является организация взаимодействия пользователя одновременно с несколькими приложениями и прозрачная работа с аппаратными средствами. Но это тема уже другого курсового проекта, а сейчас речь пойдет о возможностях настройки операционной системы Microsoft®Windows® при помощи, так называемого, системного реестра.
О том, что же такое системный реестр и с чем его едят речь пойдет в разделе анализа предметной области. Здесь будет рассказано что представляет из себя системный реестр (далее просто реестр), и почему Microsoft рекомендует хранить сторонним фирмам хранить настройки своих программ в реестре операционной системы (далее ОС), а не в INI-файлах.
Как можно использовать системный реестр, чтобы изменить настройки ОС «под себя» и ускорить или оптимизировать её работу на примере (который я назвал MiniTweaker), будет вкратце изложено в разделе постановки задачи. Описание примера и алгоритмы его работы будет сделано в разделе анализа поставленной задачи.
О программной реализации MiniTweaker-а пойдет речь в разделе описания программной реализации, а его исходный текст можно найти в соответствующем разделе (исходный текст программы).
Подведение итогов, анализ полноты решения задачи курсового проекта и возможностях использования его данных в других «жизненных» задачах рассказывается в заключении.
Постановка задачи
Системный реестр – это кладезь всевозможных данных, здесь хранятся настройки как самой ОС, так и не системного программного обеспечения (далее ПО), а так же надстройки пользователей, использующих данную систему, и данные о аппаратных средствах. Целью данного курсового проекта является использование системного реестра как средства манипулирования настройками ОС и пользовательскими надстройками, причем средствами самой системы (API-функциями). Следует заметить, что операционная система Windows позволяет организовать одновременную работу множества потоков команд (чаще всего просто именуемых – потоками) которые могут быть либо независимыми (или относительно независимыми, но рассмотрение данной проблемы не входит в рамки данного курсового проекта) и тогда они называются процессами, или, как принято их называть, программами (хотя это не совсем корректно), либо зависимыми, тогда они являются, определенного рода, частями потоков. В связи с данным фактом хотелось бы отметить многопоточную реализации программной части данного проекта.
Как один способов решения поставленной задачи можно предложить Tweaker – подстройщик некоторых, не критичных, параметров системы. В задачу Tweaker-а (в общем случае) входит предложение пользователю ряда настроек определенной программной единицы (ПО или ОС) для дальнейших манипуляций с ними (просто ознакомления или их изменения). При этом сами информация о настройках получается либо от объекта настройки, либо из фалов хранящих его настройки. В случае манипуляции с настройками ОС логичнее и правильнее будет получать настройки от неё же (при помощи соответствующих средств, в данном случае API-функций). В случае с ОС можно использовать предоставляемые ей возможности по разделению подзадач в параллельно выполняющиеся уже практически независимые потоки, каждый из которых будет делать свою маленькую часть работы. Для Tweaker-а можно выделить два варианта подобного подхода к разделению подзадач: чтение и запись настроек можно выполнять в разных потоках; чтение и запись можно выполнять в одном потоке, но для разных круп настроек.
1. Анализ предметной области
Системный реестр Windows – это общедоступная база данных, хранящая индивидуальную для каждого компьютера настроечную информацию, используемую программным обеспечением и самой системой. Данные в реестре упорядочены в древовидные структуры, состоящие из узлов, которые в терминологии Windows называются ключами. Каждый ключ имеет один родительский ключ, один или несколько дочерних ключей и ноль или несколько параметров типа имя_параметра =значение. Исключение представляют корневые ключи (они не имеют родителей) и дочерние ключи низшего уровня (они не имеют дочерних ключей). По умолчанию несистемное ПО регистрирует свою информацию в корневом ключе с именем HKEY_CURRENT_USER. Получить доступ к реестру можно написав в командной строке («ПУСК > „Выполнить“) слово „RegEdit“ — при этом запуститься программа для редактирования реестра. Окно этой программы поделено на две части. В левой (более узкой панели) показана древовидная структура ключей. Сами установки называются параметрами, находящимися в правой панели. Каждый параметр имеет своё имя, значение и тип. Параметры бывают строкового типа, двоичного и типа DWORD. Их очень много, но их назначение зависит от того, в каком ключе находится той или иной параметр. Ключи делятся между шестью основными разделами:
HKEY_CLASSES_ROOT – Содержит информацию об OLE, операциях перетаскивания (drag-and-drop — с англ. перетащить-и-отпустить) и ярлыках. В данном разделе можно так же указать программы, запускаемые при активизации файлов определённого типа. Данный раздел является псевдонимом для ветви HKEY_LOCAL_MACHINE\Software\Classes
HKEY_CURRENT_USER – Содержит индивидуальные установки для каждого пользователя, зарегистрированного в системе. Данный раздел является псевдонимом для ветви HKEY_USERS
HKEY_LOCAL_MACHINE – Содержит аппаратные и программные установки, необходимые для функционирования оборудования и программ. Данный раздел так же хранит конфигурацию Windows.
HKEY_USERS – Содержит установки пользователей и соответствующие конфигурационные данные, такие как цвет окна, расположение элементов на рабочем столе, обои, заставки.
HKEY_CURRENT_CONFIG – Содержит информацию о текущем аппаратном профиле. Если вы не используете аппаратные профили, данный раздел содержит установки Windows по умолчанию.
HKEY_DYN_DATA – В отличие от других разделов, которые хранят статистические данные (неизменяющиеся во время сеанса), данный раздел содержит указатели на динамические данные (постоянно изменяющиеся во время работы компьютера). Windows использует данный раздел для отслеживания профилей оборудования plug-and-play, статистики по производительности и драйверов виртуальных устройств VxD.
Все данные системного реестра заключаются в двух файлах, находящихся в директории Windows — это System.dat и User.dat.
Работа с реестром при помощи её же средств осуществляется с помощью ряда API-функций специально предназначенных для этого. Ниже приведен их краткий список и описание.
1.1 Описание API-функций работы с реестром
Создать подраздел в реестре:
RegCreateKey (Key:HKey; SubKey: PChar; var Result: HKey): Longint;
Key — указывает на „корневой“ раздел реестра, в Delphi1 доступен только один — HKEY_CLASSES_ROOT, а в Delphi3 — все.
SubKey — имя раздела — строится по принципу пути к файлу в DOS (пример subkey1\subkey2\ ...). Если такой раздел уже существует, то он открывается.
В любом случае при успешном вызове Result содержит Handle на раздел.
Об успешности вызова судят по возвращаемому значению, если ERROR_SUCCESS, то успешно, если иное — ошибка.
Открытьподраздел:
RegOpenKey(Key: HKey; SubKey: PChar; var Result: HKey): Longint;
Раздел Key
Подраздел SubKey
Возвращает Handle на подраздел в переменной Result. Если раздела с таким именем нет, то он не создается.
Возврат — код ошибки или ERROR_SUCCESS, если успешно.
Закрывает раздел:
RegCloseKey(Key: HKey): Longint;
Закрывает раздел, на который ссылается Key.
Возврат — код ошибки или ERROR_SUCCESS, если успешно.
Удалитьподраздел:
RegDeleteKey(Key: HKey; SubKey: PChar): Longint;
Удалить подраздел Key\SubKey.
Возврат — код ошибки или ERROR_SUCCESS, если нет ошибок.
Получить имена всех подразделов раздела Key:
RegEnumKey(Key:HKey; index: Longint; Buffer: PChar; cb: Longint): Longint;
Key — Handle на открытый или созданный раздел
Buffer — указатель на буфер
cb — размер буфера
index — индекс, должен быть равен 0 при первом вызове RegEnumKey. Типичное использование — в цикле While, где index увеличивается до тех пор, пока очередной вызов RegEnumKey не завершится ошибкой.--PAGE_BREAK--
Возвращает текстовую строку, связанную с ключом Key\SubKey:
RegQueryValue(Key: HKey; SubKey: PChar; Value: PChar; var cb: Longint):
Longint;
Ключ\подключKey\SubKey.
Value — буфердлястроки
cb — размер, на входе — размер буфера, на выходе — длина возвращаемой строки.
Возврат — код ошибки.
Задать новое значение ключу Key\SubKey:
RegSetValue(Key: HKey; SubKey: PChar; ValType: Longint; Value: PChar;
cb: Longint): Longint;
Ключ\подключ Key\SubKey.
ValType — тип задаваемой переменной,
Value — буфер для переменной
cb — размер буфера. В Windows 3.1 допустимо только Value=REG_SZ.
Возврат — код ошибки или ERROR_SUCCESS, если нет ошибок.
Удаляет значение lpValueName находящееся в ключе hKey:
RegDeleteValue(HKEY hKey, LPCTSTR lpValueName);
hKey — ключ. hKey должен был быть открыт с доступом KEY_SET_VALUE процедурой RegOpenKey.
lpValueName — значение, находящееся в ключе hKey.
Возвращает ERROR_SUCCESS если успешно.
Выдает список значений у ключа hKey:
LONG RegEnumValue( HKEY hKey, DWORD dwIndex, LPTSTR lpValueName,
LPDWORD lpcbValueName, LPDWORD lpReserved, LPDWORD lpType,
LPBYTE lpData, LPDWORD lpcbData);
hKey — ключ.
dwIndex — этот параметр должен быть 0 при первом вызове, а далее по анологии с RegEnumKey (т.е. можно использовать в цикле),
lpValueName — буфер для названия значения
lpcbValueName — размер lpValueName
lpReserved должно быть всегда 0
lpType — буфер для названия типа (int)
lpData — буфер для данных
lpcbData-размер для lpData
Примечание:
При каждой новом вызове функции после предыдущего нужно заново переназначить lpcbValueName. { lpcbValueName = sizeof(lpValueName) }
1.2 Описание API-функций работы с потоками
Создать потока:
function CreateThread(
lpThreadAttributes: Pointer; // Указательнаатрибутызащитыпотока
dwStackSize: LongWord; // Размер стека, в байтах
lpStartAddress: TThreadFunc; // Указатель на функцию потока
lpParameter: Pointer; // Атрибут для нового потока
dwCreationFlags: LongWord; // Флаги создания
var lpThreadId: LongWord // Указатель на возвращаемый
// идентификатор потока
): Integer;
Создание отдельного потока выполнения:
function BeginThread(
SecurityAttributes: Pointer;// Указательнаатрибутызащитыпотока
StackSize: LongWord; // Размер стека, в байтах
ThreadFunc: TThreadFunc;// Указатель на функцию потока
Parameter: Pointer;// Артибутыпотока
CreationFlags: LongWord;// Флагисоздания
var ThreadId: Cardinal// Указатель идентификатор потока
): Integer;
Завершениевыполненияпотока:
procedure EndThread(ExitCode: Integer);
завершает поток с указанным ExitCode
Немедленное прекращение выполнения потока:
TerminateThread(
hThered: Cardinal;// Указатель на завершаемый поток
dwExitCode: Cardinal// флаги выхода
);
Атрибуты защиты потока:
CREATE_SUSPENDED – Поток создается в приостановленном состоянии и не выполняется, пока Windows API функция ResumeThread не будет вызвано. Если этот флаг не включен, новый поток начинает выполняться сразу при создании.
STACK_SIZE_PARAM_IS_A_RESERVATION – Параметр StackSize определяет размер стека для потока. Если этот флаг не включен, новый поток назначен заданный компоновщиком по умолчанию размер стека.
2. Описание программной реализации
2.1 Описание структуры программы
2.1.1 Диаграмма взаимодействия модулей
Программа реализована на 2х модулях, один из которых базируясь на API-функциях Windows осуществляет взаимодействие с системным реестром, а второй предоставляет информацию пользователю о текущих значениях предопределенных параметров, и заносит сделанные пользователем изменения параметров в системный реестр. Вот как это выглядит:
Вызов функция
2.1.2 Описание структуры модулей
Модуль MiniReg не несет функциональной нагрузки, все функции описанные в нем являются лишь надстройками над WinAPI для упрощения их использования. Описание функций модуля можно найти в разделе "Функции модуля MiniReg". Посему следует отметить линейность структуры модуля и его функций, поэтому описание взаимодействия функций в модуле нет (все взаимодействия осуществляются через параметры), поэтому структуру модуля я не привожу.
Модуль Unit1 является модулем главной (и единственной) формы приложения. Тем не менее все элементы относящиеся к форме не несут функциональной нагрузки, относящейся к решения поставленной задачи и лишь выполняют вспомогательные функции (например: выбор изображения для установки его в качестве фонового, или сохранение текущего фонового изображения в произвольном графическом файле). Все функции возложены на три потока, соответствующих трем основным вкладкам. В функции потоков входит чтение параметров реестра когда вкладка на не неактивных подчиненных вкладках и запись параметров активной вкладки. При этом используется та особенность API-функций Windows, что параметры считанные несколько раз из реестра не удаляются из памяти, а некоторое время остаются в ней, что позволяет не беспокоиться о быстродействии потоков постоянно следящих за изменениями параметров реестра. Кроме этого, тот факт что потоки постоянно записывают значения параметров активной вкладки в реестр, тоже не должен никого смущать, т.к. параметры совпадающие со значениями в реестре не записываются в него повторно, благодаря тому что они сравниваются с теми что хранятся в памяти и только в том случае если не равны им записываются в реестр физически. Память же обновляется при изменении соответствующих параметров реестра автоматически.
Ниже приведена диаграмма использования потоками модуля Unit1 функций модуля MiniReg.
2.2 Функции модуля MiniReg
Функция RegSetString:
Заголовок: function RegSetString(RootKey: HKEY; Name: String;
Value: String): boolean;
Назначение: Установка ключа Name ветви корня RootKey текстового значения Value и возврат true, в случае успеха.
Входные параметры: RootKey, Name, Value
Выходные параметры:-
Функция RegSetMultiString:
Заголовок: function RegSetMultiString (RootKey: HKEY; Name: String; продолжение
--PAGE_BREAK--
Value: String): boolean;
Назначение: Установка ключа Name ветви корня RootKey текстового значения Value из нескольких строк, и возврат true, в случае успеха.
Входные параметры: RootKey, Name, Value
Выходные параметры:-
Функция RegSetDWORD:
Заголовок: function RegSetDWORD(RootKey: HKEY; Name: String;
Value: Cardinal): boolean;
Назначение: Установка ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успеха.
Входные параметры: RootKey, Name, Value
Выходные параметры:-
Функция RegSetBinary:
Заголовок: function RegSetDWORD(RootKey: HKEY; Name: String;
Value: Cardinal): boolean;
Назначение: Установка ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успеха.
Входные параметры: RootKey, Name, Value
Выходные параметры:-
Функция RegSetBinary:
Заголовок: function RegSetBinary (RootKey: HKEY; Name: String;
Value: Array of Byte): boolean;
Назначение: Установка ключа Name ветви корня RootKey бинарного значения Value, и возврат true, в случае успеха.
Входные параметры: RootKey, Name, Value
Выходные параметры:-
Функция RegGetString:
Заголовок: function RegGetString (RootKey: HKEY; Name: String;
var Value: Cardinal): boolean;
Назначение: Получение ключа Name ветви корня RootKey текстового значения Value, и возврат true, в случае успешного получения данных.
Входные параметры: RootKey, Name
Выходные параметры:Value
Функция RegGetMultiString:
Заголовок: function RegGetMultiString (RootKey: HKEY; Name: String;
var Value: Cardinal): boolean;
Назначение: Получения ключа Name ветви корня RootKey много строкового значения Value, и возврат true, в случае успешного получения данных.
Входные параметры: RootKey, Name
Выходные параметры:Value
Функция RegGetDWORD:
Заголовок: function RegGetDWORD (RootKey: HKEY; Name: String;
var Value: Cardinal): boolean;
Назначение: Получение ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успешного получения данных.
Входные параметры: RootKey, Name
Выходные параметры:Value
Функция RegGetBinary:
Заголовок: function RegGetBinary (RootKey: HKEY; Name: String;
var Value: String): boolean;
Назначение: Получение ключа Name ветви корня RootKey бинарного значения Value в строковой форма, и возврат true, в случае успешного получения данных.
Входные параметры: RootKey, Name
Выходные параметры:Value
Функция RegGetValueType:
Заголовок: function RegGetValueType (RootKey: HKEY; Name: String; var Value: Cardinal): boolean;
Назначение: Получение типа ключа Name ветви корня RootKey в Value, и возврат true, в случае его существования.
Входные параметры: RootKey, Name
Выходные параметры:Value
Функция :
Заголовок: function RegSetDWORD(RootKey: HKEY; Name: String;
Value: Cardinal): boolean;
Назначение: Установка ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успеха.
Входные параметры: RootKey, Name, Value
Выходные параметры:-
Функция RegKeyExists:
Заголовок: function RegKeyExists (RootKey: HKEY; Name: String):
boolean;
Назначение: Проверка сущуствования ключа Name ветви корня RootKey и возврат рузультата.
Входные параметры: RootKey, Name
Выходные параметры:-
Функция RegDelValue:
Заголовок: function RegDelValue (RootKey: HKEY; Name: String):
boolean;
Назначение: Удаление ключа Name ветви корня RootKey и возврат результата выполнения операции.
Входные параметры: RootKey, Name
Выходные параметры:-
Функция RegAddKey:
Заголовок: function RegAddKey (RootKey: HKEY; Name: String):
boolean;
Назначение: Создание нового ключа Name ветви корня RootKey и возврат результата выполнения операции.
Входные параметры: RootKey, Name
Выходные параметры:-
Функция RegDelKey:
Заголовок: function RegDelKey (RootKey: HKEY; Name: String):
boolean;
Назначение: Удаление улюча Name ветви корня RootKey и возврат результата выполнения операции.
Входные параметры: RootKey, Name
Выходные параметры:-
Функция RegConnect:
Заголовок: function RegConnect (MachineName: String;
RootKey: HKEY; var RemoteKey: HKEY): boolean;
Назначение: Подключение к реестру машины с именем MachineName, и чтение с неё корня RootKey в RemoteKey, с возвратам флага успешного выполнения операции.
Входныепараметры: MachineName, RootKey
Выходные параметры:RemoteKey продолжение
--PAGE_BREAK--
Функция RegDisconnect:
Заголовок: function RegDisconnect(RemoteKey: HKEY): boolean;
Назначение: Отключение от удаленного корневого ключа (освобождение удаленного ключа RemoteKey), и возврат флага успешного выполнения операции.
Входные параметры: RemoteKey
Выходные параметры:-
Функция RegEnumKeys:
Заголовок: function RegEnumKeys (RootKey: HKEY; Name: String;
var KeyList: String): boolean;
Назначение: Получение списка ключей ветви Name корня RootKey в KeyList, и возвращение true при отсутствии ошибок выполнения операции.
Входные параметры: RootKey, Name
Выходные параметры:KeyList
Функция RegEnumValues:
Заголовок: function RegEnumValues (RootKey: HKEY; Name: String;
var ValueList: String): boolean;
Назначение: Получение списка значений ключей ветви Name корня RootKey в ValueList, и возвращение true при отсутствии ошибок выполнения операции.
Входные параметры: RootKey, Name
Выходные параметры:ValueList
2.3 Функции основного модуля (Unit1)
Процедура Execute1:
Заголовок: procedure Execute1;
Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки ‘Система’.
Входные параметры: -
Выходные параметры: -
Процедура Execute2:
Заголовок: procedure Execute2;
Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки ‘Защита’.
Входные параметры: -
Выходные параметры: -
Процедура Execute3:
Заголовок: procedure Execute3;
Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки ‘Рабочий стол’.
Входные параметры: -
Выходные параметры: -
3. Программная реализация
3.1 Модуль работы с реестром (MiniReg)
unit MiniReg;
interface
uses Windows;
function RegSetString(RootKey: HKEY; Name: String;
Value: String): boolean;
function RegSetMultiString(RootKey: HKEY; Name: String;
Value: String): boolean;
function RegSetExpandString(RootKey: HKEY; Name: String;
Value: String): boolean;
function RegSetDWORD(RootKey: HKEY; Name: String;
Value: Cardinal): boolean;
function RegSetBinary(RootKey: HKEY; Name: String;
Value: Array of Byte): boolean;
function RegGetString(RootKey: HKEY; Name: String;
Var Value: String): boolean;
function RegGetMultiString(RootKey: HKEY; Name: String;
Var Value: String): boolean;
unction RegGetExpandString(RootKey: HKEY; Name: String;
Var Value: String): boolean;
function RegGetDWORD(RootKey: HKEY; Name: String;
Var Value: Cardinal): boolean;
function RegGetBinary(RootKey: HKEY; Name: String;
Var Value: String): boolean;
function RegGetValueType(RootKey: HKEY; Name: String;
var Value: Cardinal): boolean;
function RegValueExists(RootKey: HKEY; Name: String):
boolean;
function RegKeyExists(RootKey: HKEY; Name: String):
boolean;
function RegDelValue(RootKey: HKEY; Name: String): boolean;
function RegAddKey(RootKey: HKEY; Name: String): boolean;
function RegDelKey(RootKey: HKEY; Name: String): boolean;
function RegConnect(MachineName: String; RootKey: HKEY;
var RemoteKey: HKEY): boolean;
function RegDisconnect(RemoteKey: HKEY): boolean;
function RegEnumKeys(RootKey: HKEY; Name: String;
var KeyList: String): boolean;
function RegEnumValues(RootKey: HKEY; Name: String;
var ValueList: String): boolean;
implementation
function LastPos(Needle: Char; Haystack: String): integer;
begin
for Result := Length(Haystack) downto 1 do
if Haystack[Result] = Needle then
Break;
end;
function RegConnect(MachineName: String; RootKey: HKEY; var RemoteKey: HKEY): boolean;
begin
Result:= (RegConnectRegistry(PChar(MachineName), RootKey, RemoteKey)
= ERROR_SUCCESS);
end;
function RegDisconnect(RemoteKey: HKEY): boolean;
begin
Result := (RegCloseKey(RemoteKey) = ERROR_SUCCESS);
end;
function RegSetValue(RootKey: HKEY; Name: String; ValType: Cardinal;
PVal: Pointer; ValSize: Cardinal): boolean;
Var SubKey: String; n: integer; dispo: DWORD; hTemp: HKEY;
begin
Result := False;
n := LastPos('\', Name);
if n>0 then begin
SubKey := Copy(Name, 1, n — 1);
if RegCreateKeyEx(RootKey, PChar(SubKey), 0, nil, REG_OPTION_NON_VOLATILE, KEY_WRITE,
nil, hTemp, @dispo) = ERROR_SUCCESS then begin продолжение
--PAGE_BREAK--
SubKey := Copy(Name, n + 1, Length(Name) — n);
Result := (RegSetValueEx(hTemp, PChar(SubKey), 0, ValType, PVal, ValSize) = ERROR_SUCCESS);
RegCloseKey(hTemp);
end;
end;
end;
function RegGetValue(RootKey: HKEY; Name: String; ValType: Cardinal;
var PVal: Pointer; var ValSize: Cardinal): boolean;
var
SubKey: String; n: integer; MyValType: DWORD;
hTemp: HKEY; Buf: Pointer; BufSize: Cardinal;
begin
Result := False;
n := LastPos('\', Name);
if n>0 then begin
SubKey := Copy(Name, 1, n — 1);
if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hTemp) = ERROR_SUCCESS then begin
SubKey := Copy(Name, n + 1, Length(Name) — n);
if RegQueryValueEx(hTemp, PChar(SubKey), nil, @MyValType, nil, @BufSize) = ERROR_SUCCESS then begin
GetMem(Buf, BufSize);
if RegQueryValueEx(hTemp, PChar(SubKey), nil, @MyValType, Buf, @BufSize) = ERROR_SUCCESS then begin
if ValType = MyValType then begin
PVal := Buf;
ValSize := BufSize;
Result := True;
end
else begin
FreeMem(Buf);
end;
end
else begin
FreeMem(Buf);
end;
end;
RegCloseKey(hTemp);
end;
end;
end;
function RegSetString(RootKey: HKEY; Name: String; Value: String): boolean;
begin
Result := RegSetValue(RootKey, Name, REG_SZ, PChar(Value + #0), Length(Value) + 1);
end;
function RegSetMultiString(RootKey: HKEY; Name: String; Value: String): boolean;
begin
Result := RegSetValue(RootKey, Name, REG_MULTI_SZ, PChar(Value + #0#0),Length(Value)+ 2);
end;
function RegSetExpandString(RootKey: HKEY; Name: String; Value: String): boolean;
begin
Result := RegSetValue(RootKey, Name, REG_EXPAND_SZ, PChar(Value + #0), Length(Value) + 1);
end;
function RegSetDword(RootKey: HKEY; Name: String; Value: Cardinal): boolean;
begin
Result := RegSetValue(RootKey, Name, REG_DWORD, @Value, SizeOf(Cardinal));
end;
function RegSetBinary(RootKey: HKEY; Name: String; Value: Array of Byte): boolean;
begin
Result := RegSetValue(RootKey, Name, REG_BINARY, @Value[Low(Value)], length(Value));
end;
function RegGetString(RootKey: HKEY; Name: String; Var Value: String): boolean;
var
Buf: Pointer; BufSize: Cardinal;
begin
Result := False;
if RegGetValue(RootKey, Name, REG_SZ, Buf, BufSize) then begin
Dec(BufSize);
SetLength(Value, BufSize);
f BufSize>0 then
CopyMemory(@Value[1], Buf, BufSize);
FreeMem(Buf);
Result := True;
end;
end;
function RegGetMultiString(RootKey: HKEY; Name: String; Var Value: String): boolean;
var
Buf: Pointer; BufSize: Cardinal;
begin
Result := False;
if RegGetValue(RootKey, Name, REG_MULTI_SZ, Buf, BufSize) then begin
Dec(BufSize);
SetLength(Value, BufSize);
if BufSize>0 then
CopyMemory(@Value[1], Buf, BufSize);
FreeMem(Buf);
Result := True;
end;
end;
function RegGetExpandString(RootKey: HKEY; Name: String; Var Value: String): boolean;
var
Buf: Pointer; BufSize: Cardinal;
begin
Result := False;
if RegGetValue(RootKey, Name, REG_EXPAND_SZ, Buf, BufSize) then begin
Dec(BufSize);
SetLength(Value, BufSize);
if BufSize>0 then
CopyMemory(@Value[1], Buf, BufSize);
FreeMem(Buf);
Result := True;
end;
end;
function RegGetDWORD(RootKey: HKEY; Name: String; Var Value: Cardinal): boolean;
var
Buf: Pointer; BufSize: Cardinal;
begin
Result := False;
if RegGetValue(RootKey, Name, REG_DWORD, Buf, BufSize) then begin
CopyMemory(@Value, Buf, BufSize);
FreeMem(Buf);
Result := True;
end;
end;
function RegGetBinary(RootKey: HKEY; Name: String; Var Value: String): boolean;
var
Buf: Pointer; BufSize: Cardinal; продолжение
--PAGE_BREAK--
begin
Result := False;
if RegGetValue(RootKey, Name, REG_BINARY, Buf, BufSize) then begin
SetLength(Value, BufSize);
CopyMemory(@Value[1], Buf, BufSize);
FreeMem(Buf);
Result := True;
end;
end;
function RegValueExists(RootKey: HKEY; Name: String): boolean;
var
SubKey: String; n: integer; hTemp: HKEY;
begin
Result := False;
n := LastPos('\', Name);
if n>0 then begin
SubKey := Copy(Name, 1, n — 1);
if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hTemp) = ERROR_SUCCESS then begin
SubKey := Copy(Name, n + 1, Length(Name) — n);
Result := (RegQueryValueEx(hTemp, PChar(SubKey), nil, nil, nil, nil) = ERROR_SUCCESS);
RegCloseKey(hTemp);
end;
end;
end;
function RegGetValueType(RootKey: HKEY; Name: String; var Value: Cardinal): boolean;
var
SubKey: String; n: integer; hTemp: HKEY; ValType: Cardinal;
begin
Result := False;
Value := REG_NONE;
n := LastPos('\', Name);
if n>0 then begin
SubKey := Copy(Name, 1, n — 1);
if (RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hTemp) = ERROR_SUCCESS) then begin
SubKey := Copy(Name, n + 1, Length(Name) — n);
Result := (RegQueryValueEx(hTemp, PChar(SubKey), nil, @ValType, nil, nil) = ERROR_SUCCESS);
if Result then
Value := ValType;
RegCloseKey(hTemp);
end;
end;
end;
function RegKeyExists(RootKey: HKEY; Name: String): boolean;
var
SubKey: String; n: integer; hTemp: HKEY;
begin
Result := False;
n := LastPos('\', Name);
if n>0 then begin
SubKey := Copy(Name, 1, n — 1);
if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hTemp) = ERROR_SUCCESS then begin
Result := True;
RegCloseKey(hTemp);
end;
end;
end;
function RegAddKey(RootKey: HKEY; Name: String): boolean;
var
hTemp: HKEY;
begin
Result := (RegCreateKey(RootKey, PChar(Name), hTemp) = ERROR_SUCCESS);
end;
function RegDelValue(RootKey: HKEY; Name: String): boolean;
var
SubKey: String; n: integer; hTemp: HKEY;
begin
Result := False;
n := LastPos('\', Name);
if n>0 then begin
SubKey := Copy(Name, 1, n — 1);
if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_WRITE, hTemp) = ERROR_SUCCESS then begin
SubKey := Copy(Name, n + 1, Length(Name) — n);
Result := (RegDeleteValue(hTemp, PChar(SubKey)) = ERROR_SUCCESS);
RegCloseKey(hTemp);
end;
end;
end;
function RegDelKey(RootKey: HKEY; Name: String): boolean;
var
SubKey: String; n: integer; hTemp: HKEY;
begin
Result := False;
n := LastPos('\', Name);
if n>0 then begin
SubKey := Copy(Name, 1, n — 1);
if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_WRITE, hTemp) = ERROR_SUCCESS then begin
SubKey := Copy(Name, n + 1, Length(Name) — n);
Result := (RegDeleteKey(hTemp, PChar(SubKey)) = ERROR_SUCCESS);
RegCloseKey(hTemp);
end;
end;
end;
function RegEnum(RootKey: HKEY; Name: String; var ResultList: String; const DoKeys: Boolean): boolean;
var
i: integer; iRes: integer; s: String; hTemp: HKEY; Buf: Pointer; BufSize: Cardinal;
begin
Result := False;
ResultList := '';
if RegOpenKeyEx(RootKey, PChar(Name), 0, KEY_READ, hTemp) = ERROR_SUCCESS then begin
Result := True;
BufSize := 1024;
GetMem(buf, BufSize);
i := 0;
iRes := ERROR_SUCCESS;
while iRes = ERROR_SUCCESS do begin
BufSize := 1024;
if DoKeys then
iRes := RegEnumKeyEx(hTemp, i, buf, BufSize, nil, nil, nil, nil)
else
iRes := RegEnumValue(hTemp, i, buf, BufSize, nil, nil, nil, nil);
if iRes = ERROR_SUCCESS then begin
SetLength(s, BufSize);
CopyMemory(@s[1], buf, BufSize);
if ResultList = '' then продолжение
--PAGE_BREAK--
ResultList := s
Else ResultList := Concat(ResultList, #13#10,s);
inc(i);
end; end;
FreeMem(buf);
RegCloseKey(hTemp);
end; end;
function RegEnumValues(RootKey: HKEY; Name: String; var ValueList: String): boolean;
begin
Result := RegEnum(RootKey, Name, ValueList, False);
end;
function RegEnumKeys(RootKey: HKEY; Name: String; var KeyList: String): boolean;
begin Result := RegEnum(RootKey, Name, KeyList, True);
end;
en
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls,
Buttons, ExtDlgs;
const
ClearPageFileAtShutdown: String =
'SYSTEM\CurrentControlSet\Control\Session '
+'Manager\Memory Management\ClearPageFileAtShutdown';
DebugDrWatsonAuto: String =
'SOFTWARE\Microsoft\Windows NT\CurrentVersion\'
+'AeDebug\Auto';
AlwaysUnloadDLL: String =
'SOFTWARE\Microsoft\Windows\CurrentVersion\'
+'Explorer\AlwaysUnloadDLL';
NoInstrumentation: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoInstrumentation';
DefaultSeparateVDM: String =
'SYSTEM\CurrentControlSet\Control\WOW\'
+'DefaultSeparateVDM';
DoReport: String =
'SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport';
ShowUI: String =
'SOFTWARE\Microsoft\PCHealth\ErrorReporting\ShowUI';
PromptPasswordOnResume: String =
'Software\Policies\Microsoft\Windows\'
+'System\Power\PromptPasswordOnResume';
BootOptimizeFunction: String =
'SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\'
+'Enable';
ConsoleQuickEdit: String = 'Console\QuickEdit';
ShutdownReasonUI: String =
'Software\Policies\Microsoft\Windows NT\'
+'Reliability\ShutdownReasonUI';
NoLowDiskSpaceChecks: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoLowDiskSpaceChecks';
MinAnimate: String =
'Control Panel\Desktop\WindowMetrics\MinAnimate';
SeparateProcess: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Explorer\Advanced\SeparateProcess';
AutoRestartShell: String =
'SOFTWARE\Microsoft\Windows NT\CurrentVersion\'
+'Winlogon\AutoRestartShell';
IsShortcut: String = 'SOFTWARE\Classes\lnkfile\IsShortcut';
LinkImg: String =
'Software\Microsoft\Windows\CurrentVersion\Explorer\link';
NoSaveSettings: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoSaveSettings';
DragFullWindows: String =
'Control Panel\Desktop\DragFullWindows';
EnableBalloonTips: String = 'Software\Microsoft\Windows\CurrentVersion\'
+'Explorer\Advanced\EnableBalloonTips';
TaskbarGlomming: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Explorer\Advanced\TaskbarGlomming';
TaskbarGroupSize: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Explorer\Advanced\TaskbarGroupSize';
NoRecentDocsHistory: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoRecentDocsHistory';
Start_AutoCascade: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Explorer\Advanced\Start_AutoCascade';
NoCommonGroups: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoCommonGroups';
StartMenuScrollPrograms: String =
'Software\Microsoft\Windows\'
+'CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms';
IntelliMenus: String = 'Software\Microsoft\Windows\'
+'CurrentVersion\Explorer\Advanced\IntelliMenus';
Start_LargeIcons: String = 'Software\Microsoft\Windows\'
+'CurrentVersion\Explorer\Advanced\Start_LargeIcons';
StartMenuChange: String = 'Software\Microsoft\Windows\'
+'CurrentVersion\Explorer\Advanced\StartMenuChange';
CodePage: String =
'SYSTEM\CurrentControlSet\Control\Nls\CodePage\';
DosKeybCodes: String =
'SYSTEM\CurrentControlSet\Control\Keyboard Layout\'
+'DosKeybCodes\00000409';
AutoEndTasks: String = 'Control Panel\Desktop\AutoEndTasks';
AutoRunCD: String =
'SYSTEM\CurrentControlSet\Services\Cdrom\AutoRun';
DontDisplayLastUserName: String = продолжение
--PAGE_BREAK--
'SOFTWARE\Microsoft\Windows\CurrentVersion\'
+'Policies\System\dontdisplaylastusername';
DisableStatusMessages: String =
'SOFTWARE\Microsoft\Windows\CurrentVersion\'
+'Policies\System\DisableStatusMessages';
VerboseStatus: String =
'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\'
+'System\verbosestatus';
Hotkey: String = '.DEFAULT\Keyboard Layout\Toggle\Hotkey';
InitialKeyboardIndicators: String = '.DEFAULT\Control Panel\Keyboard\'
+'InitialKeyboardIndicators';
DisableTaskMgr: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\System\DisableTaskMgr';
DisableRegistryTools: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\System\DisableRegistryTools';
NoLogOff: String =
'Software\Microsoft\Windows\CurrentVersion\Policies\'
+'Explorer\NoLogOff';
NoClose: String =
'Software\Microsoft\Windows\CurrentVersion\Policies\'
+'Explorer\NoClose';
NoControlPanel: String =
'Software\Microsoft\Windows\CurrentVersion\Policies\'
+'Explorer\NoControlPanel';
NoDispCPL: String =
'Software\Microsoft\Windows\CurrentVersion\Policies\'
+'System\NoDispCPL';
DisableCMD: String =
'Software\Policies\Microsoft\Windows\System\DisableCMD';
LanmanServer: String =
'SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters\';
RestrictAnonymous: String =
'SYSTEM\CurrentControlSet\Control\Lsa\RestrictAnonymous';
NoViewContextMenu: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoViewContextMenu';
NoFileMenu: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoFileMenu';
NoShellSearchButton: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoShellSearchButton';
NoSetTaskbar: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoSetTaskbar';
NoChangeStartMenu: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoChangeStartMenu';
NoFind: String = 'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoFind';
NoRun: String = 'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoRun';
NoSMHelp: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoSMHelp';
NoRecentDocsMenu: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoRecentDocsMenu';
NoTrayContextMenu: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\Explorer\NoTrayContextMenu';
PaintDesktopVersion: String = 'Control Panel\Desktop\PaintDesktopVersion';
NoDesktop: String =
'Software\Microsoft\Windows\CurrentVersion\Policies\'
+'Explorer\NoDesktop';
NoActiveDesktop: String =
'Software\Microsoft\Windows\CurrentVersion\Policies\'
+'Explorer\NoActiveDesktop';
NoDispBackgroundPage: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\System\NoDispBackgroundPage';
NoDispScrSavPage: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\System\NoDispScrSavPage';
NoDispSettingsPage: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\System\NoDispSettingsPage';
NoDispAppearancePage: String =
'Software\Microsoft\Windows\CurrentVersion\'
+'Policies\System\NoDispAppearancePage';
Wallpaper: String = 'Control Panel\Desktop\Wallpaper';
TileWallpaper: String = 'Control Panel\Desktop\TileWallpaper';
procedure IncEdit1; stdcall;
procedure IncEdit2; stdcall;
procedure IncEdit3; stdcall;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
PageControl2: TPageControl;
TabSheet6: TTabSheet;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
TabSheet7: TTabSheet;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
CheckBox17: TCheckBox;
CheckBox18: TCheckBox;
CheckBox19: TCheckBox;
TabSheet9: TTabSheet; продолжение
--PAGE_BREAK--
CheckBox20: TCheckBox;
CheckBox23: TCheckBox;
CheckBox24: TCheckBox;
CheckBox25: TCheckBox;
CheckBox26: TCheckBox;
CheckBox28: TCheckBox;
TabSheet10: TTabSheet;
CheckBox29: TCheckBox;
CheckBox30: TCheckBox;
CheckBox31: TCheckBox;
TabSheet11: TTabSheet;
CheckBox32: TCheckBox;
CheckBox33: TCheckBox;
CheckBox34: TCheckBox;
CheckBox35: TCheckBox;
CheckBox36: TCheckBox;
TabSheet3: TTabSheet;
PageControl4: TPageControl;
TabSheet14: TTabSheet;
TabSheet16: TTabSheet;
TabSheet17: TTabSheet;
TabSheet4: TTabSheet;
CheckBox37: TCheckBox;
CheckBox38: TCheckBox;
CheckBox39: TCheckBox;
CheckBox40: TCheckBox;
CheckBox41: TCheckBox;
CheckBox42: TCheckBox;
CheckBox43: TCheckBox;
ComboBox2: TComboBox;
CheckBox46: TCheckBox;
CheckBox22: TCheckBox;
ComboBox1: TComboBox;
CheckBox47: TCheckBox;
CheckBox48: TCheckBox;
CheckBox49: TCheckBox;
CheckBox55: TCheckBox;
CheckBox54: TCheckBox;
CheckBox53: TCheckBox;
CheckBox52: TCheckBox;
CheckBox51: TCheckBox;
CheckBox50: TCheckBox;
CheckBox56: TCheckBox;
CheckBox57: TCheckBox;
CheckBox58: TCheckBox;
CheckBox59: TCheckBox;
CheckBox60: TCheckBox;
CheckBox61: TCheckBox;
CheckBox62: TCheckBox;
CheckBox63: TCheckBox;
CheckBox21: TCheckBox;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Bevel7: TBevel;
Bevel8: TBevel;
Bevel9: TBevel;
Label11: TLabel;
Label10: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Bevel10: TBevel;
Bevel11: TBevel;
Bevel12: TBevel;
Bevel13: TBevel;
Bevel14: TBevel;
Bevel15: TBevel;
Bevel16: TBevel;
Bevel17: TBevel;
Panel1: TPanel;
Image10: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenPictureDialog1: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure CheckBox33Click(Sender: TObject);
procedure CheckBox21Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
th1,th2,th3: Cardinal;
h1,h2,h3: Integer;
fstart: Boolean;
end;
procedure Execute1;
procedure Execute2;
procedure Execute3;
var
Form1: TForm1;
implementation
uses MiniReg; продолжение
--PAGE_BREAK--
{$R *.dfm}
procedure Execute1;
var f: Boolean; d,d1,d2: DWORD; s,s1,s2: String; a1,a0: array of Byte;
begin
SetLength(a1,1); SetLength(a0,1); a1[0] := 1; a0[0] := 0;
while true do begin
f := (Form1.PageControl1.ActivePageIndex 0);
if f or(Form1.PageControl2.ActivePageIndex0)
or Form1.fstart then begin
RegGetDWORD(HKEY_LOCAL_MACHINE,
ClearPageFileAtShutdown, d);
Form1.CheckBox1.Checked := (d > 0); d := 0;
RegGetString(HKEY_LOCAL_MACHINE,
DebugDrWatsonAuto, s);
Form1.CheckBox2.Checked := (s '') and (s = '0');
RegGetDWORD(HKEY_LOCAL_MACHINE,
AlwaysUnloadDLL, d);
Form1.CheckBox3.Checked := (d > 0); d := 0;
RegGetDWORD(HKEY_CURRENT_USER,
NoInstrumentation, d);
Form1.CheckBox4.Checked := (d > 0); d := 0;
RegGetString(HKEY_LOCAL_MACHINE,
DefaultSeparateVDM, s);
Form1.CheckBox5.Checked := (s = 'yes');
RegGetDWORD(HKEY_LOCAL_MACHINE, DoReport,
d1);
RegGetDWORD(HKEY_LOCAL_MACHINE, ShowUI, d2);
Form1.CheckBox6.Checked := (d1 = 0) or (d2 = 0);
RegGetString(HKEY_LOCAL_MACHINE,
BootOptimizeFunction, s);
Form1.CheckBox8.Checked := (s '')and(s = 'Y');
RegGetDWORD(HKEY_CURRENT_USER,
ConsoleQuickEdit, d);
Form1.CheckBox9.Checked := (d > 0); d := 0;
end
else begin
if Form1.CheckBox1.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
ClearPageFileAtShutdown, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
ClearPageFileAtShutdown, 0);
if Form1.CheckBox2.Checked then
RegSetString(HKEY_LOCAL_MACHINE,
DebugDrWatsonAuto, '0')
else RegSetString(HKEY_LOCAL_MACHINE,
DebugDrWatsonAuto, '1');
if Form1.CheckBox3.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
AlwaysUnloadDLL, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
AlwaysUnloadDLL, 0);
if Form1.CheckBox4.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoInstrumentation, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoInstrumentation, 0);
if Form1.CheckBox5.Checked then
RegSetString(HKEY_LOCAL_MACHINE,
DefaultSeparateVDM, 'yes')
else RegSetString(HKEY_LOCAL_MACHINE,
DefaultSeparateVDM, 'no');
if Form1.CheckBox6.Checked then begin
RegSetDWORD(HKEY_LOCAL_MACHINE, DoReport,
0);
RegSetDWORD(HKEY_LOCAL_MACHINE, ShowUI, 0);
end
else begin
RegSetDWORD(HKEY_LOCAL_MACHINE, DoReport,
1)
RegSetDWORD(HKEY_LOCAL_MACHINE, ShowUI, 1); end;
if Form1.CheckBox8.Checked then
RegSetString(HKEY_LOCAL_MACHINE,
BootOptimizeFunction, 'Y')
else RegSetString(HKEY_LOCAL_MACHINE,
BootOptimizeFunction, 'N');
if Form1.CheckBox9.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
ConsoleQuickEdit, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
ConsoleQuickEdit, 0);
end;
if f or(Form1.PageControl2.ActivePageIndex1)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
NoLowDiskSpaceChecks, d);
Form1.CheckBox12.Checked := (d > 0);
RegGetString(HKEY_CURRENT_USER, MinAnimate, s);
Form1.CheckBox13.Checked := (s '') and (s = '1');
RegGetDWORD(HKEY_CURRENT_USER,
SeparateProcess, d);
Form1.CheckBox14.Checked := (d > 0);
RegGetDWORD(HKEY_LOCAL_MACHINE,
AutoRestartShell, d);
Form1.CheckBox15.Checked := (d > 0);
RegGetBinary(HKEY_CURRENT_USER, LinkImg, s);
Form1.CheckBox17.Checked := (ord(s[1]) = 0); s := '';
RegGetBinary(HKEY_CURRENT_USER, NoSaveSettings,
s);
Form1.CheckBox18.Checked := (s '') and (s = '0'); s := '';
RegGetString(HKEY_CURRENT_USER, DragFullWindows,
s);
Form1.CheckBox19.Checked := (s '') and (s = '1');
end
else begin
if Form1.CheckBox12.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoLowDiskSpaceChecks, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoLowDiskSpaceChecks, 0);
if Form1.CheckBox13.Checked then
RegSetString(HKEY_CURRENT_USER, MinAnimate, '1')
else RegSetString(HKEY_CURRENT_USER, MinAnimate, продолжение
--PAGE_BREAK--
'0');
if Form1.CheckBox14.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
SeparateProcess, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
SeparateProcess, 0);
if Form1.CheckBox15.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
AutoRestartShell, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
AutoRestartShell, 0);
if Form1.CheckBox17.Checked then
RegSetBinary(HKEY_CURRENT_USER, LinkImg, a0)
else RegSetBinary(HKEY_CURRENT_USER, LinkImg, a1);
if Form1.CheckBox18.Checked then
RegSetBinary(HKEY_CURRENT_USER,
NoSaveSettings, a1)
else RegSetBinary(HKEY_CURRENT_USER,
NoSaveSettings, a0);
if Form1.CheckBox19.Checked then
RegSetString(HKEY_CURRENT_USER,
DragFullWindows, '1')
else RegSetString(HKEY_CURRENT_USER,
DragFullWindows, '0');
end;
if f or(Form1.PageControl2.ActivePageIndex2)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
EnableBalloonTips, d);
Form1.CheckBox22.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
TaskbarGlomming, d);
Form1.CheckBox21.Checked := (d > 0);
Form1.ComboBox1.Enabled := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
TaskbarGroupSize, d);
Form1.ComboBox1.ItemIndex := Integer(d);
RegGetDWORD(HKEY_CURRENT_USER,
NoRecentDocsHistory, d);
Form1.CheckBox20.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
Start_AutoCascade, d);
Form1.CheckBox23.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoCommonGroups, d);
Form1.CheckBox24.Checked := (d > 0);
RegGetString(HKEY_CURRENT_USER,
StartMenuScrollPrograms, s);
Form1.CheckBox25.Checked := (s '') and (s = 'YES');
RegGetDWORD(HKEY_CURRENT_USER, IntelliMenus,
d);
Form1.CheckBox26.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
StartMenuChange, d);
Form1.CheckBox28.Checked := (d > 0);
end
else begin
if Form1.CheckBox22.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
EnableBalloonTips, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
EnableBalloonTips, 0);
if Form1.CheckBox21.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
TaskbarGlomming, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
TaskbarGlomming, 0);
RegSetDWORD(HKEY_CURRENT_USER,
TaskbarGroupSize, DWORD(Form1.ComboBox1.ItemIndex));
if Form1.CheckBox20.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoRecentDocsHistory, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoRecentDocsHistory, 0);
if Form1.CheckBox23.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
Start_AutoCascade, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
Start_AutoCascade, 0);
if Form1.CheckBox24.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoCommonGroups, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoCommonGroups, 0);
if Form1.CheckBox25.Checked then
RegSetString(HKEY_CURRENT_USER,
StartMenuScrollPrograms, 'YES')
else RegSetString(HKEY_CURRENT_USER,
StartMenuScrollPrograms, 'NO');
if Form1.CheckBox26.Checked then
RegSetDWORD(HKEY_CURRENT_USER, IntelliMenus, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
IntelliMenus, 0);
if Form1.CheckBox28.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
StartMenuChange, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
StartMenuChange, 0);
end;
if f or(Form1.PageControl2.ActivePageIndex3)
or Form1.fstart then begin
RegGetString(HKEY_LOCAL_MACHINE,
CodePage+'1250', s1);
RegGetString(HKEY_LOCAL_MACHINE,
CodePage+'1252', s2);
Form1.CheckBox29.Checked := (s1 = 'c_1251.nls')
and (s2 = 'c_1251.nls');
RegGetString(HKEY_LOCAL_MACHINE, DosKeybCodes,
s);
Form1.CheckBox30.Checked := (s = 'ru');
RegGetString(HKEY_CURRENT_USER, AutoEndTasks, s);
Form1.CheckBox31.Checked := (s '') and (s = '1');
RegGetDWORD(HKEY_LOCAL_MACHINE, AutoRunCD, продолжение
--PAGE_BREAK--
d);
Form1.CheckBox37.Checked := (d = 0);
end
else begin
if Form1.CheckBox29.Checked then begin
RegSetString(HKEY_LOCAL_MACHINE,
CodePage+'1250', 'c_1251.nls');
RegSetString(HKEY_LOCAL_MACHINE,
CodePage+'1252', 'c_1251.nls'); end
else begin
RegSetString(HKEY_LOCAL_MACHINE,
CodePage+'1250', 'c_1250.nls');
RegSetString(HKEY_LOCAL_MACHINE,
CodePage+'1252', 'c_1252.nls'); end;
if Form1.CheckBox30.Checked then
RegSetString(HKEY_LOCAL_MACHINE,
DosKeybCodes, 'ru')
else RegSetString(HKEY_LOCAL_MACHINE,
DosKeybCodes, 'us');
if Form1.CheckBox31.Checked then
RegSetString(HKEY_CURRENT_USER, AutoEndTasks,
'1')
else RegSetString(HKEY_CURRENT_USER,
AutoEndTasks, '0');
if Form1.CheckBox37.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
AutoRunCD, 0)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
AutoRunCD, 1);
end;
if f or(Form1.PageControl2.ActivePageIndex4)
or Form1.fstart then begin
RegGetDWORD(HKEY_LOCAL_MACHINE,
DontDisplayLastUserName, d);
Form1.CheckBox32.Checked := (d > 0);
RegGetDWORD(HKEY_LOCAL_MACHINE,
DisableStatusMessages, d);
Form1.CheckBox33.Checked := (d > 0);
Form1.CheckBox34.Enabled := (d = 0);
RegGetDWORD(HKEY_LOCAL_MACHINE,
VerboseStatus, d);
Form1.CheckBox34.Checked := (d > 0);
RegGetString(HKEY_USERS, Hotkey, s);
Form1.CheckBox35.Checked := (s '') and (s = '2'); s := '';
RegGetString(HKEY_USERS, InitialKeyboardIndicators, s);
Form1.CheckBox36.Checked := (s '') and (s = '2');
end
else begin
if Form1.CheckBox32.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
DontDisplayLastUserName, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
DontDisplayLastUserName, 0);
if Form1.CheckBox33.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
DisableStatusMessages, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
DisableStatusMessages, 0);
if Form1.CheckBox34.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
VerboseStatus, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
VerboseStatus, 0);
if Form1.CheckBox35.Checked then
RegSetString(HKEY_USERS, Hotkey, '2')
else RegSetString(HKEY_USERS, Hotkey, '1');
if Form1.CheckBox36.Checked then
RegSetString(HKEY_USERS, InitialKeyboardIndicators, '2')
else RegSetString(HKEY_USERS, InitialKeyboardIndicators,
'0');
end;
Sleep(1000);
end;
end;
procedure Execute2;
var f: Boolean; d,d1,d2: DWORD; s: String;
begin
while true do begin
f := (Form1.PageControl1.ActivePageIndex 1);
if f or(Form1.PageControl4.ActivePageIndex0)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
DisableTaskMgr, d);
Form1.CheckBox38.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
DisableRegistryTools, d);
Form1.CheckBox39.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoLogOff, d);
Form1.CheckBox40.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoClose, d);
Form1.CheckBox41.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoControlPanel, d);
Form1.CheckBox42.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoDispCPL, d);
Form1.CheckBox43.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, DisableCMD,
d);
Form1.ComboBox2.ItemIndex := Integer(d); d1 := 5; d2 := 5;
RegGetDWORD(HKEY_LOCAL_MACHINE,
RestrictAnonymous, d);
Form1.CheckBox46.Checked := (d > 0);
end
else begin
if Form1.CheckBox38.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
DisableTaskMgr, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
DisableTaskMgr, 0);
if Form1.CheckBox39.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
DisableRegistryTools, 1)
else RegSetDWORD(HKEY_CURRENT_USER, продолжение
--PAGE_BREAK--
DisableRegistryTools, 0);
if Form1.CheckBox40.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoLogOff, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoLogOff,
0);
if Form1.CheckBox41.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoClose, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoClose,
0);
if Form1.CheckBox42.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoControlPanel, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoControlPanel, 0);
if Form1.CheckBox43.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispCPL, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispCPL, 0);
RegSetDWORD(HKEY_CURRENT_USER, DisableCMD,
DWORD(Form1.ComboBox2.ItemIndex));
if Form1.CheckBox46.Checked then
RegSetDWORD(HKEY_LOCAL_MACHINE,
RestrictAnonymous, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
RestrictAnonymous, 0);
end;
if f or(Form1.PageControl4.ActivePageIndex1)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
NoViewContextMenu, d);
Form1.CheckBox47.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoFileMenu,
d);
Form1.CheckBox48.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoShellSearchButton, d);
Form1.CheckBox49.Checked := (d > 0);
end
else begin
if Form1.CheckBox47.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoViewContextMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoViewContextMenu, 0);
if Form1.CheckBox48.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoFileMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoFileMenu, 0);
if Form1.CheckBox49.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoShellSearchButton, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoShellSearchButton, 0);
end;
if f or(Form1.PageControl4.ActivePageIndex2)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER, NoSetTaskbar,
d);
Form1.CheckBox50.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoChangeStartMenu, d);
Form1.CheckBox51.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoFind, d);
Form1.CheckBox52.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoRun, d);
Form1.CheckBox53.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoSMHelp, d);
Form1.CheckBox54.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoRecentDocsMenu, d);
Form1.CheckBox55.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoTrayContextMenu, d);
Form1.CheckBox56.Checked := (d > 0);
end
else begin
if Form1.CheckBox50.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoSetTaskbar, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoSetTaskbar, 0);
if Form1.CheckBox51.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoChangeStartMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoChangeStartMenu, 0);
if Form1.CheckBox52.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoFind, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoFind, 0);
if Form1.CheckBox53.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoRun, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoRun, 0);
if Form1.CheckBox54.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoSMHelp, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoSMHelp, 0);
if Form1.CheckBox55.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoRecentDocsMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoRecentDocsMenu, 0);
if Form1.CheckBox56.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoTrayContextMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoTrayContextMenu, 0);
end;
Sleep(1000);
end;
end;
procedure Execute3;
var f: Boolean; d,d1,d2: DWORD; s,s1,s2: String; продолжение
--PAGE_BREAK--
begin
while true do begin
if (Form1.PageControl1.ActivePageIndex2)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
PaintDesktopVersion, d);
Form1.CheckBox57.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoDesktop, d);
Form1.CheckBox58.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoActiveDesktop, d);
Form1.CheckBox59.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispBackgroundPage, d);
Form1.CheckBox60.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispScrSavPage, d);
Form1.CheckBox61.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispSettingsPage, d);
Form1.CheckBox62.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispAppearancePage, d);
Form1.CheckBox63.Checked := (d > 0);
end
else begin
if Form1.CheckBox57.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
PaintDesktopVersion, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
PaintDesktopVersion, 0);
if Form1.CheckBox58.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoDesktop, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDesktop, 0);
if Form1.CheckBox59.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoActiveDesktop, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoActiveDesktop, 0);
if Form1.CheckBox60.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispBackgroundPage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispBackgroundPage, 0);
if Form1.CheckBox61.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispScrSavPage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispScrSavPage, 0);
if Form1.CheckBox62.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispSettingsPage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispSettingsPage, 0);
if Form1.CheckBox63.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispAppearancePage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispAppearancePage, 0);
end;
Sleep(1000);
end;
end;
procedure IncEdit1; begin Execute1; end;
procedure IncEdit2; begin Execute2; end;
procedure IncEdit3; begin Execute3; end;
procedure TForm1.CheckBox33Click(Sender: TObject);
begin CheckBox34.Enabled := not CheckBox33.Checked; end;
procedure TForm1.CheckBox21Click(Sender: TObject);
begin ComboBox1.Enabled := CheckBox21.Checked; end;
procedure TForm1.FormShow(Sender: TObject);
begin
fstart := true;
Form1.PageControl1.ActivePageIndex := 2;
Form1.PageControl2.ActivePageIndex := 4;
h1 := BeginThread(nil, 1024, @incedit1, nil, 1, th1);
h2 := BeginThread(nil, 1024, @incedit2, nil, 2, th2);
h3 := BeginThread(nil, 1024, @incedit3, nil, 3, th3);
Form1.PageControl2.ActivePageIndex := 0;
Form1.PageControl1.ActivePageIndex := 0;
Sleep(1000);
Button3Click(Sender);
fstart := false;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TerminateThread(h1, 0);
TerminateThread(h2, 0);
TerminateThread(h3, 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
var s: String;
begin
if OpenPictureDialog1.Execute then begin
s := OpenPictureDialog1.FileName;
RegSetString(HKEY_CURRENT_USER, Wallpaper, s);
RegSetString(HKEY_CURRENT_USER, TileWallpaper, '0');
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil,
SPIF_SENDWININICHANGE);
Screen.Realign;
Button3Click(Sender);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var s: String;
begin
RegGetString(HKEY_CURRENT_USER, Wallpaper, s);
if FileExists(s) then
Image10.Picture.LoadFromFile(s);
end;
procedure TForm1.Button1Click(Sender: TObject); продолжение
--PAGE_BREAK--
begin
if Image10.Picture.GetNamePath'' then
if SavePictureDialog1.Execute then
Image10.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
end.