Probe esto, me muestra el directorio de la pc, pero despues puedo irme a otros directorios...
Cita:
path1 := GetEnvironmentVariable('userprofile');
Path1 := Path1+'\'+'xx.doc';
path := Fichero;;
CopyFile(pchar(path),pchar(path1),FALSE);
Fichero := Path1;
|