O usuário que logado na máquina, quando roda esse código, possui direitos
administrativos sobre ela?
Sds.
To: delphi-br@yahoogrupos.com.br
From: eduko...@yahoo.com.br
Date: Thu, 10 Sep 2009 13:51:16 -0300
Subject: [delphi-br] Alterar valor do registro
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;
.
_________________________________________________________________
Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique aqui.
http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmail&utm_medium=Tagline&utm_campaign=MobileServices200908
[As partes desta mensagem que não continham texto foram removidas]
