Foros Club Delphi - Reactivar CNTL ALT SUP en Xp

Tienes la versión actualizada?

Habilitarlo:
Código:
 

var 

   dummy : integer;

 

 {Volver a conectarlo:}

 SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @dummy, 0);

 

 



Enviado por: Jacobo Brito Salas (sistemas_brito@hotmail.com)

Para Win 2000 y XP:

 

Añade registry en el uses de tu form

 

 

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

  //Disable Ctrl-Alt-Del

  DisableTaskMgr (True);

end;
Un Saludo.