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. Заголовок: procedureExecute1;

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;

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;

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

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

3.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\';

RestrictA