Как программно закрыть пуск

procedure TForm1.Button1Click(Sender: TObject);  // закрываем пуск
var
h:Hwnd;
begin
h:=FindWindow('SHELL_TRAYWND',nil);
h:=findwindowex(h,0,'Button',nil);
SendMessage(h,WM_LBUTTONup,0,0);
end;

procedure TForm1.Button2Click(Sender: TObject); //открываем пуск
begin
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);
end;