Manipular o Registro do Windows

Algumas vezes surge a necessidade de se utilizar os valores do registro do windows, então em primeiro lugar devemos ter em mente exatamente qual a chave devemos procurar, no nosso exemplo vamos buscar o nome do usuário logado no windows, então vamos ao exemplo:

var
objRegistro : TRegistry;

begin
vl_objRegistro := TRegistry.Create;
TRY
vl_objRegistro.RootKey := HKEY_CURRENT_USER;
IF vl_objRegistro.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer', True) THEN
Edit.Text := UpperCase( vl_objRegistro.ReadString('Logon User Name') );
FINALLY
objRegistro.Free;
END;

end;