Geum.ru

Настройка Windows по средствам системного реестра

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

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

0);">f := (Form1.PageControl1.ActivePageIndex <> 0);

0)">if f or(Form1.PageControl2.ActivePageIndex<>0)

or Form1.fstart then begin

RegGetDWORD(HKEY_LOCAL_MACHINE,

ClearPageFileAtShutdown, d);

0);d:=0;">Form1.CheckBox1.Checked := (d > 0); d := 0;

RegGetString(HKEY_LOCAL_MACHINE,

DebugDrWatsonAuto, s);

)and(s=0);"> Form1.CheckBox2.Checked := (s <> ) and (s = 0);

RegGetDWORD(HKEY_LOCAL_MACHINE,

AlwaysUnloadDLL, d);

0);d:=0;">Form1.CheckBox3.Checked := (d > 0); d := 0;

RegGetDWORD(HKEY_CURRENT_USER,

NoInstrumentation, d);

0);d:=0;">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);

)and(s=Y);">Form1.CheckBox8.Checked := (s <> )and(s = Y);

RegGetDWORD(HKEY_CURRENT_USER,

ConsoleQuickEdit, d);

0);d:=0;">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;

1)"> if f or(Form1.PageControl2.ActivePageIndex<>1)

or Form1.fstart then begin

RegGetDWORD(HKEY_CURRENT_USER,

NoLowDiskSpaceChecks, d);

0);">Form1.CheckBox12.Checked := (d > 0);

RegGetString(HKEY_CURRENT_USER, MinAnimate, s);

)and(s=1);">Form1.CheckBox13.Checked := (s <> ) and (s = 1);

RegGetDWORD(HKEY_CURRENT_USER,

SeparateProcess, d);

0);">Form1.CheckBox14.Checked := (d > 0);

RegGetDWORD(HKEY_LOCAL_MACHINE,

AutoRestartShell, d);

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

)and(s=0);s:=;"> Form1.CheckBox18.Checked := (s <> ) and (s = 0); s := ;

RegGetString(HKEY_CURRENT_USER, DragFullWindows,

s);

)and(s=1);"> 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;

2)">if f or(Form1.PageControl2.ActivePageIndex<>2)

or Form1.fstart then begin

RegGetDWORD(HKEY_CURRENT_USER,

EnableBalloonTips, d);

0);">Form1.CheckBox22.Checked := (d > 0);

RegGetDWORD(HKEY_CURRENT_USER,

TaskbarGlomming, d);

0);">Form1.CheckBox21.Checked := (d > 0);

0);">Form1.ComboBox1.Enabled := (d > 0);

RegGetDWORD(HKEY_CURRENT_USER,

TaskbarGroupSize, d);

Form1.ComboBox1.ItemIndex := Integer(d);

RegGetDWORD(HKEY_CURRENT_USER,

NoRecentDocsHistory, d);

0);">Form1.CheckBox20.Checked := (d > 0);

RegGetDWORD(HKEY_CURRENT_USER,

Start_AutoCascade, d);

0);"> Form1.CheckBox23.Checked := (d > 0);

RegGetDWORD(HKEY_CURRENT_USER,

NoCommonGroups, d);

0);">Form1.CheckBox24.Checked := (d > 0);

RegGetString(HKEY_CURRENT_USER,

StartMenuScrollPrograms, s);

)and(s=YES);">Form1.CheckBox25.Checked := (s <> ) and (s = YES);

RegGetDWORD(HKEY_CURRENT_USER, IntelliMenus,

d);

0);">Form1.CheckBox26.Checked := (d > 0);

RegGetDWORD(HKEY_CURRENT_USER,

StartMenuChange, d);

0);"> Form1.CheckBox28.Checked := (d > 0);

end

else begin

if Form1.CheckBox22.Checked then

RegSetDWORD(HKEY_CURRENT_USER,

EnableBalloonTips, 1)

else RegSetDWORD(HKEY_C