Mostrar MenuSistema en barra de tareas

[dec]

Hola,

Basándome en código fuente encontrado Scalabium.com aquí tienes un primer intento de función "ShowSystemMenu()":

Código Delphi [-]
function ShowSystemMenu(wHandle: hwnd;
 posX, posY: integer): boolean;
var
  flags: cardinal;
  hMenuItem: DWORD;
  hMenuHandle: HMENU;
begin
  hMenuHandle := GetSystemMenu(wHandle, false);
  flags := TPM_LEFTBUTTON or TPM_RIGHTBUTTON or TPM_RETURNCMD;
  hMenuItem := LongWord(TrackPopupMenu(hMenuHandle,
                flags, posX, posY, 0, wHandle, nil));
  if (hMenuItem > 0) then
    SendMessage(wHandle, WM_SYSCOMMAND, hMenuItem, 0);
  result := (hMenuItem > 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Ejemplo de llamada a la función
  ShowSystemMenu(self.Handle, self.Left,
   self.Top+GetSystemMetrics(SM_CYCAPTION));
end;

Tú adáptalo como mejor te parezca.