API windows ayarları hakkında bilgi

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long


Private Sub Form_Load()

List1.AddItem "0 Ekranın yatay genişliği =  " & GetSystemMetrics(0)
List1.AddItem "1 Ekranın dikey genişliği =  " & GetSystemMetrics(1)
List1.AddItem "2 Dikey kaydırma çubuğundaki okun boyutu =  " & GetSystemMetrics(2)
List1.AddItem "3 Yatay kaydırma çubuğundaki okun boyutu = =  " & GetSystemMetrics(3)
List1.AddItem "4 Pencere başlığının yüksekliği =  " & GetSystemMetrics(4)
List1.AddItem "5 Boyutlandırılamayan pencerenin yatay kenar kalınlığı =  " & GetSystemMetrics(5)
List1.AddItem "6 Boyutlandırılamayan pencerenin dikey kenar kalınlığı =  " & GetSystemMetrics(6)
List1.AddItem "7 Dialog kutusunun yatay kener kalınkığı =  " & GetSystemMetrics(7)
List1.AddItem "8 Dialog kutusunun dikey kener kalınkığı =  " & GetSystemMetrics(8)
List1.AddItem "9 Yatay kaydırma çubuğunun kaydırma Kutusunun Yüksekliği =  " & GetSystemMetrics(9)
List1.AddItem "10 Yatay kaydırma çubuğunun kaydırma Kutusunun genişliği =  " & GetSystemMetrics(10)
List1.AddItem "11 Standart icon genişliği =  " & GetSystemMetrics(11)
List1.AddItem "12 Standart icon yüksekliği =  " & GetSystemMetrics(12)
List1.AddItem "13 Standart kursor genişliği =  " & GetSystemMetrics(13)
List1.AddItem "14 Standart kursor yüksekliği =  " & GetSystemMetrics(14)
List1.AddItem "15 Menü yüksekliği =  " & GetSystemMetrics(15)
List1.AddItem "16 Ekranı kaplamış durumudaki pencerenin iç genişliği =  " & GetSystemMetrics(16)
List1.AddItem "17 Ekranı kaplamış durumudaki pencerenin iç yüksekliği =  " & GetSystemMetrics(17)


If GetSystemMetrics(19) Then
List1.AddItem "19 Bilgisayara bağlı bir fare var"
Else
List1.AddItem "19 Bilgisayara bağlı bir fare yok"
End If



List1.AddItem "20 Dikey kaydıma çubuğundaki okun yüksekliği =  " & GetSystemMetrics(20)

List1.AddItem "21 Dikey kaydıma çubuğundaki okun genişliği1  =  " & GetSystemMetrics(21)

If GetSystemMetrics(22) Then
List1.AddItem "22 Windoes debug modünde calışıyor"
Else
List1.AddItem "22 Windoes debug modünde calışıyor"
End If

If GetSystemMetrics(23) Then
List1.AddItem "23 Fare düğmeleri yer değiştirilmiş"
Else
List1.AddItem "23 Fare düğmeleri yer değiştirilmemiş"
End If




List1.AddItem "28 Pencerenin olabileceği minimum genişliği =  " & GetSystemMetrics(28)
List1.AddItem "23 Pencerenin olabileceği minimum yüksekliği =  " & GetSystemMetrics(23)
List1.AddItem "30 Başlık çıbuğundaki resmin genişliği =  " & GetSystemMetrics(30)
List1.AddItem "31 Başlık çıbuğundaki resmin yükseklıği =  " & GetSystemMetrics(31)
List1.AddItem "36 Çift tıklama için farenin yatay sapma genişliği =  " & GetSystemMetrics(36)
List1.AddItem "37 Çift tıklama için farenin yatay sapma yüksekliği =  " & GetSystemMetrics(37)

List1.AddItem "38 Masa üstü icon genişliği =  " & GetSystemMetrics(38)
List1.AddItem "39 Masa üstü icon yüksekliği =  " & GetSystemMetrics(39)


If GetSystemMetrics(40) Then
List1.AddItem "40 Popup menüleri sağa doğru açılıyor"
Else
List1.AddItem "40 Popup menüleri sağa doğru açılmıyor"
End If




If GetSystemMetrics(41) Then
List1.AddItem "41 Kalem yüklenmiş onun handle numarası  =  " & GetSystemMetrics(41)
Else
List1.AddItem "41 Kalem yüklenmemiş"
End If

If GetSystemMetrics(42) Then
List1.AddItem "42 Windowsun karekterleri için iki byte (japonca gibi) kullanılıyor"
Else
List1.AddItem "42 Windowsun karekterleri için iki byte (japonca gibi) kullanılmıyor"
End If

List1.AddItem "43 Farede bulunan Düğme sayısı =  " & GetSystemMetrics(43)

List1.AddItem "51 Başlıkların genişliği =  " & GetSystemMetrics(51)

List1.AddItem "61 Ekranı kaplamış durumdaki pencerenin genişliği =  " & GetSystemMetrics(61)

If GetSystemMetrics(63) Then
List1.AddItem "63 Yüklü bir ağ var"
Else
List1.AddItem "63 Yüklü bir ağ yok"
End If


Select Case GetSystemMetrics(67)

Case 0: List1.AddItem "67 Windows Açılış modu . Normal"
Case 1: List1.AddItem "67 Windows Açılış modu . Güvenli Kip"
Case 2: List1.AddItem "67 Windows Açılış modu . Ağ Güvenliği Güvenli Kip"

End Select


List1.AddItem "71 menülerdeki check işaretinin genişliği =  " & GetSystemMetrics(71)
List1.AddItem "72 menülerdeki check işaretinin Yüksekliği =  " & GetSystemMetrics(72)


If GetSystemMetrics(73) Then
List1.AddItem "73 Bilgisayarınız çok yavaş"
Else
List1.AddItem "73 Bilgisayarınız yavaş değil"
End If


If GetSystemMetrics(74) Then
List1.AddItem "74 Arapça windows var"
Else
List1.AddItem "74 Arapça windows yok"
End If




End Sub