La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  6864 - COMO CERRAR LAS APLICACIONES ABIERTAS EXEPTO MI PROGRAMA ?
Autor:  Ricardo Nolasco Rivera
Necesito cerrar las aplicaciones que estan en la barra de tareas, todas al mismo tiempo o con un solo click en un boton, si alguien me puede ayudar se lo agradeceria mucho.
  Respuesta:  Rodrigo Flores
Eso lo hace windows por intermedio de la mensajeria, toda aplicacion tiene una declaracion de eventos, tu puedes enviar a una aplicacion un mensaje llamado WM_CLOSE, por intermedio de las funciones:

HWND FindWindow( LPCTSTR lpClassName, LPCTSTR WindowName );

y

LRESULT SendMessage(HWND hWnd, UINT Msg, WPARAM wParam,
LPARAM lParam );

Ejemplo
HWND HandleVentana;
HandleVentana=FindWindow(NULL, "Excel");
if (HandleVentana!=NULL)
SendMessage(HandleVentana,WM_CLOSE,NULL,NULL);

en pascal deberia ser algo asi (hace tiempo que no trabajo en delphi pero ve tu en las ayudas la referencia a estas funciones).

var
hVentana:HWND;
begin
hVentana=FindWindow(null, "Excel");
if (hVentana!=null)
SendMessage(hVentana,WM_CLOSE,null,null);
end;