PDA

Ver la Versión Completa : Nombre de volumen de una unidad lógica determinada


dec
07-06-2006, 04:46:59
Esta función nos devolverá el nombre de volumen de la unidad lógica cuya letra pasemos como parámetro a la función.


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;