delphi4arab منتديات دلفي للعرب
كاشف USB Drive‏ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (http://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (http://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع النظام و الذاكرة (http://delphi4arab.net/forum/forumdisplay.php?fid=20)
+--- الموضوع : كاشف USB Drive‏ (/showthread.php?tid=1650)



كاشف USB Drive‏ - php3man - 11-02-2010

بسم الله الرحمن الرحيم

يوم بعد يوم نتقدم باللغه
أنصح كل مبتدأ بالدوره

دورة دروس دلفي للعرب

اليوم نستعرض برنامج صغير يقوم بكشف اذا كان يو أس بي متواجد بنظام

كود :
procedure TForm1.Button1Click(Sender: TObject);
var Flash : Char ;
begin
for Flash := 'A' To 'Z' do
if GetDriveType(Pchar(Flash + ':\')) = 2 Then
  Memo1.Lines.Add(Flash + ':\');
end;

end.

هنا الكود

بتقدر تغير بدل

if GetDriveType(Pchar(Flash + ':\')) = 2 Then

تجعها

if GetDriveType(Pchar(Flash + ':\')) = 3 Then
او

if GetDriveType(Pchar(Flash + ':\')) = 4 Then

علي حسب المراد
أستكشاف الدريافات كلها
أسكتشاف السي دي روم وما الي ذلك

كود :
DRIVE_UNKNOWN = 0;
  {$EXTERNALSYM DRIVE_UNKNOWN}
  DRIVE_NO_ROOT_DIR = 1;
  {$EXTERNALSYM DRIVE_NO_ROOT_DIR}
  DRIVE_REMOVABLE = 2;
  {$EXTERNALSYM DRIVE_REMOVABLE}
  DRIVE_FIXED = 3;
  {$EXTERNALSYM DRIVE_FIXED}
  DRIVE_REMOTE = 4;
  {$EXTERNALSYM DRIVE_REMOTE}
  DRIVE_CDROM = 5;
  {$EXTERNALSYM DRIVE_CDROM}
  DRIVE_RAMDISK = 6;
  {$EXTERNALSYM DRIVE_RAMDISK}

تقدر أن تستخدمهم كلهم ب

CASE OF

مثال

كود :
procedure TForm1.Button1Click(Sender: TObject);
var Flash : Char ;
begin
for Flash := 'A' To 'Z' do
begin
case GetDriveType(Pchar(Flash + ':\')) of
  DRIVE_REMOVABLE :
  Memo1.Lines.Add(Flash + ':\');
  DRIVE_FIXED :
  Memo1.Lines.Add(Flash + ':\');
end;
end;
end;
end.

**** أن يكون الشرح واضح



كاشف USB Drive‏ - Benhlell - 18-06-2010

اخي العزيز هذه الطريقة رغم صحتها فهي لا تجدي نفعا في حالة usb ممكن انزع usb في اي لحضة
اذا استعملت التايمر يبقى يضيف كل مدة زمنية مححدة
احتجت اكتشاف usb من قبل و استعملت الطريقة التي تعرضها انت الان لكن وجدت اخطاء كثيرة فيها يجب استعمال دوال طويلة ومعقدة لاكتشاف ادخال USB يوجد مثال جيد جدا في المنتدى يفي بالغرض
على كلمشكور على المجهود


كاشف USB Drive‏ - MOH.ALSHAIF - 29-07-2011

مشكور على المعلومات , موفق إن شاء الله ...


RE: كاشف USB Drive - medyounes - 29-06-2016

شكرا على المعلومة


RE: كاشف USB Drive - ziadallaghi - 05-10-2018

السلام عليكم ورحمة الله ....شكراً على هذا الكود ربي يحفظك