Как закрыть пуск

[BoT_T]

Нагуглил на то, как открыть меню пуск:

 SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

А как альтернативно программно закрыть пуск?

[zumm]

SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

Это как бы нажатие на кнопку Пуск, логично было бы предположить что если послать сообщение еще раз Пуск закроется...

[BoT_T]

Сообщение от zumm

SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

Это как бы нажатие на кнопку Пуск, логично было бы предположить что если послать сообщение еще раз Пуск закроется...

Хех, я тож так подумал. Если бы( Он тупо заного открывает пуск((

Друг помог. Вот

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;

[zumm]

SendMessage(h,WM_LBUTTONup,0,0);

гениально. нажать левой клавишей, проверь, эта же команда часом еще и не окрывает пуск?

[BoT_T]

Нет, не открывает почему то.