Sección de códigos , trucos y ejemplos para visual basic

18 - Deshabilitar Ctrl+ALt+Sup y Alt+Tab en Win 98 mediante el Api SystemParametersInfo

En windows 98 mediante el Api SystemParametersInfo es posible hacer esto, en Xp y en Nt hasta el momento no he podido averiguar como hacerlo sin modificar el registro, cosa que no es conveniente ya que si nuestro programa falla o no termina correctamente el registro puede dejar las claves cambiadas. Por eso hay que tener en cuenta este detalle importante.

Ejemplo

Colocar 2 CommandButton (Command1 y Command2)

Código fuente en un formulario

Option Explicit ' Constantes ''''''''''''''''''''''''''''''''''''''''''''''' Private Const SPI_SCREENSAVERRUNNING = 97& 'Api de windows : SystemParametersInfo '''''''''''''''''''''''''''''''''''''''''''''''' Private Declare Function SystemParametersInfo _ Lib "User32" _ Alias "SystemParametersInfoA" ( _ ByVal uAction As Long, _ ByVal uParam As Long, _ lpvParam As Any, _ ByVal fuWinIni As Long) As Long Private Sub Form_Load() Command1.Caption = "Deshabilitar" Command2.Caption = "Habilitar" End Sub Private Sub Form_Unload(Cancel As Integer) Command2_Click End Sub Private Sub Command1_Click() Dim ret As Long Dim blnOld As Boolean ret = SystemParametersInfo( _ SPI_SCREENSAVERRUNNING, _ True, _ blnOld, 0&) End Sub Private Sub Command2_Click() Dim ret As Long Dim blnOld As Boolean ret = SystemParametersInfo( _ SPI_SCREENSAVERRUNNING, _ False, _ blnOld, 0&) End Sub

Recursos Visual basic 6.0 - Enlaces Relacionados:

Deshactivar Ctrl+Alt+Sup en Xp y Nt mediante el registro de Windows

Buscar en Recursos vb