NetUserGetInfo

← →
aldapooh (2003-08-28 13:23) [0]

не могу понять что не так?
выдает ошибку 997 Overlapped I/O ...
и соответсвенно возвращает пустое имя...
(имя я проверяю только для отладки потом мне понадобяться другие поля)

procedure TForm1.Button7Click(Sender: TObject);
var
Inf: USER_INFO_0;
PInf: pointer;
ServerName: widestring;
Username: widestring;
Res: NET_API_STATUS;
begin
ServerName:= "\\name";
UserName:= "name"
Res:= 0;
try
Res:= NetUserGetInfo(PWideChar(ServerName),PWideChar(UserName),0,PInf);
LastError := GetLastError;
ShowMessage(IntToStr(LastError) + #13 + SysErrorMessage(LastError));
except
end;
if Res = NERR_Success then
ShowMessage(WideCharToString(PWideChar(Inf.usri0_name)));

← →
Andersen (2003-08-28 17:07) [1]

Если я не ошибаюсь ServerName must be без \\ и последний параметр @Inf

NetUserGetInfo Найти похожие ветки