2 replies to this topic

[audiopesa]

Hola como están;

 

tengo este código para visualizar un archivo en notepad

delphi

procedure TFormMain.Visualizar1Click(Sender: TObject);
var
  i:integer;
  archivo:string;
begin
  i:=ListView1.Selected.Index;
  archivo:=ListView1.Items.Item[i].SubItems[3];
  ShellExecute(Handle,'open',PChar(EditNotepad.Text),PChar(archivo), nil, SW_SHOWNORMAL) ;
end;

Cuando le paso un archivo con espacios no funciona ¿Alguna Idea? Gracias

 

 

[escafandra]

Cuando le paso un archivo con espacios no funciona ¿Alguna Idea? Gracias

En general las rutas que tengan espacios han de encerrarse entre comillas dobles cuando estamos en entornos CMD. En el caso de ShellExecute, no es necesario y funciona perfectamente en Win10 con nombres con espacios. Probablemente el problema que tienes sea otro, o que el archivo que deseas abrir no exista.

 

Revisa bien lo que hay en ListView1.Items.Item[i].SubItems[3]

 

Saludos.
 

[audiopesa]

Perfecto ecafandra.

 

resulto de esta manera.

php

ShellExecute(Handle,'open',PChar(EditNotepad.Text),PChar('"'+archivo+'"'), nil, SW_SHOWNORMAL) ;