nome de disquete ou cd

Delphi

20/11/2003

Como fazer para saber o nome do disquete ou cd-rom colocado na unidade de leitura.
Já pesquisei mas não consegui encontrar em lugar nenhum

Obrigado


Apf56

Apf56

Curtidas 0

Respostas

Reynaldo Giane

Reynaldo Giane

20/11/2003

Entra em MEU COMPUTADOR e lá você olha...


GOSTEI 0
Beppe

Beppe

20/11/2003

function GetVolumeLabel(const Drive: String): String;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  GetVolumeInformation(Pointer(Drive), Buffer, High(Buffer), nil, Cardinal(nil^),
    Cardinal(nil^), nil, 0);
  Result := Buffer;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetVolumeLabel(´D:\´);
end;


Pode ser qualquer volume, inclusive cada partição no HD.


GOSTEI 0
POSTAR