Sim, mas isso não tem problema. Eu preciso do programinha alterando o valor do registro, a idéia seria compactar o exe com senha. Ai, qdo eu precisar usar um pen drive, eu descompacto, uso o programa e compacto novamente.
É um micro local...sem rede, etc....pois preciso bloquear que as pessoas usem pen drives e outros dispositivos USB _____ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: quinta-feira, 10 de setembro de 2009 13:56 Para: delphi-br Assunto: RE: [delphi-br] Alterar valor do registro Prioridade: Alta O usuário que logado na máquina, quando roda esse código, possui direitos administrativos sobre ela? Sds. To: delphi...@yahoogrup <mailto:delphi-br%40yahoogrupos.com.br> os.com.br From: eduko...@yahoo. <mailto:edukobra%40yahoo.com.br> 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.windowsl <http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmail&utm_m edium=Tagline&utm_campaign=MobileServices200908> ive.com.br/celular/home.asp?utm_source=MSN_Hotmail&utm_medium=Tagline&utm_ca mpaign=MobileServices200908 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
