Editar Regedit via Delphi
Gente, boa tarde.
Estou com o seguinte problema, tenho que rodar uma arquivo de configuração do regedit para ajustar o wallpaper que algumas vezes dá erro.
A rodina é essa:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Scheme]
Edit=
Display=
Em delphi coloquei um button e estou executando a seguinte rotina e não está funcionando:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
FReg : TRegistry;
begin
try
FReg := TRegistry.Create( KEY_ALL_ACCESS );
FReg.RootKey := HKEY_CURRENT_USER;
if FReg.OpenKey(\Software\Microsoft\Internet Explorer\Desktop\Scheme, False ) then
begin
if FReg.KeyExists( Edit ) then
FReg.WriteString(Edit, )
else
begin
// Senão cria a chave e joga o valor
FReg.WriteString( Edit, );
end;
end;
// Finaliza a parte de inserção no registro do windows.
finally;
FReg.CloseKey;
FreeAndNil( FReg );
ShowMessage (Configurações aplicadas com sucesso.);
end;
end;
Alguma sugestão?
Estou com o seguinte problema, tenho que rodar uma arquivo de configuração do regedit para ajustar o wallpaper que algumas vezes dá erro.
A rodina é essa:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Scheme]
Edit=
Display=
Em delphi coloquei um button e estou executando a seguinte rotina e não está funcionando:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
FReg : TRegistry;
begin
try
FReg := TRegistry.Create( KEY_ALL_ACCESS );
FReg.RootKey := HKEY_CURRENT_USER;
if FReg.OpenKey(\Software\Microsoft\Internet Explorer\Desktop\Scheme, False ) then
begin
if FReg.KeyExists( Edit ) then
FReg.WriteString(Edit, )
else
begin
// Senão cria a chave e joga o valor
FReg.WriteString( Edit, );
end;
end;
// Finaliza a parte de inserção no registro do windows.
finally;
FReg.CloseKey;
FreeAndNil( FReg );
ShowMessage (Configurações aplicadas com sucesso.);
end;
end;
Alguma sugestão?
Fábio Sela
Curtidas 0
Respostas
Deivison Melo
29/06/2012
Pesquise por impersonificação!
Assim você dará privilêgios de usuários comuns acessarem o registro via sistema!
Assim você dará privilêgios de usuários comuns acessarem o registro via sistema!
GOSTEI 0