| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
имя пользователя
syte_ser78 © (2005-11-16 15:40:00)как определить имя пользователя от которого запущенна программа?
syte_ser78 (2005-11-18 09:06:00) [1]syte_ser78 © (18.11.05 9:02) [3]
прошу прощения!
Все ОК!
Допустил такую ошибку что и писать стыдно.
Спасибо!
syte_ser78 (2005-11-18 09:02:00) [2]serko © (16.11.05 22:22) [2]
фигню какуюто возвращает
serko (2005-11-16 22:22:00) [3]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;
Eraser (2005-11-16 15:44:00) [4]
> syte_ser78 © (16.11.05 15:40)
GetUserName
| |
