Программирование Delphi

Здесь приведен пример, как нажать кнопку Windows Пуск программно из кода Delphi:

procedure TForm1.Button1Click(Sender: TObject) ;
begin
   SendMessage(Form1.handle,
               WM_SYSCOMMAND,
               SC_TASKLIST,0) ;
end;