SysInfo – Sistem Bilgisi

Private Sub Command1_Click()
Dim Sistem As String
Select Case SysInfo1.OSPlatform
Case 0
Sistem = "Tanımlanamadı"
Case 1
Sistem = "Windows 95 version." & CStr(SysInfo1.OSVersion)
Case 2
Sistem = "Windows NT version." & CStr(SysInfo1.OSVersion)
End Select
MsgBox "Sistem: " & Sistem
End Sub

Private Sub SysInfo1_DisplayChanged()
If Screen.ActiveForm.Width > SysInfo1.WorkAreaWidth Then
Screen.ActiveForm.Left = SysInfo1.WorkAreaLeft
Screen.ActiveForm.Width = SysInfo1.WorkAreaWidth
End If
If Screen.ActiveForm.Height > SysInfo1.WorkAreaHeight Then
Screen.ActiveForm.Top = SysInfo1.WorkAreaTop
Screen.ActiveForm.Height = SysInfo1.WorkAreaHeight
End If
End Sub