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

[مبرمج هاوي]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اليوم وانا افكر في كيفية اكتشاف السواقات الوهمية او بما يعرف بالفلاش ميموري
وطريقة ازالتها او تركيبها فجأة وكيفية التعرف عليها ومن خلال بحثي وجدت ان افضل طريقة هي التايمر 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]

وعليكم السلام ورحمة الله وبركاته

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

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

[mobile]

السلام عليكم ورحمة الله
جربتها ولم تنجح مع لاادري اين الخطا؟
لكن الاخ كاش واد كتب موضوع رائع صعب لكن ناجح
http://www.delphi4arab.com/forum/showthread.php?t=3083&goto=nextoldest