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 - Outros

Como obter o tipo de dado de um valor no Registro do Windows?

Inclua na seção uses: Registry, Dialogs
{
  - Coloque um botão no form;
  - Altere o evento OnClick do botão conforme abaixo:
}

procedure TForm1.Button1Click(Sender: TObject);
const
  cRegPath = 'System\CurrentControlSet\control\FileSystem';
  cRegValue = 'ACDriveSpinDown';
var
  Reg: TRegistry;
  S: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(cRegPath, false) then begin
      case Reg.GetDataType(cRegValue) of
        rdUnknown: S := 'Tipo Desconhecido';
        rdString:  S := 'String';
        rdExpandString: S := 'ExpandString';
        rdInteger: S := 'Inteiro';
        rdBinary:  S := 'Binário';
      end;

      ShowMessage(S);

    end else
      ShowMessage('Erro ao abrir chave do Registro');
  finally
    Reg.Free;
  end;
end;

Observações

A unit Dialogs foi acrescentada no uses somente para podermos usar a procedure ShowMessage.

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