[SCrat.ORS]

Код:

var
h:hWnd;
begin
h:=FindWindow(nil, 'Microsoft Word'); //поиск Хендла окна по его названию 
{h:=FindWindow(WND_CLASS, nil); - поиск Хендла окна если знаешь его Класс, или можно соместить класс и название}
if h=0 then exit; // - Если нет таких окон, то завершаем процедуру
SendMessage(h, WM_DESTROY, 0,0); // - посылем окошку, сообщение "закрыть"
end;