Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
ВнизКак узнать под каким пользователем загруженна программа Найти похожие ветки
← →
root © (2007-01-17 15:27) [0]Господа подскажите как получить имя пользователя под которым загружена программа
Administrator
Guest
User
......
← →
Rouse_ © (2007-01-17 15:48) [1]ГетЮзерНайм
← →
kaZaNoVa © (2007-01-17 16:01) [2]
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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c