Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

[Tutorial] Manipulando Registro - Delphi 7

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3778
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

[Tutorial] Manipulando Registro - Delphi 7

Mensagem por MrViSiBLe em 7/21/2010, 06:36

[Tutorial] Manipulando Registro - Delphi 7

Criando Valor:


Código:

Uses
Registry;

var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false);
Reg.WriteString('Delphi', 'C:\Arquivos de programas\Borland\Delphi7\Bin\delphi32.exe');
Reg.CloseKey;
Reg.Free;




Red = É a chave do registro do Windows.[Você precisa estar registrado e conectado para ver este link.]
Green = Caminho da chave do Registro do Windows.
Pink = É o nome do Valor a ser criado.
Orange = É o Valor a ser criado.

Excluindo Valor:

Código:

Uses
Registry;

var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false);
Reg.DeleteKey('Delphi');
Reg.CloseKey;
Reg.Free;




Red = É a chave do registro do Windows.
Green = Caminho da chave do Registro do Windows.
Pink = É o nome do Valor a ser excluido.

Editando Valor:



Código:

Uses
Registry;

var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false);
Reg.ReadString('Delphi', 'C:\Delphi7\Bin\delphi32.exe');
Reg.CloseKey;
Reg.Free;




Red = É a chave do registro do Windows.
Green = Caminho da chave do Registro do Windows.
Pink = É o nome do Valor a ser criado.
Orange = É o Valor a ser editado.


Lendo Valor:

Código:

Uses
Registry;

var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false);
Label1.Caption:=Reg.ReadString('Delphi');
Reg.CloseKey;
Reg.Free;




Red = É a chave do registro do Windows.
Green = Caminho da chave do Registro do Windows.
Pink = É o nome do Valor a ser lido.
Orange = Onde vai aparecer o valor.

Créditos: All - Iroshi

    Data/hora atual: 9/23/2017, 01:41