تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة نوع القرص
#1
السلام عليكم

اطلب كود لمعرفة نوع القرص هل هو مرن او ليزري او صلب
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام
ضع على الفورم صندوقي نص text
وزر commandButton
وانسخ الكود والصقه وغير حرف القرص
PHP كود :
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
    
Me.AutoRedraw True
    Select 
Case GetDriveType(Text1.Text ":\")
        Case 2
            Text2.Text = "
ÞÑÕ ÞÇÈá ááÇÒÇáÉ"
        Case 3
            Text2.Text = "
ÞÑÕ ÕáÈ"
        Case Is = 4
            Text2.Text = "
ÞÑÕ ÞÇÈá ááÇÒÇáÉ"
        Case Is = 5
            Text2.Text = "
ãÍÑß ÇÞÑÇÕ áíÒÑ"
        Case Is = 6
            Text2.Text = "
ÞÑÕ ÐÇßÑÉ ÇáæÕæá ÇáÚÔæÇÆí"
        Case Else
            Text2.Text = "
ÛíÑ ãÚÑæÝ"
    End Select
End Sub

Private Sub Form_Load()
Text1.Text = "
C"
End Sub 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: asto , ناجي إبراهيم
#3
مشكور جدا اخي Lion_Ksa
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ KamelArab 4 157 25-11-16, 08:04 PM
آخر رد: KamelArab
  مساعدة في كود معرفة الشهر الحالي وتاريخ أوله وتاريخ نهايته tighrmte 2 185 20-02-16, 10:45 PM
آخر رد: tighrmte
  معرفة آخر تعديلات تمت فى البرنامج اسلام الكبابى 10 996 08-10-15, 07:08 PM
آخر رد: اسلام الكبابى
  معرفة نسخة الجهاز عبدالله الصافي 2 261 03-07-15, 01:54 AM
آخر رد: عبدالله الصافي
  هل من الممكن معرفة عدد مرات تشغيل البرنامج superwoofer 1 450 29-01-15, 06:40 AM
آخر رد: Ahmed_Mansoor
  مساعدة في معرفة الخطأ asto 7 823 20-01-15, 07:52 PM
آخر رد: asto
  معرفة مسار ملف مفتوح ببرنامجي asto 2 546 15-03-14, 09:52 PM
آخر رد: asto
  [كود] ممكن معرفة الخطاء اين the viper 3 1,009 09-10-13, 08:39 PM
آخر رد: the viper
  هل يمكن معرفة ملف excel مفتوح او لا AEDC 1 595 27-09-13, 09:05 PM
آخر رد: احمد تيم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم