Главная страница
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-1197282248
em240
2007-12-10 13:24
2008.01.20
На чём написана Delphi?


1-1192652861
cadmy
2007-10-18 00:27
2008.01.20
реакция на клавиши в свернутой программе


15-1197466264
Kerk
2007-12-12 16:31
2008.01.20
Есть ли тут счастливые обладатели робопылесосов типа RV-2/RV-10


15-1197295733
Riply
2007-12-10 17:08
2008.01.20
Результат трехчасовых поисков ошибки в проекте :)


2-1197979576
istok
2007-12-18 15:06
2008.01.20
верна ли функция