Hola jhonalone.
Si quitás la lupa vas a ver que no es así...
Ahora fuera de bromas, lo que creo que al trabajar de ese modo, vas a tener que efectuar todas tus acciones desde la ubicación de la aplicación. Ya que es el único punto de referencia en común entre
DESKTOP y
NOTEBOOK.
Es decir que tu centro de operaciones debería ser:
Desde el equipo de escritorio (DESKTOP):
C:\MiPrograma o ya sea, visto desde la laptop (NOTEBOOK):
\\DESKTOP\MiPrograma
No estoy en red para probar el código siguiente, pero pienso que debería funcionar en ambos equipos.
Ubicándonos en
DESKTOP, y suponiendo que tenemos:
C:\MiPrograma\arch1.e1 y quisieramos guardar
arch1.e1 en la carpeta
C:\MiPrograma\Dir :
Código Delphi
[-]
procedure CopiarArchivo(Origen, Destino: string; const Nombre: string);
begin
Origen:= IncludeTrailingPathDelimiter(Origen)+Nombre;
Destino:= IncludeTrailingPathDelimiter(Destino)+Nombre;
if not CopyFile(PChar(Origen), PChar(Destino), True) then
ShowMessage('Error al intentar copiar el archivo');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
PtoPartida: string;
begin
PtoPartida:= ExtractFilePath(Application.ExeName);
CopiarArchivo(PtoPartida, PtoPartida+'Dir', 'arch1.e1'); end;
...
Pero como te dije arriba vas a tener que probarlo, no tengo manera de hacerlo ahora.
Un saludo.