Имя пользователя

← →
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]

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

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