Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Arquivos, Diretórios e Discos

Como alterar o nome de volume (label) de uma unidade de armazenamento?

A função SetVolumeLabel altera o nome de volume (label) do volume informado como parâmetro.

  • Inclua na seção uses: Windows
  • Coloque um botão no formulário.
  • Programe o evento OnClick do botão como abaixo.
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not SetVolumeLabel('C:\', 'NovoNome') then
    RaiseLastOSError;
end;

Para trocar o nome de volume da unidade corrente, informe nil como primeiro parâmetro da função: SetVolumeLabel(nil, 'NovoNome')

O conteúdo desta página pode ajudar alguém? Compartilhe!