saber si una unidad de disco es una memoria flash o memory stick

[compaqdavid]

quisiara incluir en un proyecto que tengo la posibilidad de saber si una de las unidades de disco es una memoria flash o sea saber si hay una memoria conectada al usb y cual es o sea si es [d] [e] o [f] etc. agradesco de antemano su atencion.

[[seoane]]

Como ya te comente en otro hilo las memorias usb, al menos la mayoría, están marcadas como "removibles". Así que para encontrarla podemos hacer algo como esto:

Código Delphi [-]
var
  Letra: Char;
begin
  for Letra:= 'C' to 'Z' do
    if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then
    begin
      // Aqui usamos la letra para lo que queramos
      ShowMessage('Esto es una memoria usb '+Letra+':\');
    end;
end;

Aunque también seria interesante detectar cuando se conecta o desconecta una memoria. Esto lo hacemos de forma similar a como lo haríamos con un cdrom, además el propio evento ya nos informaría de la letra de la unidad.

El compañero roman explica como hacer esto en su pagina:
http://romansg.net/index.php?pg=cdchange

Y aquí hilo en el que hablamos sobre el tema:
http://www.clubdelphi.com/foros/showthread.php?t=31486