| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить имя пользователя запустившего приложения? [D6, WinXP]
6h © (2007-05-09 08:11:00)Может кто подскажет как можно определить имя пользователя запустившего приложение (желательно исходя из ID этого процесса).
Rouse_ (2007-05-11 17:38:00) [1]
> Iv_ © (11.05.07 15:17) [2]
> может так?
А что делает твой код?
Anatoly Podgoretsky (2007-05-11 17:01:00) [2]> Iv_ (11.05.2007 15:17:02) [2]
И долго потом будут ломать голову почему не работает, очень информативное сообщение
Iv_ (2007-05-11 15:17: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;
begin...end (2007-05-09 20:30:00) [4]OpenProcess -> OpenProcessToken(...TOKEN_QUERY...) -> GetTokenInformation(...TokenUser...) -> LookupAccountSid
| |
