[[Lepe]]

si tu aplicación se está ejecutando en el CD, bastaría con:

Código Delphi [-]
rutaOrigen := ExtractFileDir(application.exeName)

Si quieres copiar el archivo a la unidad donde está el windows instalado, podrías usar una función tipo "GetWindowsDir" y extractFileDrive para obtener la letra de dicha unidad.

Código Delphi [-]
// función original de NKLIB.
function GetWinDir: String;
begin
  SetLength(Result, MAX_PATH);
  GetWindowsDirectory(PChar(Result), MAX_PATH);
  SetLength(Result, StrLen(PChar(Result)));
end (*GetWinDir*);

Empezado por AzidRain

Si no indicas la unidad, el programa toma por defecto la unidad en donde se esta ejecutando el programa

Siempre que se me ha olvidado la ruta absoluta, el archivo ha terminado en la carpeta windows . Creo recordar que la ruta activa del sistema operativo es distinto de la ruta de tu aplicación.

Tengo entendido (aunque no comprobado) que en tu aplicación puedes usar chDir (creo que esa es la función de delphi) para cambiar la ruta activa del S.O. pero, cualquier programa en ejecución podría hacer lo propio, con lo cual a saber donde se marcha el archivo.

Yo al menos, prefiero no liarme y uso siempre rutas absolutas.

Saludos