Menampilkan Start Menu Windows

procedure ShowStartMenu;

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;