درباره CD-Rom و Combobox

[qazwsx]

سلام آقا یه سوال داستم من یه combobox دارم که لیست درایو های منو نشون میده حالا میخوام اگه من تو لیستم سیدی رام رو انتخاب کردم یه اخطار بده اگه میشه راهنمایم کنید

[DAMAVAND]

به اين شکل :


procedure TForm1.Button1Click(Sender: TObject);
var
D:String;
Statuse:Cardinal;
begin
D:=DriveComboBox1.Drive+':\';
Statuse:=GetDriveType(pchar(D));
case Statuse of
0:ShowMessage('Not Accessible');
1:ShowMessage('Does Not exist');
2:ShowMessage('Removable Disk');
3:ShowMessage('Hard Disk');
4:ShowMessage('Network Dirve');
5:ShowMessage('Cd-Rom');
6:ShowMessage('Ram Drive');
end;

end;