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