Detectar USB

[mefixxto]

Como hago que mi aplicacion desabilite y habilite los usb??:confused:

[ecfisa]

Hola mefixxto.

Desde Delphi, se puede hacer así:

procedure ActivarUSB(Activo: Boolean);
begin
with TRegistry.Create do
try
RootKey:= HKEY_LOCAL_MACHINE;
if OpenKey('\SYSTEM\CurrentControlSet\Services\USBSTOR',True) then
begin
if Activo then
WriteInteger('Start',3)
else
WriteInteger('Start',4);
CloseKey;
end;
finally
Free;
end;
end;


Ejemplos de llamada:

...
procedure TForm1.btActivarClick(Sender: TObject);
begin
ActivarUSB(True);
end;

procedure TForm1.btDesactivarClick(Sender: TObject);
begin
ActivarUSB(False);
end;
...



Saludos. :)

[javier_ecf]

El tema se llama 'Detectar USB' causa confusion con el verdadero problema que era habilitar/deshabilitar el puerto USB.

[look]

El tema se llama 'Detectar USB' causa confusion con el verdadero problema que era habilitar/deshabilitar el puerto USB.

bueno, igual no deja de estar bueno el truco que expuso el compañero... :)

[Hamizura]

Hola.

Muy bueno el truco !!:)

Hace tiempo andaba buscando como hacerlo.

[BlueSteel]

Y como se tendria que hacer para detectar que dispositivo esta conectado a un puerto USB en particular....

Salu2:p:D

[ecfisa]

Y como se tendria que hacer para detectar que dispositivo esta conectado a un puerto USB en particular....

Salu2:p:D

Hola BlueSteel.

Seoane puso como hacerlo aquí (http://www.clubdelphi.com/trucos/index.php?id=51&scroll=0&scrollb=0).

Un saludo.