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);
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;
if f or(Form1.PageControl4.ActivePageIndex<>1)
or Form1.fstart then begin
RegGetDWORD(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);
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;
if f or(Form1.PageControl4.ActivePageIndex<>2)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER, NoSetTaskbar,
d);
Form1.CheckBox50.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoChangeStartMenu, d);
Form1.CheckBox51.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoFind, d);
Form1.CheckBox52.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoRun, d);
Form1.CheckBox53.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoSMHelp, d);
Form1.CheckBox54.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoRecentDocsMenu, d);
Form1.CheckBox55.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoTrayContextMenu, d);
Form1.CheckBox56.Checked := (d > 0);
end
else begin
if Form1.CheckBox50.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoSetTaskbar, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoSetTaskbar, 0);
if Form1.CheckBox51.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoChangeStartMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoChangeStartMenu, 0);
if Form1.CheckBox52.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoFind, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoFind, 0);
if Form1.CheckBox53.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoRun, 1)
else RegSetDWORD(HKEY_CURRENT_USER, NoRun, 0);
if Form1.CheckBox54.Checked then
RegSetDWORD(HKEY_CURRENT_USER, NoSMHelp, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoSMHelp, 0);
if Form1.CheckBox55.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoRecentDocsMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoRecentDocsMenu, 0);
if Form1.CheckBox56.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoTrayContextMenu, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoTrayContextMenu, 0);
end;
Sleep(1000);
end;
end;
procedure Execute3;
var f: Boolean; d,d1,d2: DWORD; s,s1,s2: String;
begin
while true do begin
if (Form1.PageControl1.ActivePageIndex<>2)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
PaintDesktopVersion, d);
Form1.CheckBox57.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoDesktop, d);
Form1.CheckBox58.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoActiveDesktop, d);
Form1.CheckBox59.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispBackgroundPage, d);
Form1.CheckBox60.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispScrSavPage, d);
Form1.CheckBox61.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispSettingsPage, d);
Form1.CheckBox62.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispAppearancePage, d);
Form1.CheckBox63.Checked := (d > 0);
end
else begin
if Form1.CheckBox57.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
PaintDesktopVersion, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
PaintDesktopVersion, 0);
if Form1.CheckBox58.Checked then