FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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í:
Como verás es mucho más simple el trato de las APIs desde Delphi.
__________________
Suerte .: Gydba :. |
#3
|
|||
|
|||
Muchas gracias. Lo malo de esta función es que no funciona en NT.
|
|
|
|