| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Знаю PID процесса как получить имя пользователя запустившего процесс [D5, D6, NT4, Win2k, WinXP]
bobr © (2002-01-21 17:08:00)Знаю PID процесса как получить имя пользователя запустившего процесс
VuDZ (2002-01-22 21:02:00) [1]посмотри тут http://www.sources.ru/msdn/howto/q111544.shtml
Bobr (2002-01-22 12:02:00) [2]Пытаюсь сделать это следующим образом, но что-то делаю не так - подскажите:
const TokenSize=800;
Var HNWD, _HNWD:THandle;
pTokenInfo:PTokenUser;
ReturnLen:Cardinal;
userbuffer:pchar;
usersize:dword;
compbuffer:pchar;
compsize:dword;
begin
GetMem(pTokenInfo,TokenSize);
HNWD:=OpenProcessPROCESS_QUERY_INFORMATION,FALSE,PID);
OpenProcessToken(HNWD,TOKEN_ALL_ACCESS,_HNWD);
GetTokenInformation(_HNWD,TokenPrivileges,pTokenInfo,TokenSize,ReturnLen);
LookupAccountSid(nil,pTokenInfo.SID.Sid,userbuffer,usersize,compbuffer,compsize,eUse);
userbuffer := PChar(GlobalAlloc(GMEM_FIXED,usersize));
compbuffer := PChar(GlobalAlloc(GMEM_FIXED,compsize));
LookupAccountSid(nil,pTokenInfo.SID.Sid,userbuffer,usersize,compbuffer,compsize,SID_NAME_USE);
showmessage(userbuffer);
showmessage(compbuffer);
FreeMem(pTokenInfo);
Где
PTokenUser = ^TTokenUser;
_TOKEN_USER = record
SID: SID_AND_ATTRIBUTES
end;
{$EXTERNALSYM _TOKEN_GROUPS}
TTokenUSER = _TOKEN_USER;
TOKEN_USER = _TOKEN_USER;
{$EXTERNALSYM TOKEN_GROUPS}
Anonymous (2002-01-21 23:40:00) [3]OpenProcess -> OpenProcessToken -> GetTokenInformation(TokenUser) -> LookupAccountSid
| |
