Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Nombre de volumen de una unidad lógica determinada

Esta función nos devolverá el nombre de volumen de la unidad lógica cuya letra pasemos como parámetro a la función.

Código Delphi [-]
uses
  Windows;

function GetVolumeName(const drive: char) : string;
var
  dummy: DWORD;
  buffer: array[0..MAX_PATH] of Char;
begin
  GetVolumeInformation(PChar(drive + ':\'),
    buffer, SizeOf(buffer), nil, dummy, dummy, nil, 0);
  Result := StrPas(buffer);
end;
Responder Con Cita