| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
NetUserGetInfo [D7, WinXP]
aldapooh © (2003-08-28 13:23:00)
не могу понять что не так?
выдает ошибку 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:00) [1]
Если я не ошибаюсь ServerName must be без \\ и последний параметр @Inf
| |
