Function DriveExists(sLetter: AnsiChar): Boolean; Begin Result := GetDriveType(PWideChar(sLetter+':\')) In [DRIVE_REMOVABLE..DRIVE_RAMDISK]; End;