Misterio en Photoshop

[[coso]]

¿nos puedes poner la linea?

[HenSoft]

Aqui va de nuevo:

Quiero abrir una imágen con photoshop. El usuario escoge de un listbox un elemento y pincha un botón para que se abra esa imágen con Photoshop. Para ello utilizo el siguiente código:

if not (ListBox1.ItemIndex=-1) then
ShellExecute(Handle, 'Open', 'Photoshop', pchar(ListBox1.Items[ListBox1.ItemIndex]), nil, SW_SHOW);

Pero Photoshop no abre la imagen, dice que el archivo no es correcto . Si le paso un string en ves del elemento del listbox funciona perfecto, algo así:

if not (ListBox1.ItemIndex=-1) then
ShellExecute(Handle, 'Open', 'Photoshop', pchar('C:\imagen.jpg'), nil, SW_SHOW);

[[coso]]

¿esa es la ultima linea?

[[coso]]

¿la misma que al principio?

[HenSoft]

si, la misma

[[coso]]

entonces...¿no has probado nada de lo que te hemos dicho?

[[Delphius]]

¿Y te funciona empleando una variable string de forma intermedia? Es decir almacenando en una variable string el contenido del ListBox y luego pasando dicha variable en ShellExecute.

Tal vez digo una tontera pero... es posible que se deba a que la propiedad Items es de tipo TStrings y la función PChar() no interpreta apropiadamente este tipo.

¿Porqué no pruebas con emplear esto?

Código Delphi [-]
PChar(ListBox1.Items.Strings[ListBox1.ItemIndex])

Saludos,

[roman]

ListBox1.Items.Strings[ListBox1.ItemIndex] viene a ser lo mismo que ListBox1.Items[ListBox1.ItemIndex].

Yo opino como coso, la última línea que pone es la misma que al principio, o sea ...

// Saludos

[HenSoft]

Por supuesto que he probado todo lo que me han dicho y todo lo que he alcanzado a imaginarme, pero simplemente no funciona. Acabo de probar la variante de Delphius y nada.

No por gusto le puse a este hilo como asunto: Misterio en Photoshop

Saludos

Henry