Obtener archivos que llaman a mi aplicacion

[Khronos]

Gracias por responder, voy a probar lo que dices dec.

Lo de un memorymappedfile ya lo probé y no me salió del todo bien pero con más tiempo puede ser la solución.

Voy a probar el metodo de dec y os cuento.

Salu2

[roman]

Pero, ¿cuál es el método de dec? Al arrastrar los archivos como él dice, ciertamente se generan muchos parámetros para una sóla instancia de la aplicación. Pero si el usuario hace lo que describiste al principio entonces seguirá pasando lo que describiste al principio

// Saludos

[Khronos]

Tienes razón roman el método de dec sigue dando el mismo problema, hace algún tiempo hice dos aplicaciones que se enviaban mensajes entre ellas con un filemapping, la acabo de encontrar

Cuando termine el código lo subiré aqui o en la sección de trucos.

Salu2

[Khronos]

Bueno, ya tengo un poco planteado el algoritmo..

Código Delphi [-]
unit FileMapping;

interface

uses Windows, SysUtils, Messages, dialogs;

const
  wm_Transfer = wm_User + 13;

type
Mensaje = ^TMensaje;
  TMensaje = packed record
    DestHandle: THandle;
    filename: string[255];
  end;

function RunFileMapping(AppHandle: THandle; Mapping: string): boolean; stdcall;

implementation

function RunFileMapping(AppHandle: THandle; Mapping: string): boolean;
var
  Handle: THandle;
begin
  Handle:= OpenFileMapping(FILE_MAP_READ,False,pchar(Mapping));
  if Handle <> 0 then begin
  showmessage('Abriendo mapeado de memoria');
   //Por lo tanto hay otra instancia de la aplicacion
   //aqui enviamos un mensaje a la primera aplicacion con el paramstr(1);
  end;

  if Handle = 0 then begin
    CreateFileMapping( $FFFFFFFF,nil,PAGE_READWRITE,0, SizeOf(TMensaje), pchar(Mapping));
    showmessage('Creado mapeado de memoria');
  end;

end;

Con PostMessage(Mensaje.^DestHandle, WM_TRANSFER, 0, 0) ya conseguí enviar un mensaje...

Salu2