Porta USB

Question

Algu�m sabe como fa�o para bloquear e desbloquear a porta USB da m�quina via programa��o delphi?...

Nasguone · Answer

Crie uma chave no registro:HKEY_LOCAL_MACHINE  sistema  CurrentControlSet control.De um clique direito e cr�a chave nova e nomeia �StorageDevicePolicies�. Na janela na direita ent�o criar um valor novo de DWORD e etiquet�-lo WriteProtect, d�o-lhe um valor de �1� e os usu�rios j� n�o podem mais escrever �s movimenta��es do USB. Para re-enable esta basta mudar o valor a 0 e s�o permitidos outra vez aos usu�rios escrever no pen drive ou outro dispositivo....

Leufmt · Answer

Mas como fa�o isso no Delphi?...

Nightshade · Answer

Var Reg: TRegistry;Reg := TRegistry.Create;with Reg dobeginRootKey := HKEY_LOCAL_MACHINE;OpenKey(�sistemaCurrentControlSetcontrol�,False);WriteInteger(�StorageDevicePolicies�,1);CloseKey;Free;end;poe na clausula uses Registry[]�s...

Leufmt · Answer

Esta dando o seguinte erro:Project Project2.exe raised exception class ERegistyExecption with message �Failed to set data for �StorageDevicePolicies��. Process Stopped. Use Step or Run to continue....

Nightshade · Answer

a chave nao se chama sistema, e sim system, tenta com system q dara certo..flw...

Leufmt · Answer

Agora n�o deu erro.Mas n�o esta funcionando. Pois n�o esta desabilitando e nem habilitando o usb...

Nightshade · Answer

procedure TFrmMain.PenDrive(B: Boolean);
var
Reg: TRegistry;
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(�\SYSTEM\CurrentControlSet\Services\USBSTOR\�,False);
if (B) then
begin
Reg.WriteInteger(�Start�,4);
end
else
begin
Reg.WriteInteger(�Start�,3);
end;
Reg.CloseKey;
Reg.Free;
except

end;
end;

essa fun�ao eu mesmo desenvolvi, e funciona legal aki..
utilize PenDrive(True);
para blockear a USB e PenDrive(False); para reabri ela..
[]�s

F�rum Porta USB #337625