SysInfo – Sistem Bilgisi(kaynak1.v.basic)

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



SysInfo - Özellikler





ACStatus

BatteryFullTime

BaterryLifepercent

BatteryLifeTime

BatteryStatus

Index




Name

Object

OsBuild

OsPlatform

OSVersion

Parent




ScrollSize

Tag

WorkAreaHeight

WorkAreaLeft

WorkAreaTop

WorkAreaWidth


SysInfo - Olaylar





ConfigChangeCancelled

ConnfigChanged

DeviceArrival

DeviceOtherEvent

DeviceQueryRemove

DeviceQueryRemoveFailed


DeviceRemoveComplete

DeviceRemovePending

DevModeChanged

PowerResume

PowerStatusChanged




PowerSuspend

QueryChangeConfig

SettingChanged

SysColorChanged

TimeChanged