function NetUserChangePassword(Domain
WideChar;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;UserName
WideChar;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;OldPassword
WideChar;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;NewPassword
WideChar): LongInt; stdcall;
; ; ; ; ; ; ; ; ; ; ; ;external 'netapi32.dll' name 'NetUserChangePassword';
// 运行平台:Windows NT/2000/XP // Windows 95/98/Me平台:可以用该函数修改用户的Windows登录密码
procedure TForm1.Button1Click(Sender: TObject);
begin
; NetUserChangePassword(PWideChar(WideString('//COMPUTER')), ;//计算机名
; ; ; ; ; ; ; ; ; ; ; ; PWideChar(WideString('username')), ; ;//用户
; ; ; ; ; ; ; ; ; ; ; ; PWideChar(WideString('oldpass')), ; ; //旧密码
; ; ; ; ; ; ; ; ; ; ; ; PWideChar(WideString('newpass'))); ; ;//新密码
end;