How to display the windows start menu, without clicking the start button.

Declaration procedure:
ShowStartMenu procedure;
var
   hSMenu: HWND;
begin
   hSMenu: = FindWindow ('DV2ControlHost', 'Start Menu');
   ShowWindow (hSmenu, SW_RESTORE);
end;

Examples of Implementation:
Procedure TForm1.Button1Click (Sender: TObject);
begin
   ShowStartMenu;
end;