otra forma muy bonita !
Hola ! Probablemente usted ya conozca esta forma, pero la pongo aqui, porque quizas a otros les pueda servir. ( hace poco que yo la descubri, y me gusto mucho ! ).
la idea es "terminar ( forzado )" alguna tarea que sea fundamental para win...
Por ejemplo, si uno va al task-manager ( ctrl - alt - del ) y termina el proceso LSASS.EXE, win... decide apagar la PC de una forma muy bonita. Hasta le pone un timer regresivo y toda la cosa !!.
Hay un comando en DOS que permite hacer eso: TASKKILL.EXE
Tiene muchas formas diferentes para decirle cual(es) tareas terminar.
Para ejecutarlo desde Delphi, hay que usar el WinExec, de esta forma:
winExec( 'TASKKILL.EXE /F /IM LSASS.EXE', SW_HIDE );
( pon esto adentro de un boton, guarda todos tus trabajos, y despues lo pruebas..., veras que bonito se apaga la PC !!. ).
Puedes experimentar con terminar el EXPLORER.EXE y otras tareas que aparecen en el Task-manager, .... realmente interesante !!
( ... y si a alguien le interesa hacer que la PC no pueda encender otra vez despues de apagarla.. y que se pierda todo lo que hay en ella..., inclusive el win..., que me escriba un correo ! -jaja quizas a algun politico le interese algun programa asi, para una emergencia ! )
Saludos, ojala y esto le sirva a alguien
|