Настройка Windows по средствам системного реестра
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
URRENT_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;
3)">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);
)and(s=1);"> 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;
4)"> if f or(Form1.PageControl2.ActivePageIndex<>4)
or Form1.fstart then begin
RegGetDWORD(HKEY_LOCAL_MACHINE,
DontDisplayLastUserName, d);
0);"> Form1.CheckBox32.Checked := (d > 0);
RegGetDWORD(HKEY_LOCAL_MACHINE,
DisableStatusMessages, d);
0);"> Form1.CheckBox33.Checked := (d > 0);
Form1.CheckBox34.Enabled := (d = 0);
RegGetDWORD(HKEY_LOCAL_MACHINE,
VerboseStatus, d);
0);"> Form1.CheckBox34.Checked := (d > 0);
RegGetString(HKEY_USERS, Hotkey, s);
)and(s=2);s:=;">Form1.CheckBox35.Checked := (s <> ) and (s = 2); s := ;
RegGetString(HKEY_USERS, InitialKeyboardIndicators, s);
)and(s=2);">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
1);">f := (Form1.PageControl1.ActivePageIndex <> 1);
0)">if f or(Form1.PageControl4.ActivePageIndex<>0)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
DisableTaskMgr, d);
0);">Form1.CheckBox38.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
DisableRegistryTools, d);
0);">Form1.CheckBox39.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoLogOff, d);
0);">Form1.CheckBox40.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoClose, d);
0);"> Form1.CheckBox41.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoControlPanel, d);
0);">Form1.CheckBox42.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoDispCPL, d);
0);">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);
0);"> Form1.CheckBox46.Checked := (d > 0);
end
else begin
if Form1.CheckBox38.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
DisableTaskMgr, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
DisableTaskMgr, 0);
if Form1.CheckBox39.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
DisableRegistryTools, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
DisableRegistryTools, 0);
if Form1.CheckBox40.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoLogOff, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoLogOff,
0);
if Form1.CheckBox41.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoClose, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoClose,
0);
if Form1.CheckBox42.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoControlPanel, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoControlPanel, 0);
if Form1.CheckBox43.Checked then
RegSetDWORD(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 then
RegSetDWORD(HKEY_LOCAL_MACHINE,
RestrictAnonymous, 1)
else RegSetDWORD(HKEY_LOCAL_MACHINE,
RestrictAnonymous, 0);
end;
1)">if f or(Form1.PageControl4.ActivePageIndex<>1)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
NoViewContextMenu, d);
0);">Form1.CheckBox47.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoFileMenu,
d);
0);">Form1.CheckBox48.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoShellSearchButton, d);
0);">Form1.CheckBox49.Checked := (d > 0);
end
else begin
if Form1.CheckBox47.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoViewContextMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoViewContextMenu, 0);
if Form1.CheckBox48.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoFileMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoFileMenu, 0);
if Form1.CheckBox49.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoShellSearchButton, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoShellSearchButton, 0);
end;
2)">if f or(Form1.PageControl4.ActivePageIndex<>2)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER, NoSetTaskbar,
d);
0);">Form1.CheckBox50.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoChangeStartMenu, d);
0);">Form1.CheckBox51.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoFind, d);
0);"> Form1.CheckBox52.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoRun, d);
0);">Form1.CheckBox53.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoSMHelp, d);
0);"> Form1.CheckBox54.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoRecen