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

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