Код:
var
REG:TStringList;
begin
REG:=TStringList.Create;
REG.Add('Windows Registry Editor Version 5.00');
REG.Add('');
REG.Add('[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden]');
REG.Add('');
REG.Add('[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden]');
REG.Add('"Text"="@shell32.dll,-30499"');
REG.Add('"Type"="group"');
REG.Add('"Bitmap"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\');
REG.Add(' 00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,53,00,\');
REG.Add(' 48,00,45,00,4c,00,4c,00,33,00,32,00,2e,00,64,00,6c,00,6c,00,2c,00,34,00,00,\');
REG.Add(' 00');
REG.Add('"HelpID"="shell.hlp#51131"');
REG.Add('');
REG.Add('[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN]');
REG.Add('"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"');
REG.Add('"Text"="@shell32.dll,-30501"');
REG.Add('"Type"="radio"');
REG.Add('"CheckedValue"=dword:00000002');
REG.Add('"ValueName"="Hidden"');
REG.Add('"DefaultValue"=dword:00000002');
REG.Add('"HKeyRoot"=dword:80000001');
REG.Add('"HelpID"="shell.hlp#51104"');
REG.Add('');
REG.Add('[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL]');
REG.Add('"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"');
REG.Add('"Text"="@shell32.dll,-30500"');
REG.Add('"Type"="radio"');
REG.Add('"CheckedValue"=dword:00000001');
REG.Add('"ValueName"="Hidden"');
REG.Add('"DefaultValue"=dword:00000002');
REG.Add('"HKeyRoot"=dword:80000001');
REG.Add('"HelpID"="shell.hlp#51105"');
REG.SaveToFile(GetAVZDirectory+'monk.reg');
REG.Free;
ExecuteFile('REGEDIT','-s '+GetAVZDirectory+'monk.reg',0,0,false);
Sleep(3);
DeleteFile(GetAVZDirectory+'monk.reg');
end.