採用Delphi

Question

創建的Windows用戶，我需要用Delphi

感謝

Answer 1

您可以使用JEDI Headers中聲明的NetUserAdd和NetUserSetGroups函數。

看到這個簡單的例子。

program ProjectAddNewUser; 

{$APPTYPE CONSOLE} 

uses 
    JclWin32,//Jedi Library 
    Windows, 
    SysUtils; 


function CreateWinUser(const wServer, wUsername, wPassword, wGroup:WideString): Boolean; 
var 
    Buf  : USER_INFO_2;//Buf for the new user info 
    Err  : NET_API_STATUS; 
    ParmErr : DWORD; 
    GrpUsrInfo: USER_INFO_0;//Buf for the group 
    wDummyStr : WideString; 
begin 
    wDummyStr:=''; 
    FillChar (Buf, SizeOf(USER_INFO_2), 0); 
    with Buf do 
    begin 
    usri2_name  := PWideChar(wUsername); 
    usri2_full_name := PWideChar(wUsername);//You can add a more descriptive name here 
    usri2_password := PWideChar(wPassword); 
    usri2_comment := PWideChar(wDummyStr); 
    usri2_priv  := USER_PRIV_USER; 
    usri2_flags  := UF_SCRIPT OR UF_DONT_EXPIRE_PASSWD; 
    usri2_script_path := PWideChar(wDummyStr); 
    usri2_home_dir := PWideChar(wDummyStr); 
    usri2_acct_expires:= TIMEQ_FOREVER; 
    end; 

    GrpUsrInfo.usri0_name:=PWideChar(wGroup); 

    Err := NetUserAdd(PWideChar(wServer), 1, @Buf, @ParmErr); 
    Result := (Err = NERR_SUCCESS); 

    if Result then //NOw you must set the group for the new user 
    begin 
    Err := NetUserSetGroups(PWideChar(wServer),PWideChar(wGroup),0,@GrpUsrInfo,1); 
    Result := (Err = NERR_SUCCESS); 
    end; 
end; 

begin 

    if CreateWinUser('localhost', 'MyNewUser','ThePassword','MyWindowsGroup') then 
    Writeln('Ok') 
    else 
    Writeln('False'); 

    Readln; 
end. 

Answer 2

創建新的Windows用戶以管理員身份我覺得API調用你需要的是NetUserAdd。

首先，檢查Delphi是否爲此調用提供包裝。如果沒有，你必須自己寫。如果您不知道如何使用Delphi進行Windows API調用，那麼您需要做更多的研究。