Здравствуйте, Хукаленко Дмитрий!
Получить список носителей можно так, см приложение. Проседура GetDrive. Узнать тип носителя можно с помощью функции function GetDriveType см приложение GetDriveType.
По второму вопросу, извиняюсь, не помню, а информации нет под рукой.
Удачи.


Приложение:
procedure GetDrive;
var
ld: DWORD;
i: integer;
begin
ld := GetLogicalDrives;
for i := 0 to 25 do
if (ld and (1 shl i)) <> 0 then Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;



procedure GetDriveType;
begin
case GetDriveType('C:\') of
0: ShowMessage('The drive type cannot be determined');
1: ShowMessage('The root directory does not exist');
DRIVE_REMOVABLE: ShowMessage('The disk can be removed');
DRIVE_FIXED: ShowMessage('The disk cannot be removed');
DRIVE_REMOTE: ShowMessage('The drive is remote (network) drive');
DRIVE_CDROM: ShowMessage('The drive is a CD-ROM drive');
DRIVE_RAMDISK: ShowMessage('The drive is a RAM disk');
end;
end;

Здравствуйте, Хукаленко Дмитрий!

2. Получение серийного номера диска - работает та же функция что и для HDD. См.приложение.

P.S. Кстати второй параметр возвращает метку диска - тоже может быть полезно.


Приложение:
procedure ShowSerialNum;
var sernum : Integer;
aVol : array [0..128] of Char;
lpMaximumComponentLength : DWORD;
lpFileSystemFlags : DWORD;
lpFileSystemNameBuffer : array[0..MAX_PATH] of Char;
begin
GetVolumeInformation('Z:\', avol, sizeof(avol), @sernum,
lpMaximumComponentLength, // address of system's maximum filename length
lpFileSystemFlags, // address of file system flags
lpFileSystemNameBuffer, // address of name of file system
sizeof(lpFileSystemNameBuffer)
);

ShowMessage(IntToHex(sernum, 8));
end;