![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать под каким пользователем загруженна программа
root © (2007-01-17 15:27:00)Господа подскажите как получить имя пользователя под которым загружена программа
Administrator
Guest
User
......
kaZaNoVa (2007-01-17 16:01:00) [1]
Function GetUserFromWindows: string;
Var
UserName : string;
UserNameLen : Dword;
Begin
UserNameLen := 255;
SetLength(userName, UserNameLen);
If GetUserName(PChar(UserName), UserNameLen) Then
Result := Copy(UserName,1,UserNameLen - 1)
Else
Result := 'Unknown';
End;
Rouse_ (2007-01-17 15:48:00) [2]ГетЮзерНайм