Problema urgente con nueva versión

[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

[Antonio Linares]

Joaquín,

Prueba con:

cPath = HB_ARGV( 1 )

[jmartial]

Antonio,

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


¿Pruebo algo más?

Un Saludo,
Joaquín

[Antonio Linares]

Joaquín,

Parece que el problema entonces es de ShellExecute().

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

[jmartial]

Antonio,

Así la estoy pasando:

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

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


Un Saludo,
Joaquín

[Antonio Linares]

Joaquín,

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

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