Buscar

Pegando o registro do windows

Código

Unit Registry
procedure TSplash_Form.FormActivate(Sender: TObject);
var
  reg: TRegIniFile;
begin
  reg := TReginiFile.Create('SOFTWAREMICROSOFTMS SETUP (ACME)');
  Label1.Caption := reg.ReadString('USER INFO','DefName','');
  reg.Free;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 2508 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009