Verificando se uma chave existe no registro


No exemplo abaixo, vamos testar se a chave com o nome 'Anderson' existe no registro. Se existir, escrevemos os valores de 'Sobrenome' e 'Idade'.


[Registry]
Root: HKLM; SubKey: SOFTWARE\Anderson; ValueType: string; ValueName: Sobrenome; ValueData: Bravo; Check: keyExists
Root: HKLM; SubKey: SOFTWARE\Anderson; ValueType: dword; ValueName: Idade; ValueData: 28; Check: keyExists

[Code]
function keyExists(): Boolean;
begin
  if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Anderson') then
      Result := False
  else
      Result := True;
end;





Comentários

Copyright © 2018 Anderson Bravo
www.andersonbravo.com.br
anderson@andersonbravo.com.br