Detectar memoria USB

[ecfisa]

Hola LuisAlf.

Revisá este Link


Saludos.

[LuisAlf::]

Interesante....

Creo que mejor me quedo con mi codigo...

jejeje!!!

De todas formas se agradece tu aporte, voy a ver que le puedo entender...

[[kurono]]

yo utilizo este codigo para tales fines solo debes ajustarlo a tus necesidades

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;

[ecfisa]

Hola kurono.

Muy bueno el código... simple y funcional.

Seguro que le servirá a más de uno, empezando por el que escribe...

Saludos.

[[kurono]]

ojala que le sirva tambien a nuestro amigo LuisAlf

[LuisAlf::]

Supongo que si me servira !:P

Gracias... Kurono...

De repente se me vino a la mente uno de tus post donde te da una santa regañada el maestro Delphius (I.A)...

jejeje..

Aqui les dejo la forma en que yo lo hagó dentro de mi aplicación...

Código Delphi [-]
 
procedure TForm1.TimerDetenerTimer(Sender: TObject);
var
  tam1:int64;
  tam2:int64;
begin
  //////////////////////
   if abiertos then begin
    tam1:=disksize(6);//f:\
    tam2:=disksize(5);//e:\

    if tam1<>-1 then
      ShellExecute(0, 'open', nil, nil, PAnsiChar('f:\'), SW_SHOW);
    if(tam2<>-1)and(tam1=-1) then
      ShellExecute(0, 'open', nil, nil, PAnsiChar('e:\'), SW_SHOW);
      abiertos:=false;
   end;
...
................

Algo asi... aunque aqui esta muy especifico el codigo..y eso es lo que no me gustaba...

Gracias de Nuevo..

[[kurono]]

ahhh jaja ya se me olvidaba esa regañada que delphius me dio y no solamente fue una sino varias cuando eso no tenia tanto tiempo libre como para pensar bien como crear los codigos fuente de mis aplicacion de modo que recurria aqui para resolverlo de rapido y por eso delphius me regañaba de ves en cuando .bueno en cuanto a tu codigo si bien como dices es algo especifico siempre es bueno saber hacer las cosa de varias manera para asi deservolvernos en situaciones diferentes que se nos presentan

[santiago14]

Empezado por kurono

yo utilizo este codigo para tales fines solo debes ajustarlo a tus necesidades

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;

Que mas puedo decir, este pedacito de código es una maravilla... mis felicitaciones a su creador; o por lo menos al que lo difundió por la comunidad.
Ahora conecto y desconecto mis dispositivo USB y automáticamente puedo detectar a que unidad fueron asignados... jejeje.

Saludos.

[LuisAlf::]

Empezado por santiago14

Ahora conecto y desconecto mis dispositivo USB...

Hola Santiago14...

A mi también me funcionó de maravilla el código...
Aunque me intrigaron tus palabras..heehe.. como es que puedes desconectar los dispositivos USB por medio de código..

Si sabes la respuesta me encantaria saberla..

[ecfisa]

Hola LuisAlf::

En este enlace está como activar/desactivar los puertos USB.

Saludos.

[darkmir]

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;
//

como seria en builder c++?