Ejecutar Archivos Adjuntos
 

Hola a todos:

Trabajo con delphi 5 y las Indy9.

He hecho un programa donde recibo correos electronicos. Además de otras cosas, saco en un Listview los ficheros adjuntos que tiene el mensaje. Quiero ejecutarlos/visualizarlos (caso que sean *.exe,*.doc o *.pdf) haciendo un click sobre ellos (en el listview) con el programa que windows tenga asignado para ello. Lo que ocurre y ese es el problema que no se donde se almacenan dichos archivos cuando son recibidos para poder hacer un ShellExecute indicando el path correcto.

Utilizo

Código Delphi [-]
SetLength(fTempDir, GetTempPath(0, nil));
SetLength(fTempDir, GetTempPath(Length(fTempDir), PChar(fTempDir)));
fTempDir := IncludeTrailingBackSlash(fTempDir);

y esto

Código Delphi [-]
ShellExecute(Handle,nil,Pchar(FTempDir + TIdAttachment(Msg.MessageParts.Items[lvMessageParts.Selected.Index +3]).Filename),'','',SW_Shownormal);

Pero no encuentra el mensaje y por consiguiente no lo ejecuta.

Muchas gracias por leer mi mensaje e intentar ayudarme.
Marcial