Existe porque foi criada pelo seu programa ou por terceiros, mas no
original o Windows 7 não trás este valor. Eu uso o Windows 7 32 bits.
pode ser que venha no de 64 bits (mas ainda assim eu duvido).
Em 21/01/2010 10:52, Marcelo Magnani escreveu:
>
> Desculpe a intromissão, mas a chave ProductName existe sim no Windows 7. O
> problema deve ser outro.
>
> A função abaixo foi testada no Windows 7 e funcionou normalmente.
>
> function NomeProduto: String;
>
> var
>
> registro_aux: TRegistry;
>
> begin
>
> registro_aux := TRegistry.Create;
>
> Result := '';
>
> try
>
> registro_aux.RootKey := HKEY_LOCAL_MACHINE;
>
> if (registro_aux.OpenKey ('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',
> False)) then
>
> begin
>
> Result := registro_aux.ReadString ('ProductName');
>
> registro_aux.CloseKey;
>
> end;
>
> finally
>
> registro_aux.Free;
>
> end;
>
> end;
>
> Abraços
>
[As partes desta mensagem que não continham texto foram removidas]
