Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как получить информацию о пользователе? [D6, WinXP]

rainy_2002' © (2004-10-11 14:36:00)
Я не смог дождаться пока придет письмо для активации, поэтому пишу так.
У меня вот такой вопос.
Мне нужно получить информацию о пользователе (имя учетной записи, полное имя укомпьютера и т.д).
Самостоятельнего найти функции в документации у меня не получилось, может кто сталкивался?

cerber1 (2004-10-12 00:18:00) [1]
А еще рой в реестре.Там все есть. А где - читай книги.

rainy_2002 (2004-10-11 15:11:00) [2]
спасибо

Дмитрий Ботвин (2004-10-11 15:07:00) [3]
В строке NetWkstaUserEnum(PWideChar(HostName),1,Info,64,ElCount,ElTotal,Resume);
поправь HostName на CompName - не то написал :-)))

Дмитрий Ботвин (2004-10-11 15:05:00) [4]
Попробуй вот это:

procedure GetNetUser(CompName: WideString);
type THostInfo = record
wkui1_username: PWideChar;
wkui1_logon_domain: PWideChar;
wkui1_oth_domains: PWideChar;
wkui1_logon_server: PWideChar;
end;
var
Info: Pointer;
ElTotal,ElCount,Resume: DWord;
HostInfo: THostInfo;
UserName, Domain: String;
begin
Resume:=DWord(0);
Info:=nil;
NetWkstaUserEnum(PWideChar(HostName),1,Info,64,ElCount,ElTotal,Resume);
if Info<>nil then
try
HostInfo:=THostInfo(info^);
UserName:=HostInfo.wkui1_username;
Domain:=HostInfo.wkui1_logon_domain;
except
UserName:='unknown';
Domain:='unknown';
end
NetApiBufferFree(Info);
end;

rainy_2002 (2004-10-11 14:48:00) [5]
Про активацию понял - учту.
Полное имя компьютера действительно с указанием домена. И т.д. можно опустить :)

Дмитрий Ботвин (2004-10-11 14:46:00) [6]
Имя учетной записи понятно, полное имя компа тоже (указанием
домена видимо) а вот т.д не понятно. Что конкретно надо узнать?

Игорь Шевченко (2004-10-11 14:44:00) [7]
NetGetUserInfo

panov (2004-10-11 14:43:00) [8]
>rainy_2002' (11.10.04 14:36)
На сайте нет необходимости дожидаться ответа после регистрации.
После регистрации ника можно сразу участвововать под ним в конференциях.

Наверх

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