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...
