Немного о системе

/анимация Windows (Windows 9x и NT)
function AAnimationWindow(animation:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Control Panel\Desktop\', false);
if animation then
regi.WriteBool('MinAnimate',animation);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключить создания имен файлов в формате 8.3 NTFS Windows NT
function AOffCreatenabe8_3NTFS(Off:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
regi.OpenKey('SYSTEM\CurrentControlSet\Control\FileSystem\',false);
regi.WriteBool('NtfsDisable8dot3NameCreation',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключение доступа к дисплею в Панели управления (Windows 9x и NT)
function AOffDisplayPanel(Off: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('NoDispCPL',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключить сеть в Панели управления (Windows 9x)
function AOffNatWork_in_Panel(Off:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Network\',false);
regi.WriteBool('NoNetSetup',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключить доступ к принтерам в Панели управления (Windows 9x)
function AOffPrinter_in_Panel(Off:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',false);
regi.WriteBool('NoPrinters',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключить доступ к паролям в Панели управления (Windows 9x)
function AOffPassword_in_Panel(Off: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('NoSecCPL',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;

//блок Окна и кнопки (Windows XP)
function ABlockWINanBUTT(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('NoVisualStyleChoice',Block);
reg.CloseKey;
reg.free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//блок оформление (Windows XP)
function ABlockforml(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('NoColorChoice',Block);
reg.CloseKey;
reg.free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//блок шрифтов (Windows XP)
function ABlockSizeChoice(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('NoSizeChoice',Block);
reg.CloseKey;
reg.free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//блок анимации рабочего стола (Windows XP)
function ABlockActiveDesctop(Block: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('NoActiveDesktop',Block);
reg.CloseKey;
reg.free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end