Galera, peguei esta dica na internet, mas não ta funcionando no windows
2000.
Alguem tem alguma que funcione? (de preferencia em todos os windows, 98,
2000, NT e XP)
//Lê informações da Empresa cadastrado na máquina
procedure TForm1.Button1Click(Sender: TObject);
var
Info: TRegDataInfo;
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', FALSE)
then
Reg.GetDataInfo('RegisteredOrganization', Info);
Label1.Caption := 'Empresa...: ' +
Reg.ReadString('RegisteredOrganization');
Label2.Caption := 'Usuario...: ' + Reg.ReadString('RegisteredOwner');
end;
~\\|//~
-(o o)-
o--------------oOOOo--(_)--oOOOo-------------o
| |
| Eduardo de Almeida Silva |
| Câmara Municipal de Lençóis Paulista |
| [EMAIL PROTECTED] - (14)3263-0326 |
| |
| .oooO Oooo. |
o----------------( )---( )---------------o
\ ( ) /
\_) (_/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
