求delphi修改windows xp 账号的函数

Question

用什么函数能修改windows xp 的用户名。请高手指点迷津！！！！

Answer 1

先取出來來再說修改吧function GetCurrentUserName: string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string; dwUserNameLen: DWord;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen); SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end; 

Answer 2

http://topic.csdn.net/t/20040608/18/3074697.html

Answer 3

取出之後再用NetUserChangePassword函數

Answer 4

这个问题可以考虑两方面的情况：第一，你的sql2000没有打sp3或以上的补丁；第二，你的sql没有设置账号登陆，可以在(local)(Windows NT)上右键-属性-安全性-选上(SQL server和windows)-确定问题应该就可以解决了…