Detectar memoria USB

[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..