[BuRtOn]

Código Delphi [-]
procedure DisableTaskMgr(bTF: Boolean);
  var reg: TRegistry;
begin  
  reg := TRegistry.Create;  
  reg.RootKey := HKEY_CURRENT_USER;  
  reg.OpenKey('Desktop', True);  
  reg.OpenKey('MenuShowDelay ', True);    
  if bTF = True then  begin    
    reg.WriteXXX(En las XXX va Int osea quedaria WriteInt)
    ('DisableTaskMgr', 1);  
  end else if bTF = False then begin    
    reg.DeleteValue('DisableTaskMgr');  
  end;  
  reg.CloseKey;end;

que pena, aki esta el codigo es que me salio a lo Ancho...