Traduccion de función VB a delphi !!!

[Jan_polero]

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

[Gydba]

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í:

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.

[Jan_polero]

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