Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Puertos USB (https://www.clubdelphi.com/foros/showthread.php?t=62979)

JerS 23-01-2009 18:13:01

Puertos USB
 
Buenas amigos me gustaria que me ayudaran un poco con esto, mi problema es que necesito reactivar mis puertos USB, tengo una aplicacion que utiliza dispositivo usb, cuando la maquina hiberna y se reractiva mi dispositivo no se reactivan, quiero saber si hay una forma que por delphi mande a reactivar mis puertos usb, o mandar un impulso para reactivarlo, bueno ustedes saben mas de eso que yo. por otra parte ya yo le quite la opcion de ahorrro de energia de los puertos usb de windows y nada, por eso les pido ayuda a ustedes los gurú del delphi... muchas gracias de antemano

Ferrari 24-01-2009 02:18:49

;)Hay que usar el Buscador
http://www.clubdelphi.com/trucos/ind...d=52&scroll=94

Checalo..espero y te sirva...salu2

JerS 24-01-2009 03:58:27

Cita:

Empezado por Ferrari (Mensaje 335770)
;)Hay que usar el Buscador
http://www.clubdelphi.com/trucos/ind...d=52&scroll=94

Checalo..espero y te sirva...salu2

amigo no sirve el link :confused:

Ferrari 24-01-2009 17:38:21

De la seccion de trucos, Autor: Domingo Seoane

A veces, por motivos de seguridad, necesitamos impedir el uso de memorias USB en un equipo. Esta funcion permite habilitar y deshabilitar el uso de las mismas:

Código Delphi [-]
procedure EnableUSB(Value: Boolean);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKey('\SYSTEM\CurrentControlSet\Services\USBSTOR',TRUE) then
    begin
      if Value then WriteInteger('Start',3)
        else WriteInteger('Start',4);
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Ejemplo de uso:
Código Delphi [-]
// Esto las deshabilita
  EnableUSB(FALSE);
  // Esto las vuelve a habilitar
  EnableUSB(TRUE);
  // Solo afecta a las memorias que se conecten despues


La franja horaria es GMT +2. Ahora son las 16:45:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi