Форум: "Система";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Вниз
Подскажите, Плз, как можно программно определить имя пользователя Найти похожие ветки
← →
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 вся ветка
Форум: "Система";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c