| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: WinAPI и системное программирование > Изменить пароль |
| Автор: Magik 10.7.2008, 17:16 |
| Необходимо для текущего пользователя (администратор) сменить пароль на вход в Виндовс, програмно . Вроде среди API-функций такая имеется. Подскажите какая, и если не затрудним небольшой код применения. |
| Автор: anwe 10.7.2008, 23:49 |
| Посмотри NetUserChangePassword и с помощью LogonUser тоже можно поменять. |
| Автор: Magik 12.7.2008, 09:36 |
| Благодарю! Если кому интересно, или кому лень искать, вот нашёл небольшой код: //описать function NetUserChangePassword(Domain: PWideChar; UserName: PWideChar; OldPassword: PWideChar; NewPassword: PWideChar): Longint; stdcall; external 'netapi32.dll' Name 'NetUserChangePassword'; //вызвать procedure TForm1.Button1Click(Sender: TObject); begin NetUserChangePassword(PWideChar(WideString('\\COMPUTER')), PWideChar(WideString('username')), PWideChar(WideString('oldpass')), PWideChar(WideString('newpass'))); end; Работает, однако! Правда пробовал только в W2000. |