[jonydread]

amigos he probado muchas formas y no le veo la falla a mi codigo
al soltar un archivo sobre la aplicacion esta se debe ejecutar obtener ruta y ejecuta una aplicacion
la aplicacion llama a:

Código Delphi [-]
procedure TReg2infConverter.LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string; const Destino: string);
var
FileName,outfile : string;
begin
FileName := Extractfilename(Opendialog1.FileName);
FileName:= AnsiReplaceStr(FileName,' ','');
outfile :=ChangeFileExt(FileName, '.inf');
   ShellExecute(Hnd,
              'OPEN',
              PChar(ExtractFileName(App)),
              PChar(Origen+' '+Destino),
              PChar(ExtractFilePath(App)),
              SW_HIDE);
                if FileExists(Opendialog1.FileName) then
              label1.Caption:='Convertido con exito!! : '+outfile
              else
   label1.Caption:='Error! No se Encuentra Archivo'
       end;

y aqui el dilema lo suelto encima se abre aplicacion y tira el mensaje Convertido con exito!! pero no hace nada, al abrir la aplicación y arrastrar un archivo encima funciona ok y es casi el mismo código.

Código Delphi [-]
procedure TReg2infConverter.FormCreate(Sender: TObject);
var
  Origen, Destino ,Filename : string;
  begin
    DragAcceptFiles(handle, true);
    OpenDialog1.FileName:= ParamStr(1);
    edit1.Text:=ParamStr(1);
    if ParamStr(1) > '' then
 begin
Filename := Extractfilename(Opendialog1.FileName);
Origen := GetshortName(Opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');
 if ExtractFileExt(ParamStr(1)) = '.reg' then
LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino )
else
    MessageDlg('Archivo no valido!!', mterror, [mbok],0);
   end;
   end;

gracias por su tiempo!!