ОТКЛЮЧИТЬ КОМАНДУ "ВЫКЛЮЧИТЬ КОМПЬЮТЕР"

521 взвод

Как вы думаете, что сделает глупый пользователь, если вдруг не обнаружит у себя в меню "ПУСК" команду "Выключить компьютер"... Правильно - сразу сожрёт от испуга свою мышь и побежит хвастаться друзьям, что его хакнул сам Билл Гейтс!!! Так не будем же его огорчать и дадим ему такой шанс. В системном реестре есть специальный ключ, отвечающий за доступность этой команды. Вот он: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer В этом ключе нужно только создать параметр с именем "NoClose" и задать ему в качестве значения единицу. Как же это можно сделать из Delphi? Сначала в области uses нужно объявить модуль Registry. Вот так: uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Registry, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
a:TRegistry;
begin
a:=TRegistry.create;
a.RootKey:=HKEY_CURRENT_USER;
a.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',true);
a.WriteInteger('NoClose',1);
a.CloseKey;
a.Free;
end;

Действует только в WIN 98 и Ме     

Используются технологии uCoz