تشخیص سی دی درایو کامپیوتر

با برنامه زیر می توانید اسم سی دی درایو را پیدا کنید. کار این تابع در زمانی است که می خواهید بر روی سی دی کار کنید و مثلا وجود فایل خاصی را بررسی کنید.

Function GetCDDriveName:String;

var s:String; Found:Boolean;

begin

s:='d:\';

Found:=False;

While (Not Found) and Not (s[1] In ['z','Z']) Do

begin

If getdrivetype(PChar(s)) = DRIVE_CDROM then

Found:=True

Else

s[1]:=Chr(Ord(s[1])+1);

end;

If Found then

GetCDDriveName:=s

Else

GetCDDriveName:='';

end;

این تابع نام سی دی درایو را در خروجی بر می گرداند. در صورتیکه سی دی درایوی نباشد مقدار آن خالی است.