| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

У кого-нибудь работало NetUserSetGroups [D7, NT4, Win2k, WinXP]

AbrosimovA ©   (2007-05-10 16:18:00) 

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


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:00) [1]

typedef struct _GROUP_USERS_INFO_0
{   LPWSTRgrui0_name;
} GROUP_USERS_INFO_0

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

---

Наверх