Microsoft Access Programmierrezepte

R12.22 Den Windows-Lizenznehmer ermitteln

Aufgabe

Möchten Sie den Namen bzw. die Firma des Windows-Lizenznehmers ermitteln?

Lösung

Kein Problem, Sie finden zwar keine API-Funktion dafür, aber die Information befindet sich in der Registrierdatenbank und ist damit schnell ausgelesen.

Oberfläche

Auf dem Formular platzieren Sie lediglich zwei Befehlsschaltflächen und ein Textfeld.

Quelltext

Option Explicit

Binden Sie zunächst die folgenden API-Deklarationen ein:

Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Private Const VER_PLATFORM_WIN32s = 0 Private Const VER_PLATFORM_WIN32_WINDOWS = 1 Private Const VER_PLATFORM_WIN32_NT ...