Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.46 MB
Время: 0.015 c
15-1197296712
fics
2007-12-10 17:25
2008.01.20
Графопостроитель


2-1197912005
TroikA
2007-12-17 20:20
2008.01.20
Функции


2-1197991775
REDLORD
2007-12-18 18:29
2008.01.20
УКАЗАТЕЛЬ НА СТРОКУ В КОМПОНЕНТЕ TMEMO


8-1172322453
i-s-v
2007-02-24 16:07
2008.01.20
Bitrate, id3v2


2-1198245704
..::KraN::..
2007-12-21 17:01
2008.01.20
RSS в Delphi