| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dion ©   (2003-05-13 07:33:00) 

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

---

mibmibus   (2003-05-13 10:25:00) [1]

Ой,
GetUserName: String;

---

mibmibus   (2003-05-13 10:23:00) [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;

---

ZeroDivide   (2003-05-13 08:50:00) [3]

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

---

Наверх