Localización real de una unidad mapeada.
 

Buenas compañeros.
Necesito saber si una unidad de disco es local o esta mapeada de otra maquina en red y en el caso de que este mapeada el valor real de la ruta de acceso.
Es decir si tengo la unidad F:\ que realmente es una unidad de la maquina llamada SERVIDOR i apunta a c:\documentos de dicha maquina saber por un lado que la maquina se llama SERVIDOR, o en su defecte su IP, i por otra la ruta c:\documentos.

Gracias.

Te pongo una rutinas para manejar mapeos que usé hace algún tiempo. Espero te sean de utilidad.

Código Delphi [-]
{
  Determina si una unidad lógica está disponible o no
}
function DriveAvailable(Drive: Char): Boolean;
var
  DriveType: Cardinal;

begin
  DriveType := GetDriveType(PChar(String(Drive) + ':'));
  Result := DriveType in [DRIVE_NO_ROOT_DIR, DRIVE_REMOTE];
end;

{
  Devuelve la ruta de red asignada a una unidad lógica
}
function GetConnection(Drive: Char): String;
var
  Buffer: PChar;
  BufferLen: Cardinal;
  Code: Cardinal;

begin
  Buffer := nil;
  BufferLen := 0;

  Code := WNetGetConnection(PChar(String(Drive) + ':'), Buffer, BufferLen);
  if Code = ERROR_MORE_DATA then
  begin
    GetMem(Buffer, BufferLen);
    Code := WNetGetConnection(PChar(String(Drive) + ':'), Buffer, BufferLen);
  end;

  case Code of
    NO_ERROR: Result := Buffer;
    ERROR_NOT_CONNECTED: Result := '';
    ERROR_CONNECTION_UNAVAIL: Result := 'Connection is unavailable';
  else
    raise Exception.CreateFmt('Error reading information for drive %s:', [Drive]);
  end;

  if BufferLen <> 0 then FreeMem(Buffer);
end;

{
  Devuelve si una unidad lógica está redirigida o no
}
function IsMapped(Drive: Char): Boolean;
begin
  Result := GetConnection(Drive) <> '';
end;

{
  Devuelve si una ruta de red puede asignarse
  a una unidad lógica o no.
}
function IsMappable(Path: String): Boolean;
var
  ShFileInfo: TShFileInfo;

begin
  ShGetFileInfo(PChar(Path), 0, ShFileInfo, SizeOf(ShFileInfo), SHGFI_ATTRIBUTES);
  Result := ShFileInfo.dwAttributes and SFGAO_FILESYSTEM <> 0;
end;

{
  Redirige una unidad lógica a una ruta de red
}
procedure MapDrive(Drive: Char; NetPath: String; MakePermanent: Boolean);
var
  NetResource: TNetResource;
  Flags: Cardinal;
  Code: Cardinal;

begin
  NetResource.dwType := RESOURCETYPE_DISK;
  NetResource.lpLocalName := PChar(String(Drive) + ':');
  NetResource.lpRemoteName := PChar(NetPath);
  NetResource.lpProvider := nil;

  if MakePermanent
    then Flags := CONNECT_UPDATE_PROFILE
    else Flags := 0;

  Code := WNetAddConnection2(NetResource, nil, nil, Flags);
  if Code <> NO_ERROR then
    RaiseLastOSError;
end;

// Saludos

Casi.
Super interesante lo que me has enviado, seguro que lo reutilizaré para alguna cosa.

Pero lo que necesito es que la funcion que me envias GetConnection(drive) en lugar de enviarme la ruta mapeada, por ejemplo, \\servidor\documentos, me enviase seria la ruta fisica real de 'documentos' por ejemplo c:\datos\documentos del ordenador 'servidor'.

Gracias de todas todas.

usa esta función

Código Delphi [-]
Function GetDrivePath(DriveLetter:String):String;
var Buffer: array[0..255] of char;
begin
    DriveLetter := Copy(DriveLetter,1,1)+':';
    FillChar(Buffer,SizeOf(Buffer),#0);
    QueryDosDevice(PChar(DriveLetter),Buffer,SizeOf(Buffer));
    Result := StrPas(Buffer);
End;