[ecfisa]

Hola jhonalone.

¡Qué grande eres

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'); // 'Dir' debe haber sido creado con anterioridad
end;
...

Pero como te dije arriba vas a tener que probarlo, no tengo manera de hacerlo ahora.

Un saludo.