VerifyScreenSavePwd-Funktion Diese Funktion blendet einen Dialog ein, der die Eingabe des Bildschirmschonerpassworts erfordert.
Betriebssystem:  Win95, Win98, WinNT 4.0, WinME	Views:  7.596

Deklaration:

Declare Function VerifyScreenSavePwd Lib "password.cpl" ( _
  ByVal hWnd As Long) As Long

Beschreibung:
Diese Funktion blendet einen Dialog ein, der die Eingabe des Bildschirmschonerpassworts erfordert.

Parameter:

hWnd	Erwartet das Fensterhandle des Fensters, zu dem sich der Dialog modal verhalten soll.

Rückgabewert:
Wurde das korrekte Passwort eingegeben, so ist die Rückgabe ein Wert "ungleich 0". Trat ein Fehler auf oder wurde der Dialog abgebrochen so wird derWert "0" zurückgegeben.

Beispiel:

Private Declare Function PwdChangePassword Lib "mpr.dll" _
  Alias "PwdChangePasswordA" ( _
  ByVal lpcRegkeyname As String, _
  ByVal hWnd As Long, _
   ByVal uiReserved1 As Long, _
  ByVal uiReserved2 As Long) As Long
Private Declare Function VerifyScreenSavePwd Lib "password.cpl" ( _
  ByVal hWnd  As Long) As Long

' Bildschirmschoner-Passwort abfragen
Private Sub Form_Load()
  Dim Retval As Long
 
  On Error Resume Next
  Retval = VerifyScreenSavePwd(Me.hWnd)
 
  ' Ergebnis auswerten
  If Retval << 0 Then
    MsgBox "Ihre Eingabe war korrekt oder es ist kein Passwort erforderlich" 
  Else
    MsgBox "Sie haben das falsche Passwort eingegeben oder es ist ein  _
    Fehler aufgetreten."
    Command1.Enabled = False
  End If
End Sub

' Neues Bildschirmschoner-Passwort setzen
Private Sub Command1_Click()
  Dim Retval As Long
 
  ' Passworteingabedialog aufrufen
  Retval = PwdChangePassword("SCRSAVE", Me.hWnd, 0&, 0&)
 
  If Retval << 0 Then
    MsgBox "Die Eingabe wurde abgebrochen"
  End If
End Sub