Reemplazar archivo al reinicar el equipo

[jhonalone]

Compañeros, TENGO QUE RECTIFICARME. Pensaba que el problema estaba en la longitud de la cadena. Pues haciendo pruebas, he comprobado que es porque existen mas de 4 subdirectorios que comienzan con las mismas 8 letras dentro del mismo directorio. Hasta el cuarto todo va bien. Si intentas averiguar la cadena corta desde el quinto, por orden de creación, ya se desmadra el GetShortPaathName. Si alguien quiere comprobarlo, puede hacerlo con esta sencilla función.

Function Ruta:string;
var
DirActual:String;
corto:array [1..400] of char;
longitud:Cardinal;
begin
GetDir(0,DirActual);
GetShortPathName(PChar(DirActual),@corto,longitud);
Ruta:=corto;
end;