Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Nombre de volumen de una unidad lógica determinada (https://www.clubdelphi.com/foros/showthread.php?t=80404)

dec 07-06-2006 04:46:59

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;


La franja horaria es GMT +2. Ahora son las 22:04:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi