Closing the window for the title window

//глобальная
var
tit:HWND;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tit:=FindWindow(nil, 'Мой компьютер'); // Window name
if (tit>0) then
PostMessage(tit, WM_CLOSE, 1, 0);
end;

// Coded by Appo //