كيف يمكنني أن أشعر برمجياً بإدخال قرص أو ديسك او سي دي أو فلاش كارد

ممتاز اخي

الله يقويك انا كنت ابحث عن هيك موضوع من زمان

يمكن نقدر نتساعد

بس عطيني وقت لقراءة الكود

وشكراً

لاحظ اخي هذا كان نص الـ Procedure الخاص بتغيير حالى أي جهاز في باديء الأمر قبل التعديل

procedure TMain.WMDeviceChange(var Msg: TMessage);
var
   Drive: string;
   bv: PDevBroadcastVolume;   
   lpdbhHeader:   PDevBroadcastHeader;
   lpdbvData:	 PDevBroadcastVolume;
   dwIndex:	   Integer;
   lpszDrive,lpszDrives: String;

begin

   case Msg.wParam of
	 DBT_CONFIGCHANGECANCELED:begin Memo1.Lines.Add('DBT_CONFIGCHANGECANCELED');end;
	 DBT_CONFIGCHANGED:begin  Memo1.Lines.Add('DBT_CONFIGCHANGED');end;
	 DBT_CUSTOMEVENT:begin  Memo1.Lines.Add('DBT_CUSTOMEVENT');end;
	 DBT_DEVICEARRIVAL:begin  Memo1.Lines.Add('DBT_DEVICEARRIVAL'+' the Storage Device is plugged');Check_Disks.Click;end;
	 DBT_DEVICEQUERYREMOVE:begin  Memo1.Lines.Add('DBT_DEVICEQUERYREMOVE');end;
	 DBT_DEVICEQUERYREMOVEFAILED:begin  Memo1.Lines.Add('DBT_DEVICEQUERYREMOVEFAILED');end;
	 DBT_DEVICEREMOVECOMPLETE:begin  Memo1.Lines.Add('DBT_DEVICEREMOVECOMPLETE'+' the Storage Device is Safe to be Unplugged');Check_Disks.Click;end;
	 DBT_DEVICEREMOVEPENDING:begin  Memo1.Lines.Add('DBT_DEVICEREMOVEPENDING');end;
	 DBT_DEVICETYPESPECIFIC:begin  Memo1.Lines.Add('DBT_DEVICETYPESPECIFIC');end;
	 DBT_DEVNODES_CHANGED:begin  Memo1.Lines.Add('DBT_DEVNODES_CHANGED'+' the Storage Device is under Change');end;
	 DBT_QUERYCHANGECONFIG: begin Memo1.Lines.Add('DBT_QUERYCHANGECONFIG');end;
	 DBT_USERDEFINED: begin Memo1.Lines.Add('DBT_USERDEFINED');end;
   else
	 Memo1.Lines.Add('NOT VALID');
	 end;

end;

