Obtendo 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 = '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 }