System Delphi

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