Quickstart Guide to Screensavers, Page 5

Your screensaver needs to handle passwords. This section will deal with allowing the user to change their password. We will later look at prompting the user for a password, plus verifying its authenticity.

Changing the Password

• Add the following code to a module in your screensaver application:

Declare Function PwdChangePassword& Lib "mpr" _    Alias "PwdChangePasswordA" (ByVal lpcRegkeyname$, _    ByVal hwnd&, ByVal uiReserved1&, ByVal uiReserved2&)        Public Sub ChangePassword()    Dim dispHWND As Long    ' Get handle of the Display Properties window    dispHWND = CLng(Right(Command, Len(Command) - 3))        ' Call the change password screen    Call PwdChangePassword("SCRSAVE", dispHWND, 0, 0)End Sub

• When a password change is requested (see Determining the Mode), run the ChangePassword method