السلام عليكم اخوتي الاعزاء
وشكرا ً لكل من سل عني في غيابي واتمنى دوام الصحة والعافية للاعضاء والزوار
احبتي اصل هذا الموضوع هو الرد على مشاركة اخي العزيز dark man وفي طبيعته الحال جعلته موضوع للنشر في محركات البحث اكثر وبالحقيقة هو فكرة جميلة وجديدة في المنتدى
شكراً للاخ dark man على الموضوع
الكود الاتي يمكن جعله على شكل فورم او امر في قائمة والكود هو الاتي:-
Declare Integer GetLogicalDrives In Win32API
Declare Integer GetDriveType In Win32API String RootPath
Declare GetVolumeInformation In win32api String, String @, Integer, Integer @, Integer @, Integer @, String @, Integer
#Define DRIVE_CDROM 5
drivelist = GetLogicalDrives()
*تحديد الاحرف والعلامات لاستخدامها في التعليم للمحركات
For i = 0 To 31
* تحديد المحركات واسماء المعلمات لها مثل السي دي والفلوبي والى اخرة
If Bittest(drivelist, i)
drivetype = GetDriveType(Chr(65 + i) + ":\")
Do Case
Case drivetype = DRIVE_CDROM
drivestring = "CD-ROM drive"
Exit
Endcase
Endif
ENDFOR
If drivetype = DRIVE_CDROM
* جلب المعلومات الخاصة بالمحرك
RootPath = Chr(65 + i) + ":\"
volname = Space(255)
volnamelen = Len(volname)
volumeserialnumber = 0
maxfilenamelen = 0
filesystemflags = 0
filesystemname = Space(255)
fsnamelen = Len(filesystemname)
=GetVolumeInformation(RootPath, @volname, volnamelen, @volumeserialnumber, @maxfilenamelen, ;
@filesystemflags, @filesystemname, fsnamelen)
volname = Left(volname, At(Chr(0), volname) - 1)
* جلب البيانات المراد نسخهها
w = GETFILE()
cFile =Addbs(Chr(65 + i) + ":\")+(w)
* فحص الاقراص في المحركات قبل عملية النسخ
If !Empty(volname)
Copy FILE(w) To (cFile)
If File(cFile)
=Messagebox("تم نسخ البيانات ",64,"الاقراص الليزرية")
Else
=Messagebox("لايمكن النسخ الرجاء التحقق من القرص",64,"الاقراص الليزرية")
Endif
Else
=Messagebox(Chr(65 + i) + ":\"+" "+ drivestring+" الرجاء ادخال قرص فارغ في ",64,"الاقراص الليزرية")
Endif
Else
WAIT Window"لم يتم العثور على سي دي في المحرك"
ENDIF
Messagebox("اتمنى وصول الفكرة والمعلومة",64,"المبرمج lion iraq")
*استدعاء الملفات الخاصة من النظام
************
واحب ان اذكر عدم ادخال سي دي منسوخ مسبقاً لتفادي الاخطاء واذا حصلت قم بالتخطي وهذا الكود هو مثال على الفكرة
تحياتي للجميع
