Permisos de Administrador Para Dehabilitar Control + Alt + Suprimir

[mahlon]

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?