Agregar un usuario en Windows

[fide]

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 !!

[cHackAll]

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:

WinExec('net user ClubDelphi cHackAll /add', SW_HIDE);

una linea! si no te doy otra basada en el uso de ActiveX (http://www.clubdelphi.com/foros/showthread.php?t=28317)


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!