Saber cuando se ejecuta EXPLORER.EXE

[[marceloalegre]]

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]

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]

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]

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]

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]]

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 !