R8.15 Seriennummer der Festplatte ermitteln

Aufgabe

Sie wollen einen möglichst einfachen Kopierschutz in Ihre Programme einbauen.

Lösung

Einen einfachen Kopierschutz, der allerdings für einen Profi nicht unüberwindbar ist, können Sie mit Hilfe der Festplattenseriennummer realisieren. Diese lesen Sie mit Hilfe der API-Funktion GetVolumeInformation aus.

Oberfläche

Zum Austesten genügt ein Formular mit einer Befehlsschaltfläche.

Quelltext

Binden Sie zunächst die folgende API-Funktion ein:

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _ (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _ lpMaximumComponentLength As Long, lpFileSystemFlags ...

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial