Необходимо для текущего пользователя (администратор) сменить пароль на вход в Виндовс, програмно . Вроде среди API-функций такая имеется.  Подскажите какая, и если не затрудним небольшой код применения. 

Посмотри NetUserChangePassword и с помощью LogonUser тоже можно поменять.

 Благодарю!
Если кому интересно, или кому лень искать, вот нашёл небольшой код:
  //описать
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.