A mellékelt példaprogram megnyitása előtt a ChangePassword.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
Egy Windows NT alapú rendszerben csak akkor változtathatunk meg egy jelszót, ha van arra jogosultságunk.
A TChangePassword komponens segítségével a Windows-hoz hasonló módon változtathatjuk meg egy felhasználó jelszavát. A jelszó megváltoztatásához meg kell adnunk a számítógép nevét (ComputerName), a felhasználó nevét (UserName), a felhasználó előző jelszavát (OldPassword) és az új jelszót (NewPassword). Ezután a ChangePassword metódus meghívásával aktiválhatjuk az új beállításokat.
function ChangePassword: Boolean;
A függvény visszatérési értéke igaz, ha sikerült beállítani az új jelszót, ellenkező esetben hamis.
Amikor meghívjuk a komponens ChangePassword metódusát, akkor az a háttérben a beállított property-k értékeit felhasználva meghív egy API függvényt. Ez az API függvény a NetUserChangePassword, melyet az alábbi módon kell deklarálnunk Delphi programunkban.
function NetUserChangePassword(Domain: PWideChar; UserName: PWideChar; OldPassword: PWideChar;
NewPassword: PWideChar): Longint; stdcall; external 'netapi32.dll';
Amikor a függvény egy paraméterének értékül akarunk adni egy string-et, akkor azt az alábbi típuskényszerítésen keresztül tehetjük meg.
PWideChar(WideString(FUserName))
NetUserChangePassword
function NetUserChangePassword(
Domain: PWideChar;
UserName: PWideChar;
OldPassword: PWideChar;
NewPassword: PWideChar
): Longint;
A függvény egy felhasználó jelszavának megváltoztatására szolgál.
Paraméterek
Domain: PWideChar
A hálózati tartományt vagy számítógépet azonosítja. Ha üres paraméterként adjuk meg, akkor az aktuális bejelentkezés tartományát használja. A megadott paraméternek a „\\ „ jelekkel kell kezdődnie.
UserName: PWideChar
A felhasználót azonosítja. Ha elhagyjuk, akkor az aktuális felhasználóra vonatkozik a jelszóváltás.
OldPassword: PWideChar
A régi jelszó.
NewPassword: PWideChar
Az új jelszó.
Visszatérési érték
0, ha a jelszó megváltoztatása sikeres volt.
Megjegyzés
Windows NT, 2000 és XP rendszerekben használható. A Netapi32.dll-ben található.