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

Вниз

Имя пользователя   Найти похожие ветки 

 
FastByte   (2004-08-18 07:46) [0]

Здравствуйте.
Как в Delphi получить имя текущего польз-ля в системе?
Есть исходник на Си, но не знаю какие модули подключать, где определены нужные типы данных.


 
Юрий Зотов ©   (2004-08-18 08:10) [1]

Модуль - Windows. Функция - GetUserName.

function GetCurrentUserName: string;
var
 Buff: array[0..255] of Char;
 L: DWORD;
begin
 L := SizeOf(Buff);
 if GetUserName(Buff, L) then
   SetString(Result, Buff, L - 1)
 else
   Result := ""
end;


 
FastByte   (2004-08-18 09:22) [2]

Огромное спасибо :)



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

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

Наверх




Память: 0.46 MB
Время: 0.042 c
3-1093454029
MaxN
2004-08-25 21:13
2004.09.26
JPEG


1-1094564573
Vadim Mazein
2004-09-07 17:42
2004.09.26
Измерение скорости выполнения программ.


4-1092632719
Гость
2004-08-16 09:05
2004.09.26
NTBACKUP


3-1093856343
Aleksandr.
2004-08-30 12:59
2004.09.26
Что означает свойство Locale у TDataSet?


14-1094359127
olookin
2004-09-05 08:38
2004.09.26
Процент сов, жаворонков и сусликов...