|
|
| Настройка Windows по средствам системного реестра |
|
evel10: 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);privateth1,th2,th3: Cardinal;h1,h2,h3: Integer;fstart: Boolean;end; procedure Execute1;procedure Execute2;procedure Execute3;varForm1: TForm1;implementationuses 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 beginf := (Form1.PageControl1.ActivePageIndex <> 0);if f or(Form1.PageControl2.ActivePageIndex<>0)or Form1.fstart then beginRegGetDWORD(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;endelse beginif Form1.CheckBox1.Checked thenRegSetDWORD(HKEY_LOCAL_MACHINE,ClearPageFileAtShutdown, 1)else RegSetDWORD(HKEY_LOCAL_MACHINE,ClearPageFileAtShutdown, 0);if Form1.CheckBox2.Checked thenRegSetString(HKEY_LOCAL_MACHINE,DebugDrWatsonAuto, '0')else RegSetString(HKEY_LOCAL_MACHINE,DebugDrWatsonAuto, '1');if Form1.CheckBox3.Checked thenRegSetDWORD(HKEY_LOCAL_MACHINE,AlwaysUnloadDLL, 1)else RegSetDWORD(HKEY_LOCAL_MACHINE,AlwaysUnloadDLL, 0);if Form1.CheckBox4.Checked thenRegSetDWORD(HKEY_CURRENT_USER,NoInstrumentation, 1)else RegSetDWORD(HKEY_CURRENT_USER,NoInstrumentation, 0);if Form1.CheckBox5.Checked thenRegSetString(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 thenRegSetString(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');endelse beginif Form1.CheckBox12.Checked thenRegSetDWORD(HKEY_CURRENT_USER,NoLowDiskSpaceChecks, 1)else RegSetDWORD(HKEY_CURRENT_USER,NoLowDiskSpaceChecks, 0);if Form1.CheckBox13.Checked thenRegSetString(HKEY_CURRENT_USER, MinAnimate, '1')else RegSetString(HKEY_CURRENT_USER, MinAnimate, '0'); if Form1.CheckBox14.Checked thenRegSetDWORD(HKEY_CURRENT_USER,SeparateProcess, 1)else RegSetDWORD(HKEY_CURRENT_USER,SeparateProcess, 0);if Form1.CheckBox15.Checked thenRegSetDWORD(HKEY_LOCAL_MACHINE,AutoRestartShell, 1)else RegSetDWORD(HKEY_LOCAL_MACHINE,AutoRestartShell, 0);if Form1.CheckBox17.Checked thenRegSetBinary(HKEY_CURRENT_USER, LinkImg, a0)else RegSetBinary(HKEY_CURRENT_USER, LinkImg, a1); if Form1.CheckBox18.Checked thenRegSetBinary(HKEY_CURRENT_USER,NoSaveSettings, a1)else RegSetBinary(HKEY_CURRENT_USER,NoSaveSettings, a0);if Form1.CheckBox19.Checked thenRegSetString(HKEY_CURRENT_USER,DragFullWindows, '1')else RegSetString(HKEY_CURRENT_USER,DragFullWindows, '0');end;if f or(Form1.PageControl2.ActivePageIndex<>2) or Form1.fstart then beginRegGetDWORD(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);endelse beginif Form1.CheckBox22.Checked then RegSetDWORD(HKEY_CURRENT_USER,EnableBalloonTips, 1)else RegSetDWORD(HKEY_CURRENT_USER,EnableBalloonTips, 0);if Form1.CheckBox21.Checked thenRegSetDWORD(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 thenRegSetDWORD(HKEY_CURRENT_USER,NoRecentDocsHistory, 1)else RegSetDWORD(HKEY_CURRENT_USER,NoRecentDocsHistory, 0);if Form1.CheckBox23.Checked thenRegSetDWORD(HKEY_CURRENT_USER,Start_AutoCascade, 1)else RegSetDWORD(HKEY_CURRENT_USER,Start_AutoCascade, 0);if Form1.CheckBox24.Checked thenRegSetDWORD(HKEY_CURRENT_USER,NoCommonGroups, 1)else RegSetDWORD(HKEY_CURRENT_USER,NoCommonGroups, 0);if Form1.CheckBox25.Checked thenRegSetString(HKEY_CURRENT_USER,StartMenuScrollPrograms, 'YES') else RegSetString(HKEY_CURRENT_USER,StartMenuScrollPrograms, 'NO');if Form1.CheckBox26.Checked thenRegSetDWORD(HKEY_CURRENT_USER, IntelliMenus, 1)else RegSetDWORD(HKEY_CURRENT_USER,IntelliMenus, 0);if Form1.CheckBox28.Checked thenRegSetDWORD(HKEY_CURRENT_USER,StartMenuChange, 1)else RegSetDWORD(HKEY_CURRENT_USER,StartMenuChange, 0); end;if f or(Form1.PageControl2.ActivePageIndex<>3)or Form1.fstart then beginRegGetString(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);endelse beginif Form1.CheckBox29.Checked then beginRegSetString(HKEY_LOCAL_MACHINE,CodePage+'1250', 'c_1251.nls');RegSetString(HKEY_LOCAL_MACHINE,CodePage+'1252', 'c_1251.nls'); endelse beginRegSetString(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 thenRegSetDWORD(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'); endelse beginif Form1.CheckBox32.Checked thenRegSetDWORD(HKEY_LOCAL_MACHINE,DontDisplayLastUserName, 1)else RegSetDWORD(HKEY_LOCAL_MACHINE,DontDisplayLastUserName, 0);if Form1.CheckBox33.Checked thenRegSetDWORD(HKEY_LOCAL_MACHINE,DisableStatusMessages, 1)else RegSetDWORD(HKEY_LOCAL_MACHINE,DisableStatusMessages, 0);if Form1.CheckBox34.Checked thenRegSetDWORD(HKEY_LOCAL_MACHINE,VerboseStatus, 1) else RegSetDWORD(HKEY_LOCAL_MACHINE,VerboseStatus, 0);if Form1.CheckBox35.Checked thenRegSetString(HKEY_USERS, Hotkey, '2')else RegSetString(HKEY_USERS, Hotkey, '1');if Form1.CheckBox36.Checked thenRegSetString(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;beginwhile true do beginf := (Form1.PageControl1.ActivePageIndex <> 1);if f or(Form1.PageControl4.ActivePageIndex<>0)or Form1.fstart then beginRegGetDWORD(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); endelse beginif Form1.CheckBox38.Checked thenRegSetDWORD(HKEY_CURRENT_USER,DisableTaskMgr, 1)else RegSetDWORD(HKEY_CURRENT_USER,DisableTaskMgr, 0);if Form1.CheckBox39.Checked thenRegSetDWORD(HKEY_CURRENT_USER,DisableRegistryTools, 1)else RegSetDWORD(HKEY_CURRENT_USER,DisableRegistryTools, 0);if Form1.CheckBox40.Checked thenRegSetDWORD(HKEY_CURRENT_USER, NoLogOff, 1) else RegSetDWORD(HKEY_CURRENT_USER, NoLogOff,0);if Form1.CheckBox41.Checked thenRegSetDWORD(HKEY_CURRENT_USER, NoClose, 1)else RegSetDWORD(HKEY_CURRENT_USER, NoClose, 0); if Form1.CheckBox42.Checked thenRegSetDWORD(HKEY_CURRENT_USER,NoControlPanel, 1)else RegSetDWORD(HKEY_CURRENT_USER,NoControlPanel, 0);if Form1.CheckBox43.Checked thenRegSetDWORD(HKEY_CURRENT_USER,NoDispCPL, 1)else RegSetDWORD(HKEY_CURRENT_USER,NoDispCPL, 0);RegSetDWORD(HKEY_CURRENT_USER, DisableCMD,DWORD(Form1.ComboBox2.ItemIndex));if Form1.CheckBox46.Checked thenRegSetDWORD(HKEY_LOCAL_MACHINE,RestrictAnonymous, 1)else RegSetDWORD(HKEY_LOCAL_MACHINE,RestrictAnonymous, 0);end;if f or(Form1.PageControl4.ActivePageIndex<>1)or Form1.fstart then beginRegGetDWORD(HKEY_CURRENT_USER,NoViewContextMenu, d);Form1.CheckBox47.Checked := (d > 0);RegGetDWORD(HKEY_CURRENT_USER, NoFileMenu,d);Form1.CheckBox48.Checked := (d > 0);RegGetDWORD(HKEY_CURRENT_USER,NoShellSearchButton, d);Form1.CheckBox49.Checked := (d > 0);endelse beginif Form1.CheckBox47.Checked thenRegSetDWORD(HKEY_CURRENT_USER,NoViewContextMenu, 1)else RegSetDWORD(HKEY_CURRENT_USER,NoViewContextMenu, 0);if Form1.CheckBox48.Checked thenRegSetDWORD(HKEY_CURRENT_USER,NoFileMenu, 1)
Страницы: 1, 2, 3, 4, 5
|
|
|
|
© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент. |
|
|
