Foros Club Delphi - Agregar un usuario en Windows

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Agregar un usuario en Windows (https://www.clubdelphi.com/foros/showthread.php?t=45037)

Agregar un usuario en Windows

Hola amigos. Hay alguna forma de agregar un usuario a Windows desde delphi???

Si alguien sabe algo de esto y me puede ayudar le estare muy agradecido.

Ojala sea algo como function AddUser(UserName, Password: String; Privilegio: TPrivilegio): Boolean; ja aj jaja!!

Gracias de ante mano !!

por APIs hay forma, lastimosamente no estoy en mi ksa y no la recuerdo para ponertela... pero se me ocurre lo siguiente como segunda opción:

Código Delphi [-]WinExec('net user ClubDelphi cHackAll /add', SW_HIDE);

una linea! si no te doy otra basada en el uso de ActiveX

Código Delphi [-]function AddUser(UserName, Password: string; Admin: Boolean): Boolean;
var NewUser: Variant;
begin
 Result := False;
 NewUser := CreateOleObject('Shell.Users');
 try
  NewUser := NewUser.create(UserName);
 except
  Exit;
 end;
// if Password <> '' then
//  NewUser.changePassword(Password, '');
 NewUser.setting['AccountType'] := (Byte(Admin) * 2) + 1;
 Result := True;
end;

Lo malo es que no pude hacer que funcione el 'changePassword', ideas de nuevo quedan bien venidas, pero la idea es esa

Suerte!