Delphi - Bloquear la pantalla

En realidad mas que bloquear la pantalla lo que necesito es poner como una imagen que cubra todo el escritorio y que le impida al usuario acceder a los programas y otras yerbas. Para que puede volver a acceder debe hacer clic c en un botón.
Lo necesito porque estoy armando un soft para un cybercafé.

Antes de que se ejecute el evento Show del form principal debes hacer que se oculte la Systray de Windows y luego maximizar la ventana del form, eso hará que la ventana ocupe toda la pantalla.
Para esconder la Systray ejecuta:
ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_HIDE);
No olvides agregar la unit ShellAPI a la uses del form.

Y ahora como la vuelvo a activar?. Probe con la misma función pero no pasa nada...

Otra cosita: existe alguna manera de deshabilitar el menú inicio.

Para volver a hacer visible la barra de tareas cambia SW_HIDE por SW_SHOW en la llamada a la API ShowWindow:

ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_SHOW);

El Boletín Pascal #26 publiqué un truco para evitar que el usuario ejecute otras aplicaciones, consistente en hacerle creer a Windows que el salvapantallas está activo.

http://www.latiumsoftware.com/es/pascal/0026.php

Eso oculta la barra de tareas, impide el acceso al menú inicio, y deshabilita las combinaciones de teclas ALT+TAB y CTRL+ALT+SUPR. Haciendo que el formulario abarque toda la pantalla, el usuario no podrá seleccionar el formulario de otra aplicación con el ratón.

Espero que te sirva.

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php