Abrir cualquier documento

[Ivan_25]

Hola a tod@s!. Tengo unas fichas de personas, y lo que quiero saber es como hacer para que al hacer click en un boton se me abra el documento que tiene asociado una persona, ya sea word, excel, html, pdf o lo que sea. El nombre del documento sera codigo.doc, o codigo.html, etc, y codigo es el codigo de la persona que esta guardado en un campo de una tabla en una bd access, y que muestro en un DBEdit (conexion ADO). ¿Se puede hacer que me salga una vista previa de este documento como hace windows?. Gracias a tod@s.

[Neftali [Germán.Estévez]]

Busca ayuda sobre ShellExecute.

Código Delphi [-]
 ShellExecute(Self.Handle, 'open', PChar('codigo.doc'), nil, nil, 0);
 ShellExecute(Self.Handle, 'open', PChar('codigo.html'), nil, nil, 0);
 ...
 ShellExecute(Self.Handle, 'open', PChar(DBEdit1.Text), nil, nil, 0);

[Ivan_25]

Hola Neftali. He encontrado el siguiente trozo de codigo:

ShellExecute(NULL, "open", DBECodigo->Text.c_str(), NULL, NULL, SW_SHOWNORMAL)

El problema que tengo es que en DBECodigo tengo el codigo de la persona que es el nombre del archivo, pero me falta la extension y la ruta hasta éste. He probado haciendo:

ShellExecute(NULL, "open", "expedientes/"+DBECodigo->Text.c_str()+".pdf", NULL, NULL, SW_SHOWNORMAL)

pero me da fallo. ¿Sabes cual es el problema?. Gracias por contestar tan rapido.

[Casimiro Notevi]

  "expedientes/"+DBECodigo->Text.c_str()+".pdf"

¿y eso devuelve una ruta y nombre correctas?, en principio, si es windows, la barra debe ir del revés '\'...

[Ivan_25]

Si utilizo

ShellExecute(NULL, "open", "expedientes/"+DBECodigo->Text.c_str()+".pdf",NULL, NULL, SW_SHOWNORMAL);

me da fallo de puntero no valido en el '+'.

Si utilizo

ShellExecute(NULL, "open", "expedientes\"+DBECodigo->Text.c_str()+".pdf",NULL, NULL, SW_SHOWNORMAL);

con la barra al reves me da varios fallos como cadena no terminada, o que me falta ->, etc..

[Casimiro Notevi]

¿y has probado a crear la cadena antes y luego pasarla al shellexecute?

 cVariable = "expedientes/" + DBECodigo->Text.c_str() + ".pdf";
  ShellExecute(NULL, "open",cVariable,NULL, NULL, SW_SHOWNORMAL);

de paso puedes ver qué hay realmente en cVariable.