如何编程使开始菜单中的"运行"和"关闭系统"项消失

Question

在HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer下新建NoClose、NoRun并将键值设为1。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CURRENT_USER;
   if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',False) then
      Reg.CreateKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer');
   Reg.WriteInteger('NoRun',1);
   Reg.WriteInteger('NoClose',1);
   Reg.CloseKey;
   Reg.Free;
end;