Page 1 of 1

Problema urgente con nueva versión

Posted: Thu Mar 08, 2007 5:53 pm
by jmartial
Antonio,

Desde que instalé la nueva versión, tengo un problema que no había visto porque no daba error.

Desde mi aplicación llamo a otra:

ShellExecute( GetActiveWindow() , "open", CurDir()+"\addons\addons1.exe", "DirQueQuier")

Y en la otra recibo el parámetro con esto:
Function Main()
Parameters cPath

Pero hasta ahora me llegaba cPath == "DirQueQuier"
Y con esta versión me llega cPath == "D"

Con lo cual nada de lo siguiente funciona, ya que depende del parámetro.

¿Cuál es el problema ShellExecute o la recepción del parámetro en HB para pocket que no lo hace bien?


Me urge bastante,
Un Saludo
Joaquín

Posted: Thu Mar 08, 2007 8:25 pm
by Antonio Linares
Joaquín,

Prueba con:

cPath = HB_ARGV( 1 )

Posted: Fri Mar 09, 2007 10:21 am
by jmartial
Antonio,

Exactamente el mismo resultado, recibe una "D" , que es la primera letra.


¿Pruebo algo más?

Un Saludo,
Joaquín

Posted: Fri Mar 09, 2007 11:35 am
by Antonio Linares
Joaquín,

Parece que el problema entonces es de ShellExecute().

Tu le estás pasando la cadena como ansi ó como unicode ? (AnsiToWide())

Posted: Fri Mar 09, 2007 4:50 pm
by jmartial
Antonio,

Así la estoy pasando:

cPathAddons := Strtran(alltrim(CurDir()+"\")," ","_")

ShellExecute( GetActiveWindow() , "open", CurDir()+"\addons\addons1.exe", cPathAddons )


Un Saludo,
Joaquín

Posted: Fri Mar 09, 2007 6:25 pm
by Antonio Linares
Joaquín,

No hay que usar AnsiToWide() ya que FWPPC lo llama automaticamente.

Has probado con WinExec() en vez de con ShellExecute() ?