problema al ejecutar accion al soltar archivo sobre aplicacion

[ecfisa]

Empezado por jonydread

me sale un error en

Código Delphi [-]
  Origen:= AnsiReplaceStr(GetShortName(Origen), ' ', '');
  Destino:= ChangeFileExt(Origen, '.inf');

Es extraño, no sé como lo estés implementando... A mi me funciona perfectamente.

Para que puedas estudiar el código con tranquilidad te adjunto los fuentes. Como no tengo el archivo reg2inf.exe realizé una aplicación de consola en Delphi con igual nombre que lo único que hace es mostrar ParamStr(1) y ParamStr(2).

Pero para no adjuntarte el ejecutable desactivé la llamada a ShellExecute reemplazándola por un simple ShowMessage que muestra Origen y Destino, al ser estos correctos (sólo diferenciarse en la extensión) , si existe un error es ajeno al código.

Un saludo.