![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Узнать текущего пользователя
Popova © (2003-11-06 16:47:00)
Как узнать имя текущего пользователя?
Игорь Шевченко (2003-11-06 17:33:00) [1]
keymaster © (06.11.03 17:15)
У меня небольшой вопрос: в каком случае возникнет Exception внутри Win32-функции ?
keymaster (2003-11-06 17:15:00) [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 16:56:00) [3]
Перевести вопрос на английский GetUserName