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

Вниз

Помогите пожалуйста... Я из реестра беру имя пользователя...   Найти похожие ветки 

 
SANEK_10289 ©   (2005-10-12 09:29) [0]

Помогите пожалуйста...
Я из реестра беру имя пользователя компьютера, таким способом:
// узнаем текущего юзера в системе
Rg:=TRegistry.Create;
Rg.RootKey:=HKEY_CURRENT_USER;
Rg.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Explorer",true);
CurrentUser:=Rg.ReadString("Logon User Name");
Rg.Free;

но почему то оттуда береться одна фамилия, например: Петров,
а в заголовке меню Windows высвечиваеться: Петров Петр Петрович

Откуда взять полное имя пользователя, с какого места из реестра? Помогите...


 
umbra ©   (2005-10-12 10:24) [1]

на ХР имя пользователя содержится в переменной среды USERNAME.

uses SysUtils;
var usr: string;
{......................}
usr := GetEnvironmentVariable("username");


 
SANEK_10289 ©   (2005-10-12 10:47) [2]

спасибо.



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

Форум: "Основная";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.037 c
2-1129168891
lmz
2005-10-13 06:01
2005.11.06
Округлени числа бухгалтерским методом


3-1127462400
agp200431
2005-09-23 12:00
2005.11.06
Правильно ли я делаю что базу IB 6.0 бекаплю а потом разархивирую


2-1129316258
Тест
2005-10-14 22:57
2005.11.06
Memo


3-1127387537
Leshiy
2005-09-22 15:12
2005.11.06
Проблема использования SUM() в запросе.


14-1129198721
Ega23
2005-10-13 14:18
2005.11.06
Когда выздоровеет Россия?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский