Работа с кнопкой Пуск в Delphi.

Приветствую читателей блога!
Это первая статья из цикла уроков, посвященных Delphi.  Мы будем издеваться над кнопкой Пуск.

Сначала я опишу функции, которые нам сейчас пригодятся:

enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),false);

- прячем Пуск.

enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),true);

- откроем Пуск.

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

 

- так откроем меню Пуск.

Итак, c теорией закончено. Открываем среду  Delphi, создаем приложение и  кидаем на форму 3 компонента Button с закладки Standart.  Создаем обработчик событий (двойной щелчок на элементе)  на каждой кнопке и в них прописываем следующий код:

procedure TForm1.Button1Click(Sender: TObject);

begin

  enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),false);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),true);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

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

end;

Вот и всё! Запускаем программу, давим на кнопки и радуемся…:)

Если у вас не получилось самим сделать программу, то скачать исходник можно здесь.

Удачи!