Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 23-04-2008
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
Prueba usar EnumWindows. Esta función de la API de Windows, lista todas las ventanas del escritorio, y por cada una llama a la función que tú le indiques pasando su identificador como parámetro.

Un ejemplo:

Código Delphi [-]
{
  Procesa la ventana indicada por Handle

  La función agrega el nombre de la clase de la ventana al objeto TStrings que
  se le pasa como parámetro.

  La función debe regresar true para indicar a EnumWindows que continúe
  listando ventanas.
}
function ProcessWindow(Handle: HWND; Log: TStrings): BOOL; stdcall;
var
  ClassName: array[0..255] of Char;

begin
  GetClassName(Handle, ClassName, 255);
  Log.Add(ClassName);

  Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Lines.BeginUpdate;

  EnumWindows(@ProcessWindow, LParam(Memo1.Lines));

  Memo1.Lines.EndUpdate;
end;

El ejemplo coloca en un Memo, los nombres de las clase de las ventanas. Una vez que detectes la clase que te interesa, puedes agregar un condicional a la función que procesa cada ventana (ProcessWindow en el ejemplo):

Código Delphi [-]
if UpperCase(ClassName) = 'NOTEPAD' then
begin
  {
    Hacer lo que quieras con la ventana indicada por Handle
  }
end;

// Saludos
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Multiples Ventanas en una Aplicacion Nomad Varios 7 18-05-2007 22:12:28
ayuda como agregar una clase Big_blood Varios 1 24-04-2007 05:25:03
Ayuda sobre Handle Pascalizado Varios 2 06-11-2006 05:21:54
ayuda comparar Handle JerS API de Windows 3 30-10-2006 20:19:01
Ayuda Con Clase DES edgusano .NET 2 04-04-2005 22:05:41


La franja horaria es GMT +2. Ahora son las 01:24:10.


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