Sustituir el Menú de Inicio de Windows

[jmariano]

Además de lo comentado por roman, si te fijas en el código que puse para desactivar el menú de inicio verás que, además de "ocultar" el botón, también se cambia el "padre" de éste asignándole uno "nulo", por lo que todas las pulsaciones de teclas que muestran el menú (Ctrl-Esc y la tecla de Windows) quedan deshabilitadas. (Haz la prueba y verás que el menú no aparece aunque se pulsen dichas teclas, lo único que ocurre es que el formulario activo de nuestra aplicación pierde el foco, al menos a mi me funciona).

Saludos!

[roman]

Me base en lo que decía Jonnathan acerca de que de cualquier forma aparecía el menú, pero tienes razón, se deshabilita por completo.

// Saludos

[Jonnathan]

Disculpa jmariano, tenias toda la razón, la línea que cambia el "padre" al botón de Windows era lo que faltaba, ahora si oculta y desactiva totalmente el menu de Windows. Ahora solo me falta capturar cuando se presiona la tecla de Windows y mostrar mi propio menú, voy a echar un vistazo al ejemplo de roman que aparece en su blog para probar. Gracias por su ayuda maestros de delphi .

[roman]

Empezado por Jonnathan

voy a echar un vistazo al ejemplo de roman que aparece en su blog para probar

Je, je, nada más aclarar que, contrario a las modas y tendencias actuales, lo mío no es un blog.

// Saludos

[Jonnathan]

Disculpas a los afectados por mi comentario del blog . El código del hook que está en tu página esta excelente roman, solo hace falta levantar el Hook al inicio de la aplicación y quitarlo al cerrar. Lo use combinado con el método de jmariano para desactivar el botón y ya puedo mostrar mi menú personalizado. Solo una cosa más, puse una linea para mandar a mostrar mi menú al comprobar que la tecla presionada era la tecla de Windows y que desaparezca el menú si la presiono de nuevo, pero cuando dejo presionada la tecla el menu parpadea apareciendo y desapareciendo. Me puse a buscar código por internet y encontre que dentro de la estructura TKbdHookInfo hay una variable "Flags" la cual retorna valores adicionales sobre el evento en cuestión, asi que declare algunas banderas adicionales que vi por ahi:

Código Delphi [-]
  //Flags adicionales
  LLKHF_EXTENDED = $1;    //Funcion extendida?
  LLKHF_UP = $80;          //Indica si la tecla es liberada

Asi que el código para que salga el menú solo cuando liberas la tecla de Windows dentro del hook lo deje asi:

Código Delphi [-]
    var 
       VkCode: DWORD;
       Flags: DWORD;
    ...
    begin
    VkCode := PKbdHookInfo(LParam).VkCode;
    Flags:= PKbdHookInfo(LParam).Flags;
    ...
    if ((VkCode = VK_LWIN) or (VkCode = VK_RWIN)) and (lkWin in Keys) then
    begin
      Result := 1;
      if Flags = LLKHF_UP + LLKHF_EXTENDED then
         OnWindowsKey(); //Funcion que hace aparecer mi menu
      exit;
    end;
    ...
    end;

Para el caso de la combinación Ctrl+Esc creo que esta un poco más dificil ese detalle, pero bueno, si la gente de Microsoft no le preocupo hacer esa validación, pues yo menos (el que quiera saber a que me refiero que mantenga presionada la combinación Ctrl+Esc un momento) . Muchas gracias chicos por la ayuda que me han dado, un saludo desde Venezuela.