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

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

NetUserAdd

Frakt ©   (2003-02-01 15:42:00) 

Приветствую всех!!
Пишу себе для удобства. Но выдает: Error Invalid Parameter number 5
с usri1_priv:=2; проходит на ура, почему?? Кто сможет помочь??

type USER_INFO_1=record
usri1_name:pwidechar;
usri1_password:pwidechar;
usri1_password_age:dword;
usri1_priv:dword;
usri1_home_dir:pwidechar;
usri1_comment:pwidechar;
usri1_flags:dword;
usri1_script_path:pwidechar;
end;
buffer=^USER_INFO_1;
var
Form1: TForm1;

implementation

{$R *.DFM}
function NetUserAdd(Server:PWideChar;Level:DWORD;Buf:pointer;ParmError:dword):LongInt;
stdcall; external "netapi32.dll";


procedure TForm1.Button1Click(Sender: TObject);
var buf:buffer;
error:integer;
begin
getmem(buf,sizeof(USER_INFO_1));
with buf^ do
begin
usri1_name:="123e";
usri1_password:="123456789";
usri1_password_age:=0;
usri1_priv:=2;
usri1_home_dir:=nil;
usri1_comment:=nil;
usri1_flags:=1;
usri1_script_path:=nil;
end;
netuseradd(nil,1,pointer(buf), 0);
freemem(buf);
end;

С наилучшими Den.

---

Frakt   (2003-02-01 15:44:00) [1]

Ошибся малость читать с usri1_priv:=2; проходит на ура, почему??

---

Наверх