2.1 Описание структуры программы

2.1.1 Диаграмма взаимодействия модулей

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

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

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;

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;

{$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.ActivePageIndex<>0)

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.ActivePageIndex<>1)

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,

'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.ActivePageIndex<>2)

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.ActivePageIndex<>3)

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,

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.ActivePageIndex<>4)

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.ActivePageIndex<>0)

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