Foros Club Delphi - Traduccion de función VB a delphi !!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Traduccion de función VB a delphi !!! (https://www.clubdelphi.com/foros/showthread.php?t=18190)

Traduccion de función VB a delphi !!!

Hola a todos.Estoy buscando cómo evitar que aparezca el administrador de tareas al pulsar CTRL+ALT+SUPR.
He encontrado una función del API de windows que siumula la ejecución del salvapantallas.En este estado
la combinación de éstas teclas no tiene ningún efecto.El problema es que mis conocimientos de VB son
muy limitados y me gustaría saber si alguien puede pasarla a delphi,o decir cómo se puede hacer esto en delphi.
La función es la siguiente:

Código:

 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 Const SPI_SCREENSAVERRUNNING = 97&

Código:

Private Sub DesHabilitar_Click()

        Dim lngRet As Long

        Dim blnOld As Boolean

        lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)

End SubPrivate Sub Habilitar_Click()

        Dim lngRet As Long

        Dim blnOld As Boolean

        lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnOld, 0&)

End Sub

Gracias por adelantado.

Bunas,

Podrías fijarte en la web de Trucomanía o mismo en la búsqueda del foro puesto que lo que solicitás se ha tratado anteriormete.

Respondiendo tu inquitud de la API quedaría así:

Código Delphi [-]uses
   windows,...;
...
var
   lParam : LontInt;
...
   lParam := 0;
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @lParam, 0);
...

Como verás es mucho más simple el trato de las APIs desde Delphi.

Muchas gracias. Lo malo de esta función es que no funciona en NT.