Te pongo una idea que yo he utilizado:
Primero que nada reemplazas el shell de Windows por tu propia aplicación. Para ello debes cambiar la entrada Shell del registro en
HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon
y poner tu aplicación:
Shell = 'tuaplicacion.exe'
Con esto tu aplicación se ejecutará en lugar del shell normal- el explorador.
Tu aplicación, lo primero que hará será presentar una ventana de 'login' donde verificas los datos del usuario y registras la hora de entrada, día, etc.
Después de esto, si el usuario se autentifica correctamente, inicias el shell normal con WinExec('explorer.exe', SW_SHOW).
Si el usuario ne se autentifica simplemente no dejas que se cierre la ventana y en todo caso pones un botón para cerrar el sistema con ExitWindowsEx.
// Saludos
|