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

[mehdimdp]

سلام
آیا دستوری است که با استفاده از آن بتوان تعداد درایو و سی دی رام را مشخص کرد و از آن استفاده نمود؟

[saied7468]

سلام
شما با استفاده از کامپوننت mcdb میتونید کلیه درایو های(سی دی رام و رایتر ) رو شناسایی کنید و ازشون استفاده کنید

موفق باشید

[جواد ملاولی]

سلام
آیا دستوری است که با استفاده از آن بتوان تعداد درایو و سی دی رام را مشخص کرد و از آن استفاده نمود؟

سلام. این لینک رو ببین:
http://barnamenevis.org/forum/showthread.php?t=170521
یه یونیت گذاشتم که توابع مختلفی داره؛ از جمله تابعی که کار شما رو راه میندازه، به نام GetCdDrives

موفق باشید.

[Felony]

var
i:integer;
begin
for i:=0 to 25 do
if (GetDriveType(Pchar(char(65+i)+':\'))=Drive_CDRom) or (GetDriveType(Pchar(char(65+i)+':\'))=Drive_Fixed) then
ListBox1.AddItem(Char(65+i)+':',nil);
end;