завершает поток с указанным 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:

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

Value: String): boolean;

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

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

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

1. Функция RegSetMultiString:

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

Value: String): boolean;

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

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

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

1. Функция RegSetDWORD:

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

Value: Cardinal): boolean;

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

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

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

1. Функция RegSetBinary:

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

Value: Cardinal): boolean;

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

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

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

1. Функция RegSetBinary:

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

Value: Array of Byte): boolean;

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

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

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

1. Функция RegGetString:

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

var Value: Cardinal): boolean;

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

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

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

1. Функция RegGetMultiString:

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

var Value: Cardinal): boolean;

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

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

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

1. Функция RegGetDWORD:

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

var Value: Cardinal): boolean;

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

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

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

1. Функция RegGetBinary:

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

var Value: String): boolean;

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

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

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

1. Функция RegGetValueType:

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

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

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

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

2. Функция :

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

Value: Cardinal): boolean;

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

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

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

1. Функция RegKeyExists:

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

boolean;

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

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

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

1. Функция RegDelValue:

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

boolean;

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

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

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

1. Функция RegAddKey:

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

boolean;

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

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

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

1. Функция RegDelKey:

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

boolean;

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

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

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

1. Функция RegConnect:

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

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

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

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

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

1. Функция RegDisconnect:

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

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

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

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

2. Функция RegEnumKeys:

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

var KeyList: String): boolean;

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

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

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

1. Функция RegEnumValues:

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

var ValueList: String): boolean;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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;