Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c