پیدا کردن نام Cd Rom

[nasr]

سلام
اول بگم جستجو کردم چیزی یافت نشد

چطور می تونم بفهمم اسم CD Rom چیه

ممنون

[Mohammad S]

با این کد
البته یه چیزایی زیادی داره، خودت درستش کن:

procedure TForm1.Button1Click(Sender: TObject);
var
n:byte;
drv:string;
drives:set of 0..25;
const
drt: array [0..6] of string=('Unkhnown','Unkhnown','Flopy Disk','Local Drive','Network Drive','CD-Rom','Ram-Disk');
begin
integer(drives):=getlogicaldrives;
for n:=0 to 25 do
if n in drives then
begin
drv:=char(n+ord('A'))+':\';
if (drt[getdrivetype(pchar(drv))]='CD-Rom') then
label1.Caption:='Drive '+drv+' is the CD-Rom Drive';
end;
end;
موفق باشی 8)

[nasr]

ممنون
باز هم جستجو کردم پیدا کردم
از شما هم متشکرم