[delphi-br] Alterar valor do registro

Thu, 10 Sep 2009 09:51:39 -0700 

Galera, fiz o seguinte código para alterar o valor do registro e controlar a
liberação/travamento das portas USB do meu micro.

 

Só que não esta funcionando (não esta alterando o valor).

 

Alguém pode me dar uma mão?

 

Obrigado,

 

procedure TForm1.btnLiberaClick(Sender: TObject);

begin

   // HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR

   // Valor 3 para liberar

 

   // Chama o construtor do objeto

   Registro := TRegistry.Create;

   { Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela
ainda não exista. }

   Registro.OpenKey (Raiz, True);

   // Grava as informações do form

   Registro.WriteInteger ('Start', 3);

   // Fecha a chave e o objeto

   Registro.CloseKey;

   Registro.Free;

end;

 

procedure TForm1.btnTravaClick(Sender: TObject);

begin

   // HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR

   // Valor 4 para bloquear

 

   // Chama o construtor do objeto

   Registro := TRegistry.Create;

   { Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela
ainda não exista. }

   Registro.OpenKey (Raiz, True);

   // Grava as informações do form

   Registro.WriteInteger ('Start', 4);

   // Fecha a chave e o objeto

   Registro.CloseKey;

   Registro.Free;

end;



[As partes desta mensagem que não continham texto foram removidas]

Responder a