Ayuda con Manejo de usb

[rod203]

Bueno primero hola como estan??


Mi consulta era como puedo manejar el puerto usb desde delphi

osea yo quero poder desconectar, grabar cosas, y que me reconosca automaticamente un pen drive


si me pueden ayudar gracias..

[[kurono]]

hola amigo rod203 este codigo te sirve para dectectar las memorias usb una ves dectectada puedes indicarle todo lo que quieres hacer por medio de la letra que se le asigne a la usb tambien lo puedes modificar a tu gusto

Código Delphi [-]
var

  Letra: Char;

begin

  for Letra:= 'C' to 'Z' do

    if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then

    begin

      
      ShowMessage('Esto es una memoria usb '+Letra+':\');
    

end;

end;