Abrir/fechar um Jogo via delphi

Pra abrir:

WinExec(´c:\seuJogo.exe´,sw_show);

Pra fechar:

PostMessage(FindWindow(nil, ´Titulo do jogo´), WM_CLOSE,0,0);