Re[2]: Проверка учётной записи в домене Windows 2000
От: Synthetic Brain  
Дата: 07.04.03 01:22
Оценка:
AF>Я думаю, у тебя что-то с Unicode напутано, но это лишь только догадки. Покажи свой код, тогда можно будет говорить определенно.

Вот часть кода:


// определяю структуру USER_INFO_0
type
    TUser_Info = record
        User_Name: string;
        User_Password: string;
        User_Password_Age: Double;
        User_Priv: Double;
        User_Home_Dir: string;
        User_Comment: string;
        User_Flags: Double;
        User_Script_Path: string;
    end;
    ----*************----

// определяю переменные для передачи параметров в функцию NetUserGetInfo
var
  Server_Name: string;
  User_Name: string;
  User_Info: TUser_Info;
    ----*************----

    Server_Name:=Server.Text;     // берём имя сервера с TEdit
    User_Name:=User.Text;         // берём имя пользователя с TEdit

// вызываю функцию вот так
    Result:=NetUserGetInfo(Pointer(Server_Name), Pointer(User_Name), 0, @User_Info);



После этого Result становится равным 2202 (ошибка тобишь).
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.