Detectar memoria USB

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

[[Delphius]]

Empezado por 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..

¿Te refieres a éste?

Empezado por 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 .

¡Te deschabaste! Si yo ya sabía que aquí vienen estudiantes bien flojos que prefieren la salida fácil antes que intentarlo y/o sentar el trasero en el asiento y estudiarlo.

Ya ves... otro regaño .
La cosa es que se intuye cuando un estudiante viene con ganas de aprender y cuando a pedir la tarea. Con el paso del tiempo uno ya los "huele".
Espero que esas reprimendas sirvan de algo kurono.

Esto me confirma que si fuera profesor sería muy insoportable y el más odiado... ¡Tendría bien cortitos y derechitos a mis víctimas... digo estudiantes! Lo peor de todo es que muchos me dicen que debería estar en la docencia.

Saludos,

[[kurono]]

hola amigo delphius si bien los estudiante o mejor dicho a cualquier persona no le gusta que lo regañen en eso regaño es que estan las enseñanza en mi caso esos regaño me sirvieron de mucho ya que me ayudo a tener mas logica a la hora de programar y me imagino que a muchos miembros de aqui le a pasado lo mismo

[LuisAlf::]

jajaja!

Que feo cuando uno se siente presionado...yo tambien he pasado por esos momentos..gracias a la Escuela...