er drev x: en usb enhed??

Du kan prøve med nedenstående:

procedure TForm1.Button1Click(Sender: TObject);
var
  typ: Integer;
  s:  string;
begin
  s  := 'C:\';
  typ := GetDriveType(PChar(s));
  if Typ <> 0 then case typ of
      DRIVE_REMOVABLE:
        begin
          ShowMessage('Drive Removable');
        end;
      DRIVE_FIXED:
        begin
          ShowMessage('Harddisk');
        end;
      DRIVE_CDROM:
        begin
          ShowMessage('CD ROM Drive');
        end;
      DRIVE_RAMDISK:
        begin
          ShowMessage('RAM Drive');
        end;
      DRIVE_REMOTE:
        begin
          ShowMessage('Remote Drive');
        end;
    end;
end;

USB drev vil normalt ende under typen DRIVE_REMOVABLE. Det er godt nok ikke en 100% sikker måde, da andre ting også kan komme ind under den kategori, men måske kan du bruge det :)

kigger på det, så længe diverse cd drev ikke kommer ind under, kan det højest sandsynligt godt bruges.

det ser ud til at jeg kan bruge det, lige et tillægsspørgsmål, hvordan kan jeg hente serienummer osv. fra enheden??

Hvis du er heldig, så kan du måske bruge det der står på http://www.swissdelphicenter.com/en/showcode.php?id=57 - ellers ved jeg det ikke lige.

har kigget lidt på google og har også været inde på det eksempel, men det viser ikke det serienummer der er kodet ind i harddisken, men det som man kan ændre, og det er rimelig vigtigt at det er det der ikke kan ændres, men tak for hjælpen indtil videre :)

forresten det er en usb-disk jeg skal finde serienummeret på, ved ikke om det er muligt??

Det skal jeg ikke kunne sige noget om. Har ikke selv en USB disk jeg kan teste med ;)

ok, men som sagt tak for hjælpen