1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

// Zeigt das Startmenü an der angegebenen Position auf dem Bildschirm an.
// von: jaenicke - delphi-forum.de
// Parameter:
// uPosition        die Position, an der die Anzeige erfolgen soll
// uPosRelativeTo   wenn <> 0, dann bezieht sich uPosition auf das als Handle angegebene Fenster
// uMoveOnTopOfPos  wenn True, dann wird das Startmenü oberhalb von uPosition angezeigt
procedure ShowStartMenu(uPosition: TPoint; uPosRelativeTo: Hwnd;
  uMoveOnTopOfPos: Boolean);
var
  StartMenuWinRect: TRect;
  DropShadow: BOOL;
  StartMenuHandle: HWND;
begin
  // Wenn die Position als Clientposition gegeben ist, in eine globale umwandeln
  if uPosRelativeTo <> 0 then
    ClientToScreen(uPosRelativeTo, uPosition);
  // das unsichtbare Startmenüfenster suchen
  StartMenuHandle := FindWindow('DV2ControlHost', nil);
  if uMoveOnTopOfPos then
  begin
    // Wenn angegeben wurde, dass das Menü oberhalb der angegebenen Position
    // angezeigt werden soll, diese um dessen Höhe nach oben verschieben.
    GetWindowRect(StartMenuHandle, StartMenuWinRect);
    uPosition.Y := uPosition.Y - StartMenuWinRect.Bottom + StartMenuWinRect.Top;
  end;
  // Workaround: DropShadow Problem
  // Unter Windows XP hinterlässt die Anzeige des Startmenü an anderer Stelle
  // den Schatten unterhalb des Menüs, wenn diese aktiviert sind.
  // Deshalb diese ab XP vorher aus- und danach wieder anschalten, falls sie
  // aktiviert sind.
  if CheckWin32Version(5, 1) then
  begin
    SystemParametersInfo(SPI_GETDROPSHADOW, 0, @DropShadow, 0);
    if DropShadow then
      SystemParametersInfo(SPI_SETDROPSHADOW, 0, Pointer(False), 0);
  end;
  // Startmenü positionieren und anzeigen, Größe unverändert lassen
  SetWindowPos(StartMenuHandle, 0, uPosition.X, uPosition.Y, 0, 0,
    SWP_NOSIZE or SWP_SHOWWINDOW);
  // DropShadows ggf. wieder aktivieren
  if CheckWin32Version(5, 1) and DropShadow then
    SystemParametersInfo(SPI_SETDROPSHADOW, 0, Pointer(True), 0);
end;

1:

ShowStartMenu(Point(Button1.Left, Button1.Top), Form1.Handle, CheckBox1.Checked);

1:

ShowStartMenu(Point(Form1.Left, Form1.Top), 0, CheckBox1.Checked);