Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

Узнать текущего пользователя   Найти похожие ветки 

← →
Popova   (2003-11-06 16:47) [0]

Как узнать имя текущего пользователя?

---

← →
Игорь Шевченко   (2003-11-06 16:56) [1]

Перевести вопрос на английский GetUserName

---

← →
keymaster   (2003-11-06 17:15) [2]

Самый простой способ:

function GetCurrentUserName: string;
var
L: Cardinal;
begin
try
L := 255;
SetLength(Result, L - 1);
if GetUserName(PChar(Result), L) then SetLength(Result, L - 1)
except
RaiseLastWin32Error;
end;
end;

---

← →
Игорь Шевченко   (2003-11-06 17:33) [3]

keymaster © (06.11.03 17:15)

У меня небольшой вопрос: в каком случае возникнет Exception внутри Win32-функции ?

---

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

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх

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