Barra de tareas de Windows consejos & trucos

Barra de tareas de Windows consejos & trucos

Barra de tareas de Windows consejos & trucos : Multi-millones de consejos para hacer su vida mas facil.

Algunos de los 'secretos' de la Barra de tareas de Windows
Como presionar un boton de 'Inicio' de su programa:
procedure TForm1.PressStart(Sender: TObject)
var
& nbsp hTaskBar, hButton : HWND
& nbsp hDCScreen : HDC
& nbsp ScreenHeight : DWORD
begin
& nbsp & nbsp //encontrar el boton de 'Inicio'
& nbsp & nbsp hDCScreen := GetDC(0)
& nbsp & nbsp ScreenHeight :=GetDeviceCaps(hDCScreen,VERTRES)
& nbsp & nbsp ReleaseDC(0, hDCScreen)
& nbsp & nbsp hTaskBar := FindWindow('Shell_TrayWnd', nil)
& nbsp & nbsp hButton := GetWindow(hTaskBar, GW_CHILD)
& nbsp & nbsp //presione el boton 'Iniciar'
& nbsp & nbsp SendMessage(hButton, MENEJADOR,MK_LBUTTON,LOWORD(5)
& nbsp & nbsp & nbsp & nbsp HIWORD(ScreenHeight-20))
& nbsp & nbsp //ocultar el boton de 'Inicio'
& nbsp & nbsp ShowWindow(hButton, SW_HIDE)
& nbsp & nbsp Sueño(2000)
& nbsp & nbsp //mostrar el boton de 'Inicio'
& nbsp & nbsp ShowWindow(hButton, SW_NORMAL)
fin
Como ocultar y mostrar la Barra de tareas de Windows:
procedure TForm1.HideTaskBar(Sender: TObject)
var
& nbsp H : HWND
begin
& nbsp & nbsp & nbsp & nbsp H := FindWindow('Shell_TrayWnd', nil)
& nbsp & nbsp & nbsp & nbsp ShowWindow(H, SW_HIDE)
& nbsp & nbsp & nbsp & nbsp Sueño(2000)
& nbsp & nbsp & nbsp & nbsp ShowWindow(H, SW_SHOW)
fin
Como ocultar el boton de una aplicacion de la Barra de tareas de Windows:
procedure TForm1.HideButton(Sender: TObject)
begin
& nbsp & nbsp ShowWindow(de Aplicacion.Manejar,SW_HIDE)
fin
procedure TForm1.ShowButton(Sender: TObject)
begin
& nbsp & nbsp ShowWindow(de Aplicacion.Manejar,SW_SHOW)
fin
El mismo ejemplo, pero el uso de la API de Windows:
var
& nbsp & nbsp m_hWnd : HWND
& nbsp & nbsp hMain : HWND
procedure TForm1.CreateWindow(Sender: TObject)
begin
& nbsp m_hWnd :=CreateWindowEx(0,'staic', ', WS_POPUP, 0,0,1600,1200,
& nbsp & nbsp & nbsp 0, 0, 0, nil)
& nbsp hMain := CreateWindowEx (0,'estatica', 'ventana Principal',
& nbsp & nbsp WS_POPUP WS_VISIBLE, 40,50,200,300,m_hWnd, 0, 0, nil)
fin
procedure TForm1.HideWindow(Sender: TObject)
begin
& nbsp & nbsp //ocultar el boton de
& nbsp & nbsp ShowWindow(hMain,SW_HIDE)
fin
procedure TForm1.ShowWindow(Sender: TObject)
begin
& nbsp & nbsp //mostrar el boton de
& nbsp & nbsp ShowWindow(hMain,SW_SHOW)
fin