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

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

Как получить расшифровку логина WIndows [XP]

Deniskov ©   (2009-12-10 10:04:00) 

Подскажите, пожалуйста, как можно получить, не знаю как правильно это назвать - расшифровку, ФИО или комментарий логина пользователя?  Эти данные выводятся в меню "Пуск" в самом верху, как бы в заголовке окна меню. Администратор домена записывает туда ФИО.
Понимаю - описание сумбурное, но точнее не знаю как сказать:)

---

Deniskov   (2009-12-10 10:51:00) [1]

Спасибо, попробую:)

---

Ymen   (2009-12-10 10:20:00) [2]

procedure GetUserNameEx (NameFormat: DWORD; lpNameBuffer: LPSTR; nSize: PULONG); stdcall; external 'secur32.dll' Name 'GetUserNameExA';
function LoggedOnUserNameEx : string;
{
const
 NameUnknown          = 0; // Unknown name type.
 NameFullyQualifiedDN = 1; // Fully qualified distinguished name
 NameSamCompatible    = 2; // Windows NT® 4.0 account name
 NameDisplay          = 3; // A "friendly" display name
 NameUniqueId         = 6; // GUID string that the IIDFromString function returns
 NameCanonical        = 7; // Complete canonical name
 NameUserPrincipal    = 8; // User principal name
 NameCanonicalEx      = 9;
 NameServicePrincipal = 10; // Generalized service principal name
 DNSDomainName        = 11; // DNS domain name, plus the user name
}
{var
 UserName : array [0..250] of char;
 Size     : DWORD;
begin
 Size := 250;
 GetUserNameEx (3, @UserName, @Size);
 Result := UserName;
end

---

Наверх