En esta entrada explicare como detectar el apagado del sistema operativo windows usando mensajes que nos envía el SO cuando el usuario decide apagar o bien reiniciar

Con WMQueryEndSession podemos detectar el cierre del sistema operativo

Para poder capturar mensajes de windows tenemos que ponerlo en la parte private de la unidad

procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION;

Ejemplo:

Procedure TForm1.WMQueryEndSession(var Msg : TMessage);
begin
if (MessageDlg('Quieres continuar con el apagado?',mtConfirmation,[mbYes,mbNo],0)) = mrNo then
     Msg.Result := 0
else
     Msg.Result := 1;
     close;
end;

Consejos:
Dependiendo de la aplicación que diseñamos, a la hora de detectar el apagado de windows podríamos hacer varias operaciones, por ejemplo un editor de texto básico.
Si el usuario ha creado un documento nuevo y no lo ha guardado, podríamos guardarlo automáticamente con algún nombre predeterminado, que cuando volviera abrir nuestro programa le advirtiera de que ultima vez no se guardo el documento y si lo quiere respaldar.
Podríamos también mostrar un cuadro de dialogo con algún temporizador que al terminar si el usuario no hace ninguna operación se apagara el sistema.

parametros que acepta el explorer de windows a traves de la linea de comandos son

/n Abre una nueva ventana. Normalmente es la raíz de la unidad en la que windows está instaldo, abre duplicados si ya hay un explorer abierto

/e Abre el explorador de windows en su vista predeterminada

/root,<ruta> abre un explorer con la ruta especificada

/select,<ruta>,<archivo> Abre un explorer con la ruta especificada y con el archivo seleccionado

Ejemplos:

Explorer.exe /n
abre un explorer nuevo

Explorer.exe /e,/root,c:\windows
abre un explorer en la carpeta c:\windows

explorer.exe /select,c:\windows\audio.log
Seleccionaria el archivo audio.log que esta dentro de c:\windows\

Explorer /root,\\mired\vecino,select,albumdefotos.exe
Abriria un recurso compartido de la red mired del usuario veciono y el archivo albumdefotos.exe

podemos llamar el explorer con la función ShellExecute de las Apis de windows

ShellExecute(Manejador:HWND, ejecutación:PChar, NombreArchivo:PChar, Parámetros:PChar, Carpeta:PChar, Mostrar:Integer):Longword;

Manejador (HWND): le debemos poner el “window handle” de la ventana que hace la llamada “form1.hwnd”

ejecutación (PChar): depende de la opción que escogemos para lanzar el programa:

edit: abriremos el NombreArchivo con el programa asociado a su edición.
explorer: explora el directorio especificado, el NombreArchivo debe ser una ruta de directorio
find: abre el sistema de buscar de windows, empenzando en el directorio especificado, que les pasamos con el parámetro NombreArchivo
open: ejecuta el NombreArchivo, si es un ejecutable lo arranca, si es otro, lo abre con la herramienta asociada con el comando abrir
print: imprime el NombreArchivo
properties: muestra la ventana de información sobre el archivo concreto

NombreArchivo (PChar): el nombre de la aplicación , archivo no ejecutable o ruta de directorio

Parámetros (PChar): Son los parámetros que le pasamos al archivo ejecutable, puede contener Nil “Null” si no queremos pasar ningún parámetro al ejecutable, si NombreArchivo no es ejecutable tenemos que poner Nil

Carpeta (PChar): Carpeta que la aplicación a ejecutar tomara por defecto, es como el “Iniciar en” de los acesos directos de windows

Mostrar (Integer): como queremos que se muestre la aplicación a ejecutar, valores posibles:

SW_HIDE
SW_RESTORE
SW_SHOW
SW_SHOWNA
SW_SHOWNORMAL
SW_SHOWDEFAULT
SW_MAXIMIZE
SW_MINIMIZE
SW_SHOWMAXIMIZED
SW_SHOWMINIMIZED
SW_SHOWMINNOACTIVE
SW_SHOWNOACTIVATE

Valor retornado: si la ejecución a sido exitosa, ShellExecute devuelve un valor tipo HINST, definido como LongWord con el manejador “handle” de la aplicación, la nuestra aplicación que llama a la otra
Si es entre 0 y 32 quiere decir que a ocurrido un error

Ejemplo 1.0

Para usar la función ShellExecute tenemos que agregar en uses la unidad ShellApi

uses ShellAPI;

...

if ShellExecute(Form1.Handle, nil, 'c:\windows\general.txt',
nil, nil, SW_SHOWNORMAL) <= 32 then
Application.MessageBox('No se pudo ejecutar la aplicación',
'Error', MB_ICONEXCLAMATION);

ShellExecute(Form1.Handle, nil, 'c:\windows\notepad.exe',
'c:\windows\general.txt', nil, SW_SHOWMAXIMIZE);

ShellExecute(Form1.Handle, 'open', 'c:\windows\notepad.exe',
'general.txt', 'c:\windows', SW_SHOWNORMAL);

ShellExecute(Form1.Handle, nil, PChar(fname + '.txt'),
nil, nil, SW_MAXIMIZE);

ShellExecute(Form1.Handle, nil, 'c:\windows\notepad.exe',
nil, nil, SW_SHOWNORMAL);

Otros articulos: Executing and Running Applications and Files from Delphi Code de About.com