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

← →
Dion (2003-05-13 07:33) [0]

Подскажите, Плз, как можно программно определить имя пользователя и домен, по которым был произведен вход в систему ???
WINNT

← →
ZeroDivide © (2003-05-13 08:50) [1]

GetUserName
GetComputerName
Этого не хватит для решения задачи?

← →
mibmibus © (2003-05-13 10:23) [2]

function GetUserName: PChar;
var
dwSize: Cardinal;
szBuffer: PChar;
begin
dwSize := MAX_PATH + 1;
GetMem(szBuffer, dwSize);
try
if Windows.GetUserName(szBuffer, dwSize) then
Result := String(szBuffer)
else
Result := "";
finally
FreeMem(szBuffer, dwSize);
end;
end;

function GetCompName: String;
var
dwSize: Cardinal;
szBuffer: PChar;
begin
dwSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(szBuffer, dwSize);
try
if GetComputerName(szBuffer, dwSize) then
Result := String(szBuffer)
else
Result := "";
finally
FreeMem(szBuffer, dwSize);
end;
end;

Ой,
GetUserName: String;

Подскажите, Плз, как можно программно определить имя пользователя Найти похожие ветки