+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : اكتشاف الذاكراة الخارجيةusb بطريقة منطقية (/showthread.php?tid=3279)
اكتشاف الذاكراة الخارجيةusb بطريقة منطقية - مبرمج هاوي - 12-07-2011
[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';اكتشاف الذاكراة الخارجيةusb بطريقة منطقية - مبرمج هاوي - 12-07-2011
بامكاننا ايضا وضعها في فنكشن حتى نسهل من استعمالها وتطويرها قدر الامكان ^_^
كود :
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;في حال الاخطاء ****ا التصحيح
اكتشاف الذاكراة الخارجيةusb بطريقة منطقية - ELARAPY - 17-07-2011
[color="purple"]وعليكم السلام ورحمة الله وبركاته
بارك الله فيك اخي
ولكن ماذا أستفيد من برنامجك ؟؟
[/color]
اكتشاف الذاكراة الخارجيةusb بطريقة منطقية - mobile - 18-07-2011
السلام عليكم ورحمة الله
جربتها ولم تنجح مع لاادري اين الخطا؟
لكن الاخ كاش واد كتب موضوع رائع صعب لكن ناجح
http://www.delphi4arab.net/forum/showthread.php?tid=3083&goto=nextoldest