如何找到名为disku的u盘盘符呢?(50分)

// var
// ch: char;

// begin
// for ch:='A' to 'Z' do
// if GetDriveType(PChar(ch+':/'))=DRIVE_REMOVABLE then
// begin
// showmessage(ch);
// end;
/// end;

这样能得到u盘的盘符号,可是如果有多个u盘,如何取得指定名称的那个呢,
比如,名为disku的u盘盘符.

var
VolumeSerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
SerialNumber: string;
lpVolumeNameBuffer: Array [0..255] of char;
begin
GetVolumeInformation('E:/',lpVolumeNameBuffer,255,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,0);

ShowMessage(StrPas(lpVolumeNameBuffer));
end;
根据盘符取到名称后自己判断吧。