Введение
Данный курсовой проект рассказывает о возможностях настройки, одной из наиболее распространенных, на сегодняшний день, операционных систем 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 не завершится ошибкой.

Возвращает текстовую строку, связанную с ключом 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

1. Функция RegSetString:

a. Заголовок: function RegSetString(RootKey: HKEY; Name: String;

Value: String): boolean;

b. Назначение: Установка ключа Name ветви корня RootKey текстового значения Value и возврат true, в случае успеха.

c. Входные параметры: RootKey, Name, Value

d. Выходные параметры: -

2. Функция RegSetMultiString:

a. Заголовок: function RegSetMultiString (RootKey: HKEY; Name: String;

Value: String): boolean;

b. Назначение: Установка ключа Name ветви корня RootKey текстового значения Value из нескольких строк, и возврат true, в случае успеха.

c. Входные параметры: RootKey, Name, Value

d. Выходные параметры: -

3. Функция RegSetDWORD:

a. Заголовок: function RegSetDWORD(RootKey: HKEY; Name: String;

Value: Cardinal): boolean;

b. Назначение: Установка ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успеха.

c. Входные параметры: RootKey, Name, Value

d. Выходные параметры: -

4. Функция RegSetBinary:

a. Заголовок: function RegSetDWORD(RootKey: HKEY; Name: String;

Value: Cardinal): boolean;

b. Назначение: Установка ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успеха.

c. Входные параметры: RootKey, Name, Value

d. Выходные параметры: -

5. Функция RegSetBinary:

a. Заголовок: function RegSetBinary (RootKey: HKEY; Name: String;

Value: Array of Byte): boolean;

b. Назначение: Установка ключа Name ветви корня RootKey бинарного значения Value, и возврат true, в случае успеха.

c. Входные параметры: RootKey, Name, Value

d. Выходные параметры: -

6. Функция RegGetString:

a. Заголовок: function RegGetString (RootKey: HKEY; Name: String;

var Value: Cardinal): boolean;

b. Назначение: Получение ключа Name ветви корня RootKey текстового значения Value, и возврат true, в случае успешного получения данных.

c. Входные параметры: RootKey, Name

d. Выходные параметры: Value

7. Функция RegGetMultiString:

a. Заголовок: function RegGetMultiString (RootKey: HKEY; Name: String;

var Value: Cardinal): boolean;

b. Назначение: Получения ключа Name ветви корня RootKey много строкового значения Value, и возврат true, в случае успешного получения данных.

c. Входные параметры: RootKey, Name

d. Выходные параметры: Value

8. Функция RegGetDWORD:

a. Заголовок: function RegGetDWORD (RootKey: HKEY; Name: String;

var Value: Cardinal): boolean;

b. Назначение: Получение ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успешного получения данных.

c. Входные параметры: RootKey, Name

d. Выходные параметры: Value

9. Функция RegGetBinary:

a. Заголовок: function RegGetBinary (RootKey: HKEY; Name: String;

var Value: String): boolean;

b. Назначение: Получение ключа Name ветви корня RootKey бинарного значения Value в строковой форма, и возврат true, в случае успешного получения данных.

c. Входные параметры: RootKey, Name

d. Выходные параметры: Value

10. Функция RegGetValueType:

a. Заголовок: function RegGetValueType (RootKey: HKEY; Name: String; var Value: Cardinal): boolean;

b. Назначение: Получение типа ключа Name ветви корня RootKey в Value, и возврат true, в случае его существования.

c. Входные параметры: RootKey, Name

d. Выходные параметры: Value

11. Функция :

a. Заголовок: function RegSetDWORD(RootKey: HKEY; Name: String;

Value: Cardinal): boolean;

b. Назначение: Установка ключа Name ветви корня RootKey целочисленного значения Value, и возврат true, в случае успеха.

c. Входные параметры: RootKey, Name, Value

d. Выходные параметры: -

12. Функция RegKeyExists:

a. Заголовок: function RegKeyExists (RootKey: HKEY; Name: String):

boolean;

b. Назначение: Проверка сущуствования ключа Name ветви корня RootKey и возврат рузультата.

c. Входные параметры: RootKey, Name

d. Выходные параметры: -

13. Функция RegDelValue:

a. Заголовок: function RegDelValue (RootKey: HKEY; Name: String):

boolean;

b. Назначение: Удаление ключа Name ветви корня RootKey и возврат результата выполнения операции.

c. Входные параметры: RootKey, Name

d. Выходные параметры: -

14. Функция RegAddKey:

a. Заголовок: function RegAddKey (RootKey: HKEY; Name: String):

boolean;

b. Назначение: Создание нового ключа Name ветви корня RootKey и возврат результата выполнения операции.

c. Входные параметры: RootKey, Name

d. Выходные параметры: -

15. Функция RegDelKey:

a. Заголовок: function RegDelKey (RootKey: HKEY; Name: String):

boolean;

b. Назначение: Удаление улюча Name ветви корня RootKey и возврат результата выполнения операции.

c. Входные параметры: RootKey, Name

d. Выходные параметры: -

16. Функция RegConnect:

a. Заголовок: function RegConnect (MachineName: String;

RootKey: HKEY; var RemoteKey: HKEY): boolean;

b. Назначение: Подключение к реестру машины с именем MachineName, и чтение с неё корня RootKey в RemoteKey, с возвратам флага успешного выполнения операции.

c. Входные параметры: MachineName, RootKey

d. Выходные параметры: RemoteKey

17. Функция RegDisconnect:

a. Заголовок: function RegDisconnect(RemoteKey: HKEY): boolean;

b. Назначение: Отключение от удаленного корневого ключа (освобождение удаленного ключа RemoteKey), и возврат флага успешного выполнения операции.

c. Входные параметры: RemoteKey

d. Выходные параметры: -

18. Функция RegEnumKeys:

a. Заголовок: function RegEnumKeys (RootKey: HKEY; Name: String;

var KeyList: String): boolean;

b. Назначение: Получение списка ключей ветви Name корня RootKey в KeyList, и возвращение true при отсутствии ошибок выполнения операции.

c. Входные параметры: RootKey, Name

d. Выходные параметры: KeyList

19. Функция RegEnumValues:

a. Заголовок: function RegEnumValues (RootKey: HKEY; Name: String;

var ValueList: String): boolean;

b. Назначение: Получение списка значений ключей ветви Name корня RootKey в ValueList, и возвращение true при отсутствии ошибок выполнения операции.

c. Входные параметры: RootKey, Name

d. Выходные параметры: ValueList

2.3 Функции основного модуля (Unit1)

1. Процедура Execute1:

a. Заголовок: procedure Execute1;

b. Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки `Система'.

c. Входные параметры: -

d. Выходные параметры: -

2. Процедура Execute2:

a. Заголовок: procedure Execute2;

b. Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки `Защита'.

c. Входные параметры: -

d. Выходные параметры: -

3. Процедура Execute3:

a. Заголовок: procedure Execute3;

b. Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки `Рабочий стол'.

c. Входные параметры: -

d. Выходные параметры: -

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

SubKey := Copy(Name, n + 1, Length(Name) - n);

Result := (RegSetValueEx(hTemp, PChar(SubKey), 0, ValType, PVal, ValSize) = ERROR_SUCCESS);

RegCloseKey(hTemp);

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;

RegCloseKey(hTemp);

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;

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;

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;

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;

function RegGetBinary(RootKey: HKEY; Name: String; Var Value: String): boolean;

var

Buf: Pointer; BufSize: Cardinal;

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;

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;

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;

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;

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;

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;

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

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;

en3.2 Основной модуль программы (Unit1)

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 =

'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';

Страницы: 1, 2