Con lo que me has dicho he pasado el QR a un .txt, y ahora estoy intentando poner el contenido de ese txt en el mail leyendolo linea a linea pero el problema esta en que leo strings y los sumo y eso, pero la variable en cuestion del ShellExecute es un PAnsiChar y me de error... Yo lo hago asi:
Código:
var linea:string;
assignfile(fichero,'manolo.txt');
reset(fichero);
readln(fichero,linea);
CloseFile(fichero);
ShellExecute(Handle,'open','mailto:subject=Presupuesto&Body='+linea,nil,nil,SW_SHOW);
y falla.... Me podriais ayudar.Gracias