Lo mismo que lo tuyo:
Código Delphi
[-]procedure GetDrives;
var Drive: Char;
begin
for Drive := 'A' to 'Z' do
begin
if GetDriveType(PChar(Drive + ':\')) in [DRIVE_REMOVABLE, DRIVE_CDROM, DRIVE_RAMDISK] then
Form1.Memo1.Lines.Add(Drive + ':');
end;
end;
No entiendo lo que quieres concretamente. tu mismo te respondiste!