چگونه لیست سیدی درایوهای کامپیوتر را بدست آوریم

چگونه لیست سیدی درایوهای کامپیوتر را بدست آوریم
​

به دست آوردن لیست سیدی درایوهای متصل به کامپیوتر
یک فانشکن مینویسیم که یک استرینگ بر میگرداند

کد:
Function GetCDList : String;
Var
I : Integer;
Drives: Integer;
Tmp : String;
begin
Drives := GetLogicalDrives;
Result := '';
// units A=0 to el Z=25
For I := 0 To 25 Do
If (((1 Shl I) And Drives)<>0) Then
Begin
Tmp := Char(65+I)+':\';
If (GetDriveType(PChar(Tmp))=DRIVE_CDROM) Then
Result := Result+Char(65+I);
End;
End;
نتیجه یک استرینگ است که لیست سیدی درایوها را بترتیب نشان میدهد