Fórum Verificar e Criar Chave no Registro do Windows #393693
12/01/2011
0
Seguinte pessoal,, preciso verificar no registro do windows se existe a seguinte chave: HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper. Esta chave Wallpaper é do tipo "Valor de Seguencia"
Preciso fazer uma rotina na qual vai verificar se existe esta chave, se não existir eu crio ela.
Começei por aqui para ver:
var
r: TRegistry;
begin
r := TRegistry.Create;
r.RootKey := HKEY_CURRENT_USER;
If r.KeyExists('Control Panel\Desktop\Wallpaper') then
ShowMessage('Existe!')
Else
ShowMessage('Não Existe!');
end;
Só que deve ter coisa errada ai.
Alguém pode me ajudar?
Preciso fazer uma rotina na qual vai verificar se existe esta chave, se não existir eu crio ela.
Começei por aqui para ver:
var
r: TRegistry;
begin
r := TRegistry.Create;
r.RootKey := HKEY_CURRENT_USER;
If r.KeyExists('Control Panel\Desktop\Wallpaper') then
ShowMessage('Existe!')
Else
ShowMessage('Não Existe!');
end;
Só que deve ter coisa errada ai.
Alguém pode me ajudar?
Leandro Carvalho
Curtir tópico
+ 0
Responder
Posts
13/01/2011
Wilson Junior
Veja o link http://www.codigofonte.net/dicas/delphi/255_acessando-manipulando-o-registro-do-windows
Espero ter colaborado.
Espero ter colaborado.
Responder
Gostei + 0
13/01/2011
Leandro Carvalho
Já consegui.
Da seguinte forma:
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Control Panel\Desktop', False);
If Reg.ValueExists('Wallpaper') then
begin
ShowMessage('Valor existe no registro.');
end
Else
begin
ShowMessage('Valor não existe no registro.');
Reg.WriteString('Wallpaper', 'C:\meupapeldeparede.bmp');
end;
Finally
Reg.Free;
end;
Da seguinte forma:
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Control Panel\Desktop', False);
If Reg.ValueExists('Wallpaper') then
begin
ShowMessage('Valor existe no registro.');
end
Else
begin
ShowMessage('Valor não existe no registro.');
Reg.WriteString('Wallpaper', 'C:\meupapeldeparede.bmp');
end;
Finally
Reg.Free;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)