Obtener la barra de tareas, menú de sistema para sus aplicaciones delphi

Obtener la barra de tareas, menu de sistema para sus aplicaciones delphi

Obtener la barra de tareas, menu de sistema para sus aplicaciones delphi : Multi-millones de consejos para hacer su vida mas facil.

el codigo Sencillo para hacer de su C Builder o Delphi aplicacion usar & #39 estandar & #39 de la barra de tareas del sistema de menu

Resumen

Cuando se hace clic derecho en C Builder/aplicacion Delphi & #39 s ficha barra de tareas,
obtener un sistema de menu que muestra tres elementos: Restaurar, Minimizar y Cerrar. Un
estandar de aplicacion de windows(como el Bloc de notas), muestra tres mas: Maximizar, Tamaño y Mover.
Este problema ocurre debido a una C Builder/Delphi aplicacion tiene una ventana oculta, y
es esta ventana oculta que tiene una pestaña en la Barra de tareas.

& nbsp

Este fragmento de codigo que resuelve el problema mediante la eliminacion de la pestaña de la ventana oculta
y reemplazar con la ficha del formulario principal & #39 s de la ventana.

con el codigo

Inserte el siguiente codigo en la aplicacion & #39 s archivo principal (donde TApplication es
inicializado). Especificamente, insertar el fragmento de codigo inmediatamente despues de la principal
se crea el formulario. Ver el codigo de algunos de los mas comentarios.
....
//El shlobj.h archivo de las causas en tiempo de compilacion problemas en C Builder 5. A
//evitarlos, definir NO_WIN32_LEAN_AND_MEAN en:
//Proyecto->Opciones-> & #39 Directorios/Condicional & #39 ficha-> & #39 Condicional define & #39 cuadro de edicion
#include

#incluyen 'Unit1.h' //El formulario principal & #39 s archivo de inclusion (importante incluir!)

....

Aplicacion->Initialize()
Aplicacion->CreateForm(__classid(TForm1), & Form1)

si(SUCCEEDED(CoInitialize(0)))
{
ITaskbarList *pTaskbarList
si(SUCCEEDED(CoCreateInstance(CLSID_TaskbarList, 0,CLSCTX_INPROC, IID_ITaskbarList, (LPVOID *) & pTaskbarList)) & & pTaskbarList)
{
//Quitar la pestaña de la ventana oculta pTaskbarList->DeleteTab() no parece funcionar (al menos en Windows 2000),
//vamos a utilizar un metodo alternativo. Una ventana con la WS_EX_TOOLWINDOW estilo no tiene una ficha barra de tareas:
SetWindowLong(Aplicaciones->Manejar, GWL_EXSTYLE, GetWindowLong(Aplicaciones->Manejar,GWL_EXSTYLE)|WS_EX_TOOLWINDOW)

//Añadir pestaña de formulario principal en su lugar
pTaskbarList->pestaña add(Form1->Handle)

pTaskbarList->Release()
}
}
<
....

Aplicacion->Ejecutar()

....

Notas

ITaskbarList esta disponible en

• Windows 95 con internet explorer 4 o superior
• Windows 98
• Windows NT 4.0 con internet explorer 4 o superior
• Windows 2000
• Windows XP

en Concreto, la Version 4.71 o despues de Shell32.dll es necesario.

Bugs

• La ficha Barra de tareas no se mantiene presionado durante el tiempo en que el sistema de menu esta activo.