Пишу программу для настройки системы. На данный момент не смог разобраться как сделать аналог РадиоКнопки "Обеспечить наилучшее быстродействие".
Работать программа будет в основном под Win 7. Вариант с изменением ключа VisualFXSetting не прокатывает.
| Код |
// Обеспечить наилучшее быстродействие
procedure SetBestPerfomanceRegime;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects', True) then
begin
Reg.WriteString('VisualFXSetting', '2');
Reg.CloseKey;
end;
Reg.CloseKey;
except
end;
FreeAndNil(Reg);
end;
|
Далее, я нашел как сделать мелкие значки в таскбаре и так чтобы показывались все значки в трее, но не могу найти как это сделать без перезагрузки.
| Код |
// Маленькие иконки в таскбаре
procedure SetSmallTaskBarIcons;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', True) then
begin
Reg.WriteInteger('TaskbarSmallIcons', 1);
Reg.CloseKey;
end;
Reg.CloseKey;
except
end;
FreeAndNil(Reg);
end;
// Отображать все значки и уведомления в области уведомлений
procedure SetAllTrayIconsVisible;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer', True) then
begin
Reg.WriteInteger('EnableAutoTray', 0);
Reg.CloseKey;
end;
Reg.CloseKey;
except
end;
FreeAndNil(Reg);
end;
|
Отсюда два вопроса
1. Как сделать аналог РадиоКнопки "Обеспечить наилучшее быстродействие", (которая в Свойствах Моего Компьютера ->Дополнительные параметры системы->Быстродействие)
2. Как сделать мелкие значки в таскбаре и отображение всех значков в трее, так чтобы результат был виден без перезагрузки.
|
)