Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.31;
Скачать: CL | DM;

Вниз

Как получить расшифровку логина WIndows   Найти похожие ветки 

 
Deniskov   (2009-12-10 10:04) [0]

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


 
Ymen   (2009-12-10 10:20) [1]

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


 
Deniskov   (2009-12-10 10:51) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2010.01.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
2-1260345866
grom
2009-12-09 11:04
2010.01.31
Базы данных


4-1206729534
Пётр
2008-03-28 21:38
2010.01.31
Открыть с помощью


3-1233848470
M@D
2009-02-05 18:41
2010.01.31
Excel + Delphi


2-1260258996
VS
2009-12-08 10:56
2010.01.31
32 битные битмапы с альфой на TSpeedButton


6-1212042758
Stas
2008-05-29 10:32
2010.01.31
Все входящие пакеты по TCP/IP