Localización real de una unidad mapeada.

[rfernandez]

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.

[roman]

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



{
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

[rfernandez]

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.

[Crandel]

usa esta función


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;