[Alegun]

Код:

PostMessage(FindWindow('notepad', nil), WM_CLOSE, 0, 0);