Fórum nome de disquete ou cd #196278
20/11/2003
0
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
Já pesquisei mas não consegui encontrar em lugar nenhum
Obrigado
Apf56
Curtir tópico
+ 0
Responder
Posts
01/02/2004
Reynaldo Giane
Entra em MEU COMPUTADOR e lá você olha...
Responder
Gostei + 0
01/02/2004
Beppe
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)