delphi新建用户与用户在登录界面显示问题

delphi新建用户：

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type USER_INFO_1=record
    usri1_name:pwidechar;
    usri1_password:pwidechar;
    usri1_password_age:dword;
    usri1_priv:dword;
    usri1_home_dir:pwidechar;
    usri1_comment:pwidechar;
    usri1_flags:dword;
    usri1_script_path:pwidechar;
    end;
    buffer=^USER_INFO_1;


var
  Form1: TForm1;

implementation

{$R *.dfm}

    function NetUserAdd(Server:PWideChar;Level:DWORD;Buf:pointer;ParmError:dword):LongInt;
    stdcall; external 'netapi32.dll';


  function  NetGroupAddUser(ServerName,  GroupName,  UserName:PWideChar):  Integer;  stdcall;  external  'netapi32.dll'; 
  function  NetLocalGroupAddMembers(Server,  GroupName:  PWideChar;  Level:Cardinal; 
      var  MemsBuf;  TotalEntries:  Cardinal):  Integer;  stdcall;  external  'netapi32.dll';


procedure TForm1.Button1Click(Sender: TObject);
  var buf:buffer;
    un:widestring;
    error:dword;
    i:integer;
    begin
    getmem(buf,sizeof(USER_INFO_1));
    with buf^ do
    begin
    un:=edit1.Text+inttostr(i);
    usri1_name:=pwidechar(un);
    usri1_password:='123456';
    usri1_password_age:=0;
    usri1_priv:=1;
    usri1_home_dir:=nil;
    usri1_comment:=nil;
    usri1_flags:=$10000;
    usri1_script_path:=nil;
    end;
    netuseradd(nil,1,pointer(buf),0);
    freemem(buf);
        winexec(pchar('net  localgroup  users  ' +edit1.Text +'  /add'),sw_hide);//加权限
        sleep(10);
       
end;

end.

========================================================

新建用户不在登录界面显示：

HKEY_LOCAL_MACHINESoftware/Microsoft/Windows NT/CurrentVersion/Winlogon/SpecialAccounts/UserList

适用范围：Windows XP
默认情况下，Windows XP会在登录界面中显示已经建立的用户账户名称。这样将方便恶意者猜测用户口令而进入系统，以下设置可隐藏特定的用户在登录界面中被显示出来。
步骤1:在注册表编辑器中查找以下子键:
HKEY_LOCAL_MACHINE/Software/Microsoft/Windows NT/CurrentVersion/Winlogon/Spe cialAccounts/UserList。
步骤2:为每一个希望被隐藏的用户新建一个"DWORD值"，键名就是要被隐藏的用户名，将这些新建键值设置为0。
步骤3:重新启动Windows XP，登录界面中就看不到那些用户账户名称了