var wndhandle: HWnd;begin// Pencerenin başlığıwndhandle := FindWindow(nil, 'My Documents');if wndhandle <> 0 thenPostMessage(wndhandle,WM_CLOSE,0,0);end;