Ver Mensaje Individual
  #1  
Antiguo 19-09-2006
johnyague johnyague is offline
Registrado
 
Registrado: jul 2006
Posts: 9
Reputación: 0
johnyague Va por buen camino
Angry Permisos de Administrador Para Dehabilitar Control + Alt + Suprimir

Hola a Todos

Antes de hacer esta pregunta me base en lo siguiente para deshabilitar el COntrol + Alt +Suprimir, encontrada en este hilo, como dicen aqui

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
     procedure DisableTaskMgr(bTF: Boolean);
   var       reg: TRegistry;
   begin
     reg := TRegistry.Create;
     reg.RootKey := HKEY_CURRENT_USER;

       reg.OpenKey('Software', True);
     reg.OpenKey('Microsoft', True);
     reg.OpenKey('Windows', True);
     reg.OpenKey('CurrentVersion', True);
     reg.OpenKey('Policies', True);
     reg.OpenKey('System', True);
      if bTF = True then
      begin
       reg.WriteString('DisableTaskMgr', '1');
     end
     else if  bTF = False then     
     begin 
        reg.DeleteValue('DisableTaskMgr');
     end; 
      reg.CloseKey;
   end;
    begin
     //Desabilitamos el Ctrl-Alt-Del (Con False vuelve a estar habilitado)
   DisableTaskMgr (True);
 end;


Esta Funciona de maravilla pero solo cuando tengo permisos de adminsitrador y esta aplicacion esta corriendo bajo un usuario restringido de Dominio.

Revisando la pagina encontre, en este hilo

var StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin FillChar (StartupInfo, SizeOf(StartupInfo), #0); StartupInfo.cb := SizeOf(StartupInfo); Win32Check( CreateProcessWithLogonW( StringToOleStr('UsuarioConPermisos'),StringToOleStr ('Dominio'), StringToOleStr('Password'),0, StringToOleStr('Exe'), nil, 0, nil, StringToOleStr('DirectorioTrabajo'), StartupInfo, ProcessInfo ) ); end;
[/delphi]


Pero no he podido, alguien me puede explicar o dar otra solucion...


De Antemano Muchas Gracias...

Última edición por marcoszorrilla fecha: 19-09-2006 a las 23:23:18.
Responder Con Cita