اكتشاف الذاكراة الخارجيةusb بطريقة منطقية

[مبرمج هاوي]

[FONT="Arial"]
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اليوم وانا افكر في كيفية اكتشاف السواقات الوهمية او بما يعرف بالفلاش ميموري
وطريقة ازالتها او تركيبها فجأة وكيفية التعرف عليها ومن خلال بحثي وجدت ان افضل طريقة هي التايمر timer
فخرجت بهذا الكود
واعتذر اشد الاعتذار في حال كان فيه اخطاء في الكود :

كود :

var Flash : Char ; begin for Flash := 'A' To 'Z' do if GetDriveType(Pchar(Flash + ':\')) = 2 Then Label1.Caption:=(Flash + ':\') else Label1.Font.Color:=clRed; Label1.Caption:= 'NOT FOUND';

فقط يلزمك فورم+تايمر وتضع الكود بداخل التايمر وان شاء الله يكون كل شئ ممتاز

[مبرمج هاوي]

بامكاننا ايضا وضعها في فنكشن حتى نسهل من استعمالها وتطويرها قدر الامكان ^_^

كود :

function usb123(Flash:Char):string; begin for Flash := 'A' To 'Z' do if GetDriveType(Pchar(Flash + ':\')) = 2 Then ShowMessage((Flash + ':\')) else ShowMessage( 'NOT FOUND'); end;

في حال الاخطاء ****ا التصحيح

[ELARAPY]

[color="purple"]وعليكم السلام ورحمة الله وبركاته

بارك الله فيك اخي

ولكن ماذا أستفيد من برنامجك ؟؟

[/color]

[mobile]

السلام عليكم ورحمة الله
جربتها ولم تنجح مع لاادري اين الخطا؟
لكن الاخ كاش واد كتب موضوع رائع صعب لكن ناجح
http://www.delphi4arab.net/forum/showthr...nextoldest