6 respuestas en este tema

[enecumene]

Pues eso, necesito detectar los archivos seleccionados en Windows Explorer, ¿para qué?, bueno, sucede lo siguiente, tengo un menú contextual que he creado la cual se llama desde el Registro de Güindos desde delphi cuyo valor es:

delphi

"C:\Archivos de programa\Project\Project1.exe" "%1"

De modo que en Delphi el valor de "%1" (Que es el archivo seleccionado) la obtengo con ParamStr(1), hasta ahí todo bien, pero si selecciono dos archivos me abre el proyecto dos veces, o sea, se abre con cada uno de los archivos selecionados y quisiera evitar eso, por eso el motivo de contar los archivos seleccionados para realizar un ciclo for y realizar las acciones correspondientes. ¿Alguna idea?.

Saludos.

[enecumene]

Bueno conseguí esta información pero aún no me funciona, ya que me abre una instancia por cada archivo seleccionado en vez de todos en una sóla

[Al González]

Hola Fernando.

Leyendo tu planteamiento y el artículo que enlazas, me parece que el problema reside en que el Explorador de Windows ejecuta rápida y simultáneamente una instancia de tu programa por cada archivo seleccionado (lo cual es razonable), pero de tal manera que la función FindWindow empleada para validar la existencia de otras instancias no encuentra la ventana de las demás instancias, puesto que apenas se está iniciando la aplicación de esas otras instancias.

Una solución podría ser el emplear un tipo de semáforo más preciso, como un mutex.  Llamar a la función CreateMutex al inicio del programa es un recurso muy socorrido en casos como este.  Sin embargo, sin desatender el mecanismo de transferencia de parámetro que ilustra el artículo, adicionalmente tendrías que realizar un ciclo de espera para darle oportunidad a la primera instancia de crear la ventana a la cual se le envía el mensaje wm_CopyData.

Acorde a lo anterior, hice los siguientes cambios al código del ejemplo (no los he probado):

delphi

function CanStart: Boolean;
var
  Wdw: HWND;
begin
  CreateMutex (Nil, True, 'Enecumene.ProgramaTal');
 
  // Si otra instancia ya creó el mutex
  If GetLastError = Error_Already_Exists Then
  Begin
    Wdw := 0;
 
    // Esperamos hasta que esa primera instancia cree el formulario principal
    While Wdw = 0 Do
      Wdw := FindDuplicateMainWdw;
 
    // instance running: try to pass command line to it
    // terminate this instance if this succeeds
    // (routine explained later)
    Result := not SwitchToPrevInst(Wdw);
  End
  Else
    // no instance running: we can start our app
    Result := True;
end;
 
begin
  If CanStart Then
  Begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  End;
 
  // El mutex es cerrado / destruido automáticamente al finalizar la aplicación
end.

Espero te sirva.  Seguimos en contacto.

Al González.

[enecumene]

Muchas gracias amigo Al, en un rato lo pruebo y comento mis resultados, de nuevo gracias .

Saludos.

[enecumene]

Hola de nuevo, amigo me ha funcionado de perlas lo que me has colocado, ¡Muchas Gracias!

Saludos.

[Al González]

Hola de nuevo, amigo me ha funcionado de perlas lo que me has colocado, ¡Muchas Gracias!

Me alegras la tarde con esto que leo.

Que padre se ve eso de "Los siguientes miembros le han agradecido". :$ 

[egostar]

Hola de nuevo, amigo me ha funcionado de perlas lo que me has colocado, ¡Muchas Gracias!

Me alegras la tarde con esto que leo.

Que padre se ve eso de "Los siguientes miembros le han agradecido". :$ 

Por supuesto amigo, no está de más ser agradecidos y que sepan quien y porque se les agradece.

Un gusto verte de vez en cuando.

Salud OS