Was Sie also für diesen Tipp benötigen, ist die
Sysinfo.ocx, aber die sollten Sie standardmäßig schon in Ihrem Windows\System
Verzeichnis haben.
Um diese Informationen abzurufen, müssen sie in Ihr Projekt über
Extras/Zusatzsteuerelemte die Syinfo.ocx hinzufügen.Was also kann man alles mit Ihr für Informationen auslesen.
Die meisten der Abfragen liefern eine direkt auswertbare
Rückgabe.
| Batterieladezeit |
SysInfo1.BatteryFullTime |
| Batteriebetriebsbereitschaft |
SysInfo1.BatteryLifeTime |
| Batteriebetriebsbereitschaft % |
SysInfo1.BatteryLifePercent / 100 |
| Systemversion (Major) |
SysInfo1.OSVersion |
| Systemversion (Minor,Build) |
SysInfo1.OSBuild |
| Scrollbargröße |
SysInfo1.ScrollBarSize |
| Desktophöhe |
SysInfo1.WorkAreaHeight |
| Desktop von Oben |
SysInfo1.WorkAreaTop |
| Desktop von Links |
SysInfo1.WorkAreaLeft |
| Desktopbreite |
SysInfo1.WorkAreaWidth |
Interessant ist neben dem Ermitteln der
Betriebssystemversion, inkl. Buildnummer
das ermitteln der tatsächlich verfügbaren Desktopbreite und -höhe, also abzüglich
einer dauerhaft sichtbaren Tastleiste.
Neben den schon erwähnten gibt es ein paar Funktionen,
dessen Rückgabewerte erst zugeordnet werden müssen.
Batterieladestatusangaben (nur für Laptops
interessant)
Select Case SysInfo1.BatteryStatus
Case 1
List1.AddItem "BatteryStatus = HIGH"
Case 2
List1.AddItem "BatteryStatus = LOW"
Case 4
List1.AddItem "BatteryStatus = CRITICAL"
Case 128
List1.AddItem "BatteryStatus = NO BATTERY"
Case 255
List1.AddItem "BatteryStatus = UNKNOWN"
End Select
Betriebssystemabfrage
Select Case SysInfo1.OSPlatform
Case 0
List1.AddItem "OSPlatform = Unknown 32-Bit Windows"
Case 1
List1.AddItem "OSPlatform = Windows 95"
Case 2
List1.AddItem "OSPlatform = Windows NT"
End Select
Das sind die Funktionen die mir bekannt sind. |
