Francamente heim!!! :(
Como você posta uma resposta dessa sem primeiro ir lá no regedit
verificar se esta chave existe ou não?
ProductName EXISTE SIM! no Windows 7
RSRSRS
Desculpe mais eu não resisti! Realmente existe sim...
2010/1/21 EmbarcaDelphi <embarcadel...@yahoo.com.br>
> Francamente heim!!! :(
>
> Como você posta uma pergunta dessa sem primeiro ir lá no regedit
> verificar se esta chave existe ou não?
> ProductName não existe no Windows 7
>
>
> Em 20/01/2010 15:47, rcesa...@ymail.com escreveu:
> >
> > Prezados,
> >
> > Tenho um aplicação que lê algumas informações do registro do Windows.
> > No Windows XP ela funciona sem problemas, mas no Windows 7 a leitura
> > das mesmas chaves não traz valor nenhum e também não dá erro.
> >
> > Uma das funções de leitura é a seguinte:
> >
> > 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;
> >
> > Será que alguém poderia me dizer o que fazer pra essa função retornar
> > o valor da chave no Windows 7?
> >
> > Obrigado.
>
[As partes desta mensagem que não continham texto foram removidas]
