Como bloquear pantalla y teclado en Delphi?

[[jcarteagaf]]

Hola amigos foreros, tengo un duda que se que uds. podran ayudarme a resolver:

He descargado la aplicacion WorkPause (http://www.praven3.com/), que basicamente te avisa - segun el tiempo que tu le programes - que necesitas descansar un momento. Tiene una opcion que al llegar el tiempo de descanso bloquea la pantalla y el teclado hasta que le das en el boton Unlock.

Me gustaria tener esa misma funcionalidad en Delphi.

Trabajo con Delphi 7, alguien puede ayudarme o darme una pista de como hago esto?.

Gracias por su tiempo y su interes.

[[cHackAll]]

Código Delphi [-]
 SwitchDesktop(CreateDesktop('ClubDelphi', nil, nil, 0, MAXIMUM_ALLOWED, nil));
 Sleep(12000);
 SwitchDesktop(OpenDesktop('Default', 0, False, DESKTOP_SWITCHDESKTOP));

[[egostar]]

Que tal cHackAll, eso estuvo muy bueno, no se para que me serviría en este momento, pero algun uso le encontraré.

Salud OS.

[[eduarcol]]

eso estuvo excelente pero como hago para que la recuperacion se haga en algun evento??? no se puede quedar solo una pantalla activa?? es que no encuentro nada en la ayuda

[dec]

Hola,

Si te decides por usar "escritorios" tal vez te interese un ejemplo que proporcionó Román hace tiempo y que acabo de subir al Directorio del ClubDelphi. El ejemplo es "Crear escritorios en Windows", y consiste en una aplicación que crea un escritorio en el que se ejecuta acto seguido otra aplicación: es desde esta última aplicación que puedes "volver" al escritorio original... pero mejor échale un vistazo al ejemplo.

[[eduarcol]]

Lo dicho roman es el barbaro

[[jcarteagaf]]

Que buen codigo, Uds si que se las saben de todas, todas.

Una consulta, esto funciona en todas las versiones de Windows?, este sera un programa de distribucion masiva y posiblemente alguien este usando Windows 98 o 2000.

Gracias por su tiempo y su interes.

[dec]

Hola,

Puedes comprobarlo tú mismo. Revisa las funciones que se emplean: "CreateDesktop", "OpenDesktop", etc. Búscalas en la Web de Miscrosoft MDSN (por su nombre, tal cual) y averiguarás, entre otras cosas, qué versiones de Windows cuentan con dichas funciones.

Por ejemplo, aquí está la ayuda de la función "CreateDesktop", y, según parece, no está disponible sino desde Windows NT3 en adelante...