Delphi - Finalizar Procesos

Hola a todos, amigos yo necesito un pequeno ejemplito de como puedo cerrar el windows media player desde delphi, agradeceria cualquier ayuda.

Gracias

var
h: HWND;
begin
h := FindWindow(nil, 'Reproductor de Windows Media');
if h <> 0 then SendMessage(h, WM_CLOSE,0,0);
end;

Busamos la ventana del WMP con la función FindWindow (le pasamos el título de la ventana).

Si la encontró (h<>0) entonces le mandamos un mensaje a esa ventana para decirle que se cierre.

Saludongos.