Misterio en Photoshop

[HenSoft]

El archivo de proyecto de photoshop es .PSD pero abre imagenes .jpg, .bmp, .gif, ect sin tener que importarlas. Acabo de probar con un archivo .PSD y hace exactamente lo mismo.

Continúa el misterio

Saludos

Henry

[[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,