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

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

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

---

← →
mibmibus ©   (2003-05-13 10:25) [3]

Ой,
GetUserName: String;

---

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

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



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