Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-09-2006
johnyague johnyague is offline
Registrado
 
Registrado: jul 2006
Posts: 9
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Control de Permisos con ADO Migpal MS SQL Server 4 08-11-2005 08:27:50
Software para SQLBase Administrador BD? bataola Varios 2 05-08-2005 14:31:53
DUDA: Permisos de Administrador Ernesto Carrera Firebird e Interbase 2 10-02-2005 15:49:41
Administrador para MySQL actualizado Gasper MySQL 0 01-04-2004 20:54:40
permisos para ejecutar un procedure Crandel Firebird e Interbase 2 17-07-2003 21:31:47


La franja horaria es GMT +2. Ahora son las 16:09:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi