Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Знаю PID процесса как получить имя пользователя запустившего процесс 


bobr   (2002-01-21 17:08) [0]

Знаю PID процесса как получить имя пользователя запустившего процесс



Anonymous   (2002-01-21 23:40) [1]

OpenProcess -> OpenProcessToken -> GetTokenInformation(TokenUser) -> LookupAccountSid



Bobr   (2002-01-22 12:02) [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}



VuDZ   (2002-01-22 21:02) [3]

посмотри тут http://www.sources.ru/msdn/howto/q111544.shtml




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.047 c
3-66748           Alex Laza             2002-02-19 10:40  2002.03.21  
Как получить доступ к .dbf Налоговой отчетности за 2001 г. (версия 2.1)?


3-66798           Demon ltd             2002-02-23 23:44  2002.03.21  
Сортировка в базе


6-66940           Vampire               2001-11-03 18:54  2002.03.21  
А с помощью NMStrm можно как покет отправить пусковой файл??? И чтобы у получателя он естественно тут же запутился


3-66802           TwoK                  2002-02-24 12:14  2002.03.21  
Не подскажете альтернативные движки кроме BDE? Фриварные, шароварные - все равно...(-)


7-67018           Shadow77              2001-12-17 16:46  2002.03.21  
MMSYSTEM274 Используемое устройство MCI...