Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Saber cuando se ejecuta EXPLORER.EXE (https://www.clubdelphi.com/foros/showthread.php?t=22018)

marceloalegre 03-06-2005 20:39:10

Saber cuando se ejecuta EXPLORER.EXE
 
Buenas tardes:
En esta oportunidad les molesto para hacerles una consulta muy importante para un trabajo que estoy haciendo:

necesito saber cuando se ejecuta explorer.exe para asi poder hacer una accion.

alguien me puede ilustrar con algun codigo para sacar esto?

GRACIAS!

mamcx 03-06-2005 21:27:11

Se ejecuta despues del logeo. Explorer.exe es un proceso practicamente del sistema y siempre esta corriendo...

Explica que quieres porque NO va a ser simple (ni listando los procesos del sistema se sabria de forma sencilla)

jachguate 03-06-2005 23:03:51

Cita:

Empezado por mamcx
Se ejecuta despues del logeo. Explorer.exe es un proceso practicamente del sistema y siempre esta corriendo...

Explica que quieres porque NO va a ser simple (ni listando los procesos del sistema se sabria de forma sencilla)

Esto no es totalmente cierto. Se puede "matar" al proceso explorer.exe, y el sistema segirá funcionando sin él. En ocasiones, inclusive, por errores del mismo se cierra y te deja sin nada.

Por otro lado, aunque es el Shell por defecto, no es el único.

Hasta luego.

;)

roman 03-06-2005 23:33:33

De hecho la pregunta es ambigua. Una cosa es el explore.exe como shell y otra como manejador de archivos aunque sea el mismo ejecutable.

Suponiendo que se refiere al primer caso, ciertamente se ejecuta al inicio,(salvo que configuremos el sistema de otra manera) y cada vez que hay que reiniciarlo por algún fallo, como indica jachguate.

Siempre que se inicia como shell, el explorer manda el mensaje TaskBarCreated a todas las ventanas (propiamente lo manda cuando crea la barra de tareas pero es casi lo mismo) así que sólo hay que captar este mensaje.

Pero hay una complicación. Este mensaje no es como los WM_XXX que podemos interceptar con un simple


Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure WMXXX(var Msg: TMessage); message WM_XXX;
  end;

porque TaskBarCreated no es una constante numérica.

Para poder detectarlo debemos hacer dos cosas:

1. Registrar el mensaje al iniciar la aplicación:


Código Delphi [-]
CMTaskBarCreated := RegisterWindowsMessage('TaskbarCreated');

donde CMTaskBarCreated es una variable de tipo Cardinal.

2. Reemplazar el procedimiento de ventana del formulario principal:


Código Delphi [-]
  TForm1 = class(TForm)
  protected
    procedure WndProc(var Msg: TMessage); override;
  end;

implementation

procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;

  if Msg.Msg = CMTaskbarCreated then
    (*
        Hacer lo que haya que hacer
    *) 
end;

// Saludos

jachguate 04-06-2005 00:23:15

Román.

Como siempre, tu participación es magistral!

Me habia topado con ese asuntillo, y la solución chapucera que tenía hasta ahora en un par de aplicaciones es capturar todos los mensajes en el rango válido para WM_USER (ahora no recuerdo cual es). Lo cierto es que en ocasiones alguna aplicación hacia broadcast de mensajes en este rango que se producian por alguna otra razón y esto provocaba algún trastorno en una de estas aplicaciones. Ahora, cuando tenga un tiempo, veré el usar RegisterWindowsMessage para corregir ese pequeño, pero complicado bug.

Hasta luego, y siempre gracias por compartir tus conocimientos, y por tu amistad.

;)

marceloalegre 06-06-2005 16:58:07

Gracias
 
Excelente, con esto solucione mi problema MUCHAS GRACIAS ROMAN!!!!
Cuando vengas a Mar del Plata avisa y te invito unas cervecitas para agradecer la mano q me diste :)!


La franja horaria es GMT +2. Ahora son las 04:24:59.

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