[Delphi] Bloqueando Dispositivos USB

[mgbcrazy 0]

Você vai precisar de:

• Conhecimento básico em Delphi
• Delphi
• 2 Botões

Declare em uses: Registry

 

No Caption do primeiro botão escreva : Bloquear USB

No Caption do segundo botão escreva : Desbloquear USB

 

De 2 cliques no botão Bloquear USB e digite o seguinte codigo:

var

reg : TRegistry;

begin

reg := TRegistry.create;

with reg do

begin

RootKey := HKEY_LOCAL_MACHINE;

if OpenKey('\SYSTEM\CurrentControlSet\Services\UsbStor', false) then

begin

//quatro bloqueia

reg.WriteInteger('Start', 4);

//caminho do arquivo que o windows usa para montar a unidade usb

reg.WriteString('ImagePath', '_system32\DRIVERS\USBSTOR.SYS');

end;

CloseKey;

end;

end;

Dê 2 cliques no botão Desbloquear USB e digite o seguinte codigo:

 

Procedure desbloquearUSB;

var

reg : Tregistry;

begin

reg := TRegistry.Create;

with reg do

begin

RootKey := HKEY_LOCAL_MACHINE;

if OpenKey('\SYSTEM\CurrentControlSet\Services\UsbStor', false) then

begin

//tres desbloqueia

reg.WriteInteger('Start', 3);

//caminho do arquivo que o windows usa para montar a unidade usb

reg.WriteString('ImagePath', 'system32\DRIVERS\USBSTOR.SYS');

end;

end;

 

Simples assim.

Créditos: Coca-Cola and Jumper

[bidoow 0]

bem legal mano, mais de taarde eu testo :] agradeçido

[amcorporation 1]

Axei muito interresante pois podemos fazer um programa de proteção, por exemplo se tiver um computador de escola, varias pessoas colocam virus no computador com pen drives.

Gostei muito do seu Tutorial, levou meu thx.

[DragonBoss 8]

boa dica de novo vlho..

OBS a todos ke forem testar o codigo, antes de copiar e colar somente, leiam a explikaçao e entendam o ke ele faz ( ele nao "blokeia seu usb"..) ele desabilita a chave ke faz funcionar seu usb, assim, ele fika desativado, e depois o otro botao soh ativa a chave d novo ^^

 

flw ae, abraçs

 

(( parabens ae pela sua participaçao no forum, ta trazendo otimas dicas pra ka ^^ ))

[mgbcrazy 0]

amcorporation a idéia eh basicamente com esse fundamento (:

 

DragonBoss eu lembro q o primeiro topico que eu vi aki foi akele seu de como criar tela de apresentação e vc sempre dizendo " nunca so copie e cole o codigo leia e entenda" a partir de entao faço isso e sempre digo para os outros tbm.

 

nao foi eu q criei o codigo tem ate os creditos ali, mas vc entendeu certin xD

[JoaoZiicka~ 0]

Valeu cara, testado e aprovado, e obrigado pela ajuda no msn.