Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];

Вниз

Как получить расшифровку логина 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.005 c
15-1258976801
Insor
2009-11-23 14:46
2010.01.31
Сайт для поиска работы программистом


10-1163425650
Note
2006-11-13 16:47
2010.01.31
Определение наличия подключений к серверу


15-1259271016
Юрий
2009-11-27 00:30
2010.01.31
С днем рождения ! 27 ноября 2009 пятница


1-1233598079
Deltas
2009-02-02 21:07
2010.01.31
Сервер COM (.EXE)


15-1259333816
Демо
2009-11-27 17:56
2010.01.31
Ветку реестра может кто кинуть?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский