yo tampoco aporto nada, tan solo la confirmación de que a mi me funciona perfectamente.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:= '"'+ ListBox1.Items[ListBox1.ItemIndex]+ '"';
ShellExecute(Handle, 'Open', 'Photoshop',PChar(s) , nil, SW_SHOW);
end;
y te dejo lo mismo pero con winexec por si las moscas....
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
s2:String;
begin
s2:= '"C:\Archivos de programa\Adobe\Photoshop 7.0\photoshop.exe" "'+ ListBox1.Items[ListBox1.ItemIndex]+ '"';
WinExec(PChar(s2),SW_SHOWNORMAL);
end;
que por cierto también me funciona.... aqui hay algo que no nos estas contando
