Настройка Windows по средствам системного реестра
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
tDocsMenu, d);
0);">Form1.CheckBox55.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoTrayContextMenu, d);
0);">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
2)">if (Form1.PageControl1.ActivePageIndex<>2)
or Form1.fstart then begin
RegGetDWORD(HKEY_CURRENT_USER,
PaintDesktopVersion, d);
0);">Form1.CheckBox57.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER, NoDesktop, d);
0);">Form1.CheckBox58.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoActiveDesktop, d);
0);">Form1.CheckBox59.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispBackgroundPage, d);
0);">Form1.CheckBox60.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispScrSavPage, d);
0);">Form1.CheckBox61.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispSettingsPage, d);
0);">Form1.CheckBox62.Checked := (d > 0);
RegGetDWORD(HKEY_CURRENT_USER,
NoDispAppearancePage, d);
0);">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
RegSetDWORD(HKEY_CURRENT_USER, NoDesktop, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDesktop, 0);
if Form1.CheckBox59.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoActiveDesktop, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoActiveDesktop, 0);
if Form1.CheckBox60.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispBackgroundPage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispBackgroundPage, 0);
if Form1.CheckBox61.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispScrSavPage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispScrSavPage, 0);
if Form1.CheckBox62.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispSettingsPage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispSettingsPage, 0);
if Form1.CheckBox63.Checked then
RegSetDWORD(HKEY_CURRENT_USER,
NoDispAppearancePage, 1)
else RegSetDWORD(HKEY_CURRENT_USER,
NoDispAppearancePage, 0);
end;
Sleep(1000);
end;
end;
procedure IncEdit1; begin Execute1; end;
procedure IncEdit2; begin Execute2; end;
procedure IncEdit3; begin Execute3; end;
procedure TForm1.CheckBox33Click(Sender: TObject);
begin CheckBox34.Enabled := not CheckBox33.Checked; end;
procedure TForm1.CheckBox21Click(Sender: TObject);
begin ComboBox1.Enabled := CheckBox21.Checked; end;
procedure TForm1.FormShow(Sender: TObject);
begin
fstart := true;
Form1.PageControl1.ActivePageIndex := 2;
Form1.PageControl2.ActivePageIndex := 4;
h1 := BeginThread(nil, 1024, @incedit1, nil, 1, th1);
h2 := BeginThread(nil, 1024, @incedit2, nil, 2, th2);
h3 := BeginThread(nil, 1024, @incedit3, nil, 3, th3);
Form1.PageControl2.ActivePageIndex := 0;
Form1.PageControl1.ActivePageIndex := 0;
Sleep(1000);
Button3Click(Sender);
fstart := false;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TerminateThread(h1, 0);
TerminateThread(h2, 0);
TerminateThread(h3, 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
var s: String;
begin
if OpenPictureDialog1.Execute then begin
s := OpenPictureDialog1.FileName;
RegSetString(HKEY_CURRENT_USER, Wallpaper, s);
RegSetString(HKEY_CURRENT_USER, TileWallpaper, 0);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil,
SPIF_SENDWININICHANGE);
Screen.Realign;
Button3Click(Sender);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var s: String;
begin
RegGetString(HKEY_CURRENT_USER, Wallpaper, s);
if FileExists(s) then
Image10.Picture.LoadFromFile(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
then"> if Image10.Picture.GetNamePath<> then
if SavePictureDialog1.Execute then
Image10.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
end.
Интерфейс программы
Интерфейс программы основан на идеи разделения настроек (системы) на категории, представленные вкладками. Каждая вкладка окна программы имеет определенный набор параметров соответствующий определенной группе (вкладки первого уровня) и подгруппе (вкладки второго уровня) настроек. Теперь рассмотрим каждую из вкладок более подробнее.
Вклада "Система"
Данная вкладка предназначения для настройки некоторых основных параметров системы, которые наиболее привлекают внимание пользователя. Тем не менее, некоторые довольно интересные параметры здесь не встретятся, за той простоя причиной, что ими может управлять и сама система, да и на большинстве современных компьютеров они не влияют на стабильность и быстродействие системы (например, изменить размер файла подкачки и вообще разрешить/запретить его использование здесь нельзя размера файла подкачки устанавливаемого системой по умолчанию вполне хватает для работы системы, при том объеме ОП ПК что сейчас доступен пользователю).
Название подвкладки может прозвучать как тавтология, но количество повторов одного слова в данном случае здесь не играет роли, т.к. эта вкладка несет на себе настройки основных служб Windows. Например, параметр "Запускать 16-битные приложения в отдельных процессах" отвечает за режим работы 16-разрядной подсистемы, и позволяет сделать работу консольных приложений более стабильной (если одно из одновременно запушенных приложений сделает ошибку это не приведет краху остальных). Так параметр "Очищать файл подкачки перед перезагрузкой системы" позволяет ускорить загрузку системы и её дальнейшею работы, т.к. весь страничный файл (-ы) будут очищаться и системе не нужно будет использовать его не занятую с прошлого сеанса работы часть, а начнет заполнять его с самого начала. Флаг "Отключить встроенный отладчик Dr.Watson" запрещает использовать стандартное средство отладки приложений, что позволяет существенно ускорить работу системы и отключить окно навязчивые окна с