D>procedure TForm1.Button1Click(Sender: TObject);
D>var
D>  H: HWND;
D>begin
D>  H := HWND(131128); //Хэндл кнопки пуск :)
D>  SendMessage(H, WM_LBUTTONDOWN, 0, 0);
D>  Sleep(20);
D>  SendMessage(H, WM_LBUTTONUP, 0, 0);
D>end;
D>