Club Delphi  
    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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-09-2003
wickedsp wickedsp is offline
Registrado
 
Registrado: sep 2003
Posts: 1
Poder: 0
wickedsp Va por buen camino
Question Mensajes de Win

a ve si me explico.... me gustaria saber como puedo saber si el cursor hace clik en el boton de INICIO, como se hace?

Gracias.
Responder Con Cita
  #2  
Antiguo 01-10-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Una idea:
  • Tendrás que averiguar el "handle" del botón de inicio. Para ello usarás la función FindWindow de la API de Windows posiblemente dos veces: una para hallar el "handle" de la barra de tareas y otra para el del botón que es hijo de la barra. Necesitarás saber el nombre de la clase de la barra de tareas. Esto lo puedes averiguar usando el programa WinSight que viene con Delphi.
  • Deberás establecer un gancho (hook) del sistema para interceptar los eventos del ratón y determinar si el evento es un click (WM_LBUTTONDOWN) y va dirigido al botón (cuyo "handle" determinaste en el punto 1)

No lo he probado así que no sé si realmente funcione pero es lo que se me ocurriría de primera instancia.

El caso es que para comezar deberás investigar acerca de FindWindow y de Hooks.

// Saludos
Responder Con Cita
  #3  
Antiguo 01-10-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
Te recomiendo seguir la idea de román, y como extra te doy una ayudita de como buscar el handle del botón de inicio:
Código:
var
  hTray,
  hButton: HWND;
begin
  hTray := FindWindow('Shell_TrayWnd', Nil);
  if hTray <> 0 Then
  begin
    hButton := FindWindowEx(hTray, 0, 'Button', nil);

    Caption := IntToStr(hButton);
  end;
end;
Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 20:14:18.


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