Текущий архив: 2008.01.20;
Скачать: CL | DM;

Вниз

У кого-нибудь работало NetUserSetGroups   Найти похожие ветки 

← →
AbrosimovA ©   (2007-05-10 16:18) [0]

Я пытаюсь это сделать следующим образом:


procedure TMainForm.Button1Click(Sender: TObject);
var
 GroupUsersInfo0 : TGroupUsersInfo0;
 R: integer;
begin
FillChar(GroupUsersInfo0,SizeOf(GroupUsersInfo0),0);
GroupUsersInfo0[0].grui0_name:="Администраторы";
R:=NetUserSetGroups(nil,"MyUser",0,@GroupUsersInfo0,1);
ShowMessage(SysErrorMessage(R));
end;


Но выдаёт ошибку NERR_GroupNotFound (Не найдена группа), хотя эта группа существует.

---

← →
clickmaker ©   (2007-05-10 18:35) [1]

typedef struct _GROUP_USERS_INFO_0
{  LPWSTR grui0_name;
} GROUP_USERS_INFO_0

уникод типа. StringToWideChar()

---

Страницы: 1 вся ветка

Текущий архив: 2008.01.20;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.044 c