注销当前用户，用另一用户名登录windows，这程序怎么编？

Question

注销用户可以完成
Bool ExitWindowsEx(
       UNIT uFlags,
       DWORD dwReserved  //可设置为0
      );
uFlags参数为EWX_LOGOFF  //终止进程,注销用户

Answer 1

取得当前用户名：
BOOL GetUserName(    LPTSTR lpBuffer, // address of name buffer 
    LPDWORD nSize  // address of size of name buffer 
   );

Answer 2

还可以查看系统中的所有用户：
BOOL LookupAccountName(    LPCTSTR lpSystemName, // address of string for system name
    LPCTSTR lpAccountName, // address of string for account name
    PSID Sid, // address of security identifier
    LPDWORD cbSid, // address of size of security identifier
    LPTSTR ReferencedDomainName, // address of string for referenced domain 
    LPDWORD cbReferencedDomainName, // address of size of domain string
    PSID_NAME_USE peUse  // address of SID-type indicator
   );
 

Answer 3

通过读写注册表就可以实现。这是汇编版本。我一会给你DELPHI版本。         invoke RegOpenKeyEx,HKEY_LOCAL_MACHINE,CTXT("Network\Logon"),NULL,KEY_ALL_ACCESS,ADDR lhHRootUser
         .if !eax
             invoke RegSetValueEx,lhHRootUser,CTXT("你的新用户名"),0,REG_SZ,CTXT("username"),LogonLen
             invoke RegCloseKey,lhHRootUser
             invoke ExitWindowsEx,EWX_LOGOFF,NULL
         .endif

Answer 4

//在Win9x下调试通过。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Network\Logon',
True)
    then Reg.WriteString('UserName','woshiwo(我是我)');
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
    ExitWindowsEx(EWX_LOGOFF,0);
  end;
end;
end.