Сайт программ, компонентов, статей по Delph - Статьи

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

// Скрыть окно "Управления совместным использованием файлов и принтеров" (Windows 9x)
function AHideFileSharingPage(HIDE: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('NoFileSharingControl',HIDE);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрытиь вкладку "Идентификация" (Windows 9x)
function AHideNetSetupIDPage(HIDE: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('NoNetSetupIDPage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
end;
// Скрыть вкладку "Управление доступом" (Windows 9x)
function AHideNetSetupSecurityPage(HIDE: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('NoNetSetupSecurityPage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
end;
// Скрыть вкладку "Удаленное управление" (Windows 9x)
function AHideAdminPage(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('NoAdminPage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть вкладку "Профили пользователей" (Windows 9x)
function AHideProfilePage(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('NoProfilePage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть вкладку "Смена паролей" (Windows 9x)
function AHideNewPasswordPage(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('NoPwdPage',HIDE);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключить добавления принтеров (Windows 9x)
function AoffaddPrinter(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('NoAddPrinter',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Отключить удаление принтеров (Windows 9x)
function AoffDeletePrinter(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('NoDeletePrinter',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть вкладки "Общие" и "Сведения" в свойствах принтера (Windows 9x)
function AHIDEgeneral_InfoPage(hide: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('NoPrinterTabs',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Система
//Скрыть вкладку "Профили оборудования" (Windows 9x)
function AHIDEConfigPage(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('NoConfigPage',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть вкладку "Устройства" (Windows 9x)
function AHIDEMetalPage(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('NoDevMgrPage',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть кнопку "Файловая система" (Windows 9x)
function AHIDEFileSysPage(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('NoFileSysPage',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть кнопку "Виртуальная память" (Windows 9x)
function AHIDEVirtualMemoryButton(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('NoVirtMemPage',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;

// Отключить команду "Выключить компьютер" (Windows 9x и NT)
function AOffExitWindows(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('NoClose',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Спрятать группу "Стандартные " из меню "Пуск" (Windows 9x и NT)
function AhideStandartGroop(hide: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('NoCommonGroups',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть все элементы на Рабочем столе (Windows 9x и NT)
function AhideDesctop(hide:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',true);
regi.WriteBool('NoDesktop',hide);
//result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть диск в папке Мой компьютер (Windows 9x/NT)
function AhideDriveinMyCompiuter(hide:boolean;drive:integer):boolean;
var regi:TRegistry;
dr,ne:integer;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
if hide then begin
case drive of
0:dr := 1;
1:dr := 2;
2:dr := 4;
3:dr := 8;
4:dr := 16;
5:dr := 32;
6:dr := 64;
7:dr := 128;
8:dr := 256;
9:dr := 512;
10:dr := 1024;
11:dr := 2048;
12:dr := 4096;
13:dr := 8192;
14:dr := 16384;
15:dr := 32768;
16:dr := 65536;
17:dr := 131072;
18:dr := 262144;
19:dr := 524288;
20:dr := 1048576;
21:dr := 2097152;
22:dr := 4194304;
23:dr := 8388608;
24:dr := 16777216;
25:dr := 33554432;
end;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',false);
if regi.ValueExists('NoDrives') then begin
ne := regi.ReadInteger('NoDrives');
regi.WriteInteger('NoDrives',ne+dr);
end else begin
regi.WriteInteger('NoDrives',dr);
end;
end
else begin
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',false);
regi.DeleteValue('NoDrives');
end;
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть все диски в папке Мой компьютер (Windows 9x/NT)
function AhideAllDrivesinMyyCompiuter(hide:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_CURRENT_USER;
regi.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',false);
if hide then begin
regi.WriteInteger('NoDrives',67108863);
result := true;
regi.CloseKey;
regi.Free;
end else begin
regi.DeleteValue('NoDrives');
result := true;
regi.CloseKey;
regi.Free;
end;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть папку "Избранное" из меню "Пуск" (Windows 9x/NT)
function AhideFavoritesMenu(hide: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('NoFavoritesMenu',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть меню "Файл" из Проводника (Windows NT)
function AhideFileMenu(hide: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('NoFileMenu',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Скрыть команду "Найти" из меню "Пуск" (Windows 9x/NT)
function AhideFindMenuinstartbutton(hide: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('NoFind',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть значёк "Сетевое окружение" (Windows 9x/NT)
function AhideIcoNetWork(hide: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('NoNetHood',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть папку "Документы" из меню "Пуск" (Windows 9x/NT)
function AhideDocumentInStartButton(hide: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('NoRecentDocsMenu',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть команду "Выполнить" из меню "Пуск" (Windows 9x/NT)
function AhideRunMenu(hide: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('NoRun',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключить сохранение параметров настройки при выходе из системы(Windows 9x/NT)
function AoffSaveparametrsinExit(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('NoSaveSettings',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть пункт "Настройка" из меню "Пуск" (Windows 9x/NT)
function AhideOptionMenuinStartButton(hide: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('NoSetFolders',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрыть пункт "Панель задач" в меню "Настройки" из меню "Пуск" (Windows 9x/NT)
function AhidePanelZMenuinStartButton(hide: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('NoSetTaskbar',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;

// Отключить опцию "Сохранить пароль" в Удаленном доступе к сети (Windows NT)
function AhideOptionSavePassword(hide:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
regi.OpenKey('SYSTEM\CurrentControlSet\Services\RasMan\Parameters\',false);
regi.WriteBool('DisableSavePassword',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Скрывать последнего имени пользователя в сети(Windows NT)
function AhideLostUserName(hide:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
regi.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\',false);
if hide then
regi.WriteString('DontDisplayLastUserName','1') else
regi.WriteString('DontDisplayLastUserName','0');
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;

//Скрыть элемент "Вся сеть" из Сетевого окружения (Windows 9x/NT)
function AhideAllNetwork(hide: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('NoEntireNetwork',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;

//Скрыть команды Подключить и Отключить сетевой диск (Windows NT)
function AhideComandofOnNetworkDrive(hide: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('NoNetConnectDisconnect',hide);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
// Ограничить информацию,доступную пользователям при входе в систему (Windows NT)
function AGranInformationinstart(Gran:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
regi.OpenKey('SYSTEM\CurrentControlSet\Control\LSA\',false);
regi.WriteBool('RestrictAnonymous',Gran);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Автоматическая перезагрузка оболочки (Windows NT)
function AautomaticalRebootObl(auto:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
regi.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\',false);
regi.WriteBool('AutoRestartShell',auto);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отключить Редактор системного реестра (Windows 9x/NT)
function AoffSystemRegistr(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('DisableRegistryTools',off);
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Отменить запуск ScreenSav'a (Windows NT)
function AoffScreenSave(off:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_USERS;
regi.OpenKey('.DEFAULT\Control Panel\Desktop\',false);
if off then
regi.WriteString('ScreenSaveActive','1') else
regi.WriteString('ScreenSaveActive','0');
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
//Разрешить выключение компьютера из диалогового окна опознавания (Windows NT)
function AoffSystemindialogWindow(off:boolean):boolean;
var regi:TRegistry;
begin
regi := TRegistry.Create;
regi.RootKey := HKEY_LOCAL_MACHINE;
regi.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\',false);
if off then
regi.WriteString('ShutdownWithoutLogon','1') else
regi.WriteString('ShutdownWithoutLogon','0');
result := true;
regi.CloseKey;
regi.Free;
sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;