Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 21-01-2006
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Poder: 21
jmariano Va por buen camino
Bueno, después de buscar por ahí encontré el código siguiente que puede serte de ayuda:

Para ocultar el menú (o botón) de inicio:
Código Delphi [-]
var
  h : hwnd;
begin
  h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
  ShowWindow(h, 0);
  Windows.SetParent(h, 0);
end;

Para volver a restablecerlo:
Código Delphi [-]
var
  h : hwnd;
  TaskWindow: hwnd;
begin
  h := FindWindowEx(Getdesktopwindow, 0, 'Button', nil);
  TaskWindow := FindWindow('Shell_TrayWnd', nil);
  Windows.SetParent(h, TaskWindow);
  ShowWindow(h, 1);
end;

Para sustituirlo por uno propio:
Código Delphi [-]
var
  b: TButton; // u otro tipo de Botón que puede contener un Bitmap
  h: hwnd;
begin
  h := FindWindow('Shell_TrayWnd', nil);
  b := TButton.Create(nil);
  b.ParentWindow := h;
  b.Caption := 'Inicio';
  b.Width := 60;
  b.font.style := [fsbold];
end;

(Verás que el secreto está en capturar la ventana de sistema "Shell_TrayWnd", que representa la barra de inicio).

Saludos!

Última edición por jmariano fecha: 21-01-2006 a las 15:05:01.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Agregar Item a Menu Windows m@kio Varios 2 05-12-2005 22:30:12
Desactivar menu contextual de Windows en WebBrowser PTW Varios 1 11-05-2005 13:21:34
Inactivar el menú inicio diegofhernando Varios 21 16-01-2005 16:12:53
Arrancar un programa, desde menú inicio, cuando yo quiera. Tonio Varios 3 17-09-2003 04:31:19
Microsoft Taglines SnaKe Humor 0 03-06-2003 15:42:27


La franja horaria es GMT +2. Ahora son las 09:30:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi