Форум: "Сети";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];
ВнизУ кого-нибудь работало 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.048 c