Das leidige Thema des UAC (User Account Control, oder zu Deutsch: Benutzerkontensteuerung) beschäftigt uns VB-Programmierer immer wieder; haben wir doch plötzlich nicht mehr das Recht Dateien in unserem Applikationsverzeichnis zu ändern, wenn die Installation unter "..\Program Files\.." erfolgte - und das Registrieren von DLLs oder OCXs zur Laufzeit ist auch nicht mehr so leicht wie früher...
 
Ursache:
Versionen von Windows, die älter als Windows NT sind beziehungsweise nicht davon abstammen (also Windows 95, 98 und ME), waren Einzelbenutzersysteme, in denen der Benutzer die volle Systemkontrolle besaß.
Windowssysteme der NT-Reihe sind dagegen Mehrbenutzersysteme, in denen Benutzerrollen und Benutzerrechte verwaltet werden.
Diese Verwaltung hat Microsoft ab Windows Vista mit dem UAC nochmals verschärft, sodaß wir selbst als angemeldeter Administrator nicht mehr vollen Zugriff auf alle Verzeichnisse und Systemfunktionen haben.
 
Da die nachfolgende API-Funktion, "IsUserAnAdmin", nur auf NT-Systemen bekannt ist,
sollte sie mit dem Tipp "0001 NT-Betriebssystem?" verknüpft werden. Sie behebt zwar nicht das Problem, sagt uns aber mit welchen Rechten wir gerade unterwegs sind! Außerdem ist sie UAC kompatibel - d.h. gibt 'False' zurück, wenn unter Vista / Win7 ein Mitglied der Administratorengruppe angemeldet ist, dieses aber vom UAC auf Benutzerrechte zurückgestuft wurde!

Private Declare Function IsUserAnAdmin Lib "shell32.dll" () As Long

' Hat der Benutzer Administrator-Rechte?
Public Function isAdmin() As Boolean
  If isSystemNT Then  ' Siehe Tipp 0001
    isAdmin = CBool(IsUserAnAdmin())
  Else
    ' auf Einzelbenutzersystemen
    ' hat der User immer Adminrechte
    isAdmin = True
  End If
End Function

Lösungsansatz:
Vermeiden Sie das Anlagen und Schreiben von Dateien in Ihrem Anwendungsverzeichnis!
So wie Sie im Allgemeinen zu Beginn des Programms den Anwendungspfad ermitteln (glbAppPath = App.Path & "\") können Sie auch den ab Windows 2000 bereitgestellten Programmdatenpfad zur Laufzeit dynamisch auslesen und für Ihre Zwecke verwenden.
Benutzen Sie dazu die Funktion getSpecialFolder mit dem Parameter CSIDL_COMMON_APPDATA (&H23) in der Form:

glbDataPath = getSpecialFolder(CSIDL_COMMON_APPDATA)

• ist die Variable glbDataPath leer, so handelt es sich um ein nicht NT-System und die Daten können nach wie vor problemlos im Anwendungsverzeichnis abgelegt werden - wir setzen also glbDataPath = glbAppPath.
• anderenfalls erweitern Sie den zurückgegebenen Pfad um "\" & App.Title & "\" und legen ihn an, falls er nicht existiert. Hier darf auch bei aktivem UAC frei agiert werden!

Laden und speichern Sie zusätzliche Programmdaten, wie Konfigurationen und INI-Files im Verzeichnis glbDataPath. Egal unter welchem System Ihre Anwendung läuft: die Daten können nun problemlos geschrieben und verändert werden...

P.S.: Demo-Projekt folgt

Autor: ralf schlegel
Stand: 12/2009

Nach oben

Jeder nutzt sie - die VB-integrierte MsgBox Funktion! Sie erspart einem das Erstellen einer Form und ist einfach ideal für Benutzer-Informationen, oder interaktive Abfragen.
Doch das Einfache hat auch wieder seinen Preis:
Viele Features dieser Box hat Microsoft den VB-Usern leider nicht zur Verfügung gestellt.

Mit dem hier zum Download bereit gestellten Beispiel können Sie die MsgBox endlich im vollen Umfang nutzen:

• keine Blockade von Timern bei Aufruf der Box
• Unterstützung der optionalen Hilfe Schaltfläche mit Kontext Nummer
• optional frei definierbare Button-Beschriftung
• optional automatisches Schließen nach Zeit
• durchgängig verwendbar von Windows 98 bis Windows Vista
• 100% kompatibel zur VB-internen MsgBox!

Die Funktionen sind in einem einzigen Modul gekapselt und lassen sich so problemlos in Ihre Anwendungen implementieren, da Sie dort nur den Aufruf Ihrer bisherigen MsgBox durch vbzMsgBox ersetzen, bzw. erweitern müssen.
Der Quellcode ist ausführlichst dokumentiert und sollte somit auch wenig erfahrenen VB-lern keine Probleme bereiten...

   0002_vbzMsgBox.zip

Autor: ralf schlegel
Stand: 08/2009

Nach oben

Damit Ihre Applikation auf den verschiedenen Windows-Plattformen lauffähig ist, ist es manchmal notwendig zwischen NT (NT/2000/XP) und Nicht-NT (Win9x/ME) Systemen zu unterscheiden, da zum Beispiel einige API-Aufrufe nur auf NT-Plattformen zur Verfügung stehen. Wenn auch die benutzte "GetVersionEx"-Funktion die genaue Betriebssystem-Version ermitteln kann, wollen wir uns in diesem Fall auf die Prüfung von NT-Basis beschränken:

' Deklaration:
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
                 (lpVersionInformation As OSVERSIONINFO) As Long

' Typendefinition:
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_WIN32_NT = 2


' Funktion:
' Prüft auf NT-Betriebssysteme: True bei NT/2000/XP, sonst False
Public Function isSystemNT() As Boolean
  Dim info As OSVERSIONINFO

  info.dwOSVersionInfoSize = Len(info)
  GetVersionEx info
  isSystemNT = (info.dwPlatformId = VER_PLATFORM_WIN32_NT)
End Function

Autor: ralf schlegel
Stand: 10/2004

Nach oben