(Resolvido) mudar o registro no regedit

[danielrgoes]

Bom dia pessoal

Gostaria de saber como eu faço pra mudar o valor de um registro no regedit o registro é esse

HKEY_CURRENT_USER\Identities\ minha identidade \Software\Microsoft\Outlook Express\5.0\Compact Check Count

nesse queria mudar o valor dele pra 0

muito obrigado

Editado Dezembro 1, 2009 por danielrgoes

[Polyanna Wenze]

crie um procedimento onde você pode alterar qualquer valor no registro.

procedure AlterarRegistro(Chave,Parametro:string;SimNao: Boolean);

const

Registro = '\Software\Microsoft\Windows\CurrentVersion\Policies\'; <- aqi é o caminho do registro

YesNo : array[False .. True] of Word = (0, 1);

begin

with TRegistry.Create do

try

RootKey:=HKEY_CURRENT_USER;

if OpenKey(Registro + Chave, True) then

WriteInteger(Parametro,YesNo[simNao]);

CloseKey;

finally

Free;

end;

pra chamar o procedimento: AlterarRegistro('Explorer\','NoLogoff',True ou False);

True=1 e false=0

E n sqeça de declarar Registry na Uses.

Espero ter ajudado..

[danielrgoes]

crie um procedimento onde você pode alterar qualquer valor no registro.

procedure AlterarRegistro(Chave,Parametro:string;SimNao: Boolean);

const

Registro = '\Software\Microsoft\Windows\CurrentVersion\Policies\'; <- aqi é o caminho do registro

YesNo : array[False .. True] of Word = (0, 1);

begin

with TRegistry.Create do

try

RootKey:=HKEY_CURRENT_USER;

if OpenKey(Registro + Chave, True) then

WriteInteger(Parametro,YesNo[simNao]);

CloseKey;

finally

Free;

end;

pra chamar o procedimento: AlterarRegistro('Explorer\','NoLogoff',True ou False);

True=1 e false=0

E n sqeça de declarar Registry na Uses.

Espero ter ajudado..

Claro que ajudou simmmmm

valeu pela ajudaaaa cara

se precisar estamos ai

[Polyanna Wenze]

Q bom q lhe ajudou 'cara'.. ;D

[]'s