تشخیص نوع درایو ؟ [بایگانی]

Nima NT

یک شنبه 26 مهر 1388, 22:27 عصر

با سلام و احترام
به چه شکل میشه فهمید که مثلا" درایو D ؛ درایو CD - ROM یا DVD - ROM هست یا خیر ؟
با تشکر.

MOJTABAATEFEH

یک شنبه 26 مهر 1388, 23:20 عصر

دوست عزيز مي توني از كد زير استفاده كني

Uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
N: Byte;
Drv: string;
Drives: set of 0..25;
begin
Integer(Drives):=GetLogicalDrives;
for N:=0 to 25 do
if N in Drives then
begin
Drv:=Char(N+Ord('A'))+':';
if(GetDriveType(PChar(Drv))=5) then
Label1.Caption:='Drive '+Drv+' is the CD-Rom Drive';
end;
end;
موفق باشي
كد دلفي
http://www.mojtabaie.persianblog.ir

Mahmood_M

دوشنبه 27 مهر 1388, 03:29 صبح

با سلام ...

علاوه بر کدی که دوستمون قرار دادن یک نمونه کامل تر با توضیح رو می تونید در اینجا (http://www.delphiplus.mihanblog.com/post/11) مشاهده کنید ... ( این یک تبلیغ نبود ! )

موفق باشید ...