Procedure Untuk Menampilkan atau menutup StartMenu Windows

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

procedure HideStartMenu;
var
   hSMenu: HWND;
begin
   hSMenu:= FindWindow ('DV2ControlHost', 'Start Menu');
   ShowWindow (hSmenu, SW_HIDE);
end;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Kalau mau menjegal supaya penekanan startmenu tidak bisa dilakukan
manfaatkan timer, rubah interval timer sekecil mungkin, terus ketik sbb :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  HideStartMenu;
end;

:)