Вкладки свойств рабочего стола

//Скрыть вкладку оформление в свойствах экрана (Windows 9x/NT)
function AHideRegistration(HIDE:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
regi.WriteBool('NoDispAppearancePage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
end;
//Скрыть вкладку "Фон" в свойствах рабочего стола (Windows 9x/NT)
function AHideFonPage(HIDE:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
regi.WriteBool('NoDispBackgroundPage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
end;
//Скрыть вкладку ""Заставка"" в свойствах рабочего стола (Windows 9x/NT)
function AHideScreenSavePage(HIDE:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
regi.WriteBool('NoDispScrSavPage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
end;
//Скрыть вкладку "Настройка" в свойствах рабочего стола (Windows 9x/NT)
function AHideOptionPage(HIDE:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
regi.WriteBool('NoDispSettingsPage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
end;

//Запретить изминение обой
function ALockSetWolpapier(Lock:boolean):boolean;
var reg:Tregistry;
begin
reg := tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\',true);
reg.WriteBool('NoChangingWallpaper',lock);
reg.CloseKey;
reg.free;
//sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Использовать только BMP в качестве обой
function AUseRastrWolpapier(Use:boolean):boolean;
var reg:Tregistry;
begin
reg := tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\',true);
reg.WriteBool('NoHTMLWallPaper',use);
reg.CloseKey;
reg.free;
//sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//блокировка заставки
function ABlockScreenSave(Block:boolean):boolean;
var reg:Tregistry;
begin
reg := tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Policies\Microsoft\Windows\Control Panel\Desktop\',true);
reg.WriteBool('ScreenSaveActive',Block);
reg.CloseKey;
reg.free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;

// Запрет запуска апплета "Экран"
function ABlockRunDProp(Block:boolean):boolean;
var reg:Tregistry;
begin
reg := tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\',true);
reg.WriteBool('NoDispCPL',Block);
reg.CloseKey;
reg.free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть вкладку темы
function AHideThemeinDesProp(hide:boolean):boolean;
var reg:Tregistry;
begin
reg := tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',true);
reg.WriteBool('NoThemesTab',hide);
reg.CloseKey;
reg.free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end