لاحظ المتغيرات الموجودة في قسم التعريف...أنا لم أستخدمها البته...ولاحظ أيضاً الآتي:

 #include <windows.h>
   #include <dbt.h>

   char FirstDriveFromMask (ULONG unitmask);  //prototype


   /*----------------------------------------------------------------------
   Main_OnDeviceChange (hwnd, wParam, lParam)

   Description
	  Handles WM_DEVICECHANGE messages sent to the application's
	  top-level window.
   ----------------------------------------------------------------------*/ 

   void Main_OnDeviceChange (HWND hwnd, WPARAM wParam, LPARAM lParam)
   {

	  PDEV_BROADCAST_HDR lpdb = (PDEV_BROADCAST_HDR)lParam;
	  char szMsg[80];


	  switch(wParam)
	  {
	  case DBT_DEVICEARRIVAL:
		 // See if a CD-ROM or DVD was inserted into a drive.
		 if (lpdb -> dbch_devicetype == DBT_DEVTYP_VOLUME)
		 {
			PDEV_BROADCAST_VOLUME lpdbv = (PDEV_BROADCAST_VOLUME)lpdb;

			if (lpdbv -> dbcv_flags & DBTF_MEDIA)
			{
			   wsprintf (szMsg, "Drive %c: arrived\n",
						 FirstDriveFromMask(lpdbv ->dbcv_unitmask));

			   MessageBox (hwnd, szMsg, "WM_DEVICECHANGE", MB_OK);
			}
		 }
		break;


	 case DBT_DEVICEREMOVECOMPLETE:
		// See if a CD-ROM was removed from a drive.
		if (lpdb -> dbch_devicetype == DBT_DEVTYP_VOLUME)
		{
		   PDEV_BROADCAST_VOLUME lpdbv = (PDEV_BROADCAST_VOLUME)lpdb;

		   if (lpdbv -> dbcv_flags & DBTF_MEDIA)
		   {
			  wsprintf (szMsg, "Drive %c: was removed\n",
						FirstDriveFromMask(lpdbv ->dbcv_unitmask));

			  MessageBox (hwnd, szMsg, "WM_DEVICECHANGE", MB_OK);
		   }
		}
		break;

	 default:
		/*
		   Other WM_DEVICECHANGE notifications get sent for other devices
		   or reasons; we don't care about them here.  If they were
		   important, we would check for them and act accordingly.
		*/ 
		;
	  }
   }


   /*----------------------------------------------------------------------
   FirstDriveFromMask (unitmask)

	  Finds the first valid drive letter from a mask of drive letters. The
	  mask must be in the format bit 0 = A, bit 1 = B, bit 3 = C, etc.

	  A valid drive letter is defined when the corresponding bit is set to
	  1.

	  Returns the drive letter that was first found.
   ----------------------------------------------------------------------*/ 
   char FirstDriveFromMask (ULONG unitmask)
   {
	  char i;

	  for (i = 0; i < 26; ++i)
	  {
		 if (unitmask & 0x1)
			break;
		 unitmask = unitmask >> 1;
	  }

	  return (i + 'A');
   }

هذا كود من على موقع Microsoft

ولكنه بالسي شارب والمهم انه استخدم المتغيرات التي لم استخدمها ولكن انا بنيت حدث على نفس الرسالة المنبعثة من النظام وهي :

WM_DeviceChange وعاملها DBT_DEVICEARRIVAL

ومع هذا برنامجي لايشعر عند إدخال أي قرص أو كارد ذاكرة ( Multimedia Card ) وهذا ما أريد أن ابني التطبيق من اجله...

كود الدلفي كان مأخوذاً من النقاش هنا

http://groups.google.com/group/borland.pub...e1ef2829df36470

قمت بتجربته على CD و تمت العملية بنجاح .. تأكد من خاصية الـ Autorun في جهازك ..

بالنسبة لـ Memory Card فتعتمد على القارئ ..

راجع هذا المقال خصوصاً الرد على "Please help me!" ...

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

بارك الله لكم

فعلا الكود أصله من الانترنت ولقد أضفت هذا الموضوع على المنتدى منذ 9 أشهر أو يزيد...ولكنه اختفى

والقاعدة تقول لا تبدأ من الصفر بينما يمكنك أن تبدأ على عمل الآخرين وذلك كي تختصر الوقت فنحن لن نعيد تصنيع العجلة...

بالنسبة للقارىء فلا تعتمد عليه تلك العمليه!!!

ولقد حاولت بكل الوسائل المذكورة والتي جدتها حتى الآن ولعلك لاحظت أخي يفر أنه لمك تتم حل المشكلة بالنسبة للميموري ريدر في ذلك الموضوع

ويوجد برنامج اسمه Memory card copier به نفس الوظيفة ويعمل بنجاح..

أتمنى في القريب العاجل من حل تلك المشكلة...رغم أني مشغول ولست متفرغا...كما أني سألت عن تطبيق يستخدم خاصية الـ Messaging وذلك لتعم الفائدة حيث أن الهدف الواحد قد يساعد في تعلم الكثير...

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

لقد رأيت عدة أكواد مبرمجة بدلفي لها علاقة بموضوعك.

وستجد واحدا منها في المرفقات إن شاء الله.

delphifr_USB_201_TECTER_CONNEC_201_CONNECTION_201_RIPH_29140.zip

بارك الله فيك يا أخي العزيز ولقد وجدت كود يعمل بنجاح ولكنه بلغة الـ سي ++ فهل من هناك من يمكنه من تحويله الي الدلفي؟؟؟؟

الكود مرفق ...قم بتشغيل ملف الــ apdiag.exe

وبارك الله لكم..

Autoplay.rar