! წ…℅……ঔღঔ…ੲੜ منتديات جوكر ੲੜ…ঔღঔ……℅…წ


 
الرئيسيةس .و .جبحـثالمجموعاتالتسجيلدخول

شاطر | 
 

 كود لتغيير اسماء محركات الأقراص

اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
مؤسس منتديات الجوكر
مؤسس منتديات الجوكر
avatar

الجنس : ذكر عدد المساهمات : 132
السٌّمعَة : 3
تاريخ التسجيل : 03/08/2009
الموقع : منتديات جوكر احلى موقع

مُساهمةموضوع: كود لتغيير اسماء محركات الأقراص   الثلاثاء أغسطس 04, 2009 2:55 am

اكتب في قسم التصاريح واعتماداً على دوال مكتبة kernel32 :

الكود:
Option Explicit
Private Declare Function SetVolumeLabel Lib "kernel32" Alias _
"SetVolumeLabelA" (ByVal lpRootPathName As String, _
ByVal lpVolumeName As String) As Long

وفي الكود :

الكود:
Dim lAns As Long

On Error Resume Next
lAns = SetVolumeLabel(DriveLetter, NewDriveVolume)
ChangeVolumeLabel = (lAns <> 0)

End Function

تحياتي لكم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://jo0oker7.hooxs.com
مصطفى السلطان
جوكر جـيد جدا
جوكر جـيد جدا


عدد المساهمات : 80
السٌّمعَة : 3
تاريخ التسجيل : 12/08/2009

مُساهمةموضوع: رد: كود لتغيير اسماء محركات الأقراص   الأربعاء أغسطس 12, 2009 1:05 am

مشكووووووووور

دوم الابداع و التميز

تحياتي لكـــ , و تقبل مروري
الرجوع الى أعلى الصفحة اذهب الى الأسفل
القناص
جوكر
جوكر


عدد المساهمات : 72
السٌّمعَة : 0
تاريخ التسجيل : 12/08/2009

مُساهمةموضوع: رد: كود لتغيير اسماء محركات الأقراص   الجمعة سبتمبر 04, 2009 9:12 am

اكود مفيدة و موصوع مفيد

شكرا لك اخي

و تقبل مروري
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كود لتغيير اسماء محركات الأقراص
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
! წ…℅……ঔღঔ…ੲੜ منتديات جوكر ੲੜ…ঔღঔ……℅…წ :: ¨°o.O (ركن لغات البرمجة) O.o°¨ :: ¨°•√♥ منتدى اكواد و كتب فيجوال بيسك♥√•°¨-
انتقل الى: