Buscar

Obtendo o tipo de dado de um valor no registro do windows

Código

{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 = 'SystemCurrentControlSetcontrolFileSystem';
  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; {A unit Dialogs foi acrescentada no uses somente para podermos usar a procedure ShowMessage }

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 23/06/03
Por: Felipe Monteiro
Visualizada: 1817 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009