Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-09-2006
mahlon mahlon is offline
Miembro
 
Registrado: ago 2006
Posts: 62
Poder: 18
mahlon Va por buen camino
Thumbs up COntrol + Alt +Suprimir

Cita:
Empezado por johnyague
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...


reviso tu post y el codigo pero no son iguales a los q estan en el hilo anterior o trataste de dar una solucion mejor?......

de cualquier manera .. has intentado deshabilitar los tres botones utilizando el codigo ASCII?
Responder Con Cita
  #2  
Antiguo 20-09-2006
johnyague johnyague is offline
Registrado
 
Registrado: jul 2006
Posts: 9
Poder: 0
johnyague Va por buen camino
Cita:
Empezado por mahlon
reviso tu post y el codigo pero no son iguales a los q estan en el hilo anterior o trataste de dar una solucion mejor?......

de cualquier manera .. has intentado deshabilitar los tres botones utilizando el codigo ASCII?
La verdad no he podido darle una solucion mejor y lo que mensionas del Codigo ASCII tampoco lo he probado me podrias dar un ejemplo.

De antemano Gracias...
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 06:09:19.


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