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) }
Создать потока:
function CreateThread(
lpThreadAttributes: Pointer; // Указательнаатрибутызащитыпотока
dwStackSize: LongWord; // Размер стека, в байтах
lpStartAddress: TThreadFunc; // Указатель на функцию потока
lpParameter: Pointer; // Атрибут для нового потока
dwCreationFlags: LongWord; // Флаги создания
varlpThreadId: LongWord// Указатель на возвращаемый
// идентификатор потока
): Integer;
Создание отдельного потока выполнения:
function BeginThread(
SecurityAttributes: Pointer;// Указательнаатрибутызащитыпотока
StackSize: LongWord; // Размер стека, в байтах
ThreadFunc: TThreadFunc;// Указатель на функцию потока
Parameter: Pointer;// Артибутыпотока
CreationFlags: LongWord;// Флагисоздания
varThreadId: 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х модулях, один из которых базируясь на API-функциях Windows осуществляет взаимодействие с системным реестром, а второй предоставляет информацию пользователю о текущих значениях предопределенных параметров, и заносит сделанные пользователем изменения параметров в системный реестр. Вот как это выглядит:
Вызов функция
Модуль MiniReg не несет функциональной нагрузки, все функции описанные в нем являются лишь надстройками над WinAPI для упрощения их использования. Описание функций модуля можно найти в разделе "Функции модуля MiniReg". Посему следует отметить линейность структуры модуля и его функций, поэтому описание взаимодействия функций в модуле нет (все взаимодействия осуществляются через параметры), поэтому структуру модуля я не привожу.
Модуль Unit1 является модулем главной (и единственной) формы приложения. Тем не менее все элементы относящиеся к форме не несут функциональной нагрузки, относящейся к решения поставленной задачи и лишь выполняют вспомогательные функции (например: выбор изображения для установки его в качестве фонового, или сохранение текущего фонового изображения в произвольном графическом файле). Все функции возложены на три потока, соответствующих трем основным вкладкам. В функции потоков входит чтение параметров реестра когда вкладка на не неактивных подчиненных вкладках и запись параметров активной вкладки. При этом используется та особенность API-функций Windows, что параметры считанные несколько раз из реестра не удаляются из памяти, а некоторое время остаются в ней, что позволяет не беспокоиться о быстродействии потоков постоянно следящих за изменениями параметров реестра. Кроме этого, тот факт что потоки постоянно записывают значения параметров активной вкладки в реестр, тоже не должен никого смущать, т.к. параметры совпадающие со значениями в реестре не записываются в него повторно, благодаря тому что они сравниваются с теми что хранятся в памяти и только в том случае если не равны им записываются в реестр физически. Память же обновляется при изменении соответствующих параметров реестра автоматически.
Ниже приведена диаграмма использования потоками модуля Unit1 функций модуля 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;
varValue: 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
1. Процедура Execute1:
a. Заголовок: procedureExecute1;
b. Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки ‘Система’.
c. Входные параметры: -
d. Выходные параметры: -
2. Процедура Execute2:
a. Заголовок: procedure Execute2;
b. Назначение: Функция получает\записывает параметры из реестра и заносит\считывает значений соответствующих флагов вкладки ‘Защита’.