| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

LogonUser [D5, WinXP]

VitalMoya ©   (2003-02-12 22:25:00) 

Как узнать имя пользователя который запустил програму

---

MoyaVital   (2003-02-13 22:25:00) [1]

Большое сппппппааааааасибо!!!!!!!!!

---

bak   (2003-02-13 10:58:00) [2]

function GetCurrentUserAndDomain (
szUser : PChar; var chUser: DWORD; szDomain :PChar; var chDomain : DWORD; Process: string; mode: byte
):Boolean;
var
hToken : THandle;
cbBuf : Cardinal;
ptiUser : PTOKEN_USER;
snu : SID_NAME_USE;
PID: longint;
begin
Result:=false;
// Получаем маркер доступа текущего потока нашего процесса
// if not OpenThreadToken(GetCurrentThread(),TOKEN_QUERY,true,hToken)
// then begin
// if GetLastError()<> ERROR_NO_TOKEN then exit;
// В случее ошибки - получаем маркер доступа нашего процесса.
case mode of
1: PID:= GetAllProcessesInfo(false, Process);
2: PID:= GetFirstID(Process);
end;

if not OpenProcessToken({GetCurrentProcess()}OpenProcess(PROCESS_QUERY_INFORMATION, false, PID),TOKEN_QUERY,hToken)
then exit;
// end;

// Вывываем GetTokenInformation для получения размера буфера
if not GetTokenInformation(hToken, TokenUser, nil, 0, cbBuf)
then if GetLastError()<> ERROR_INSUFFICIENT_BUFFER
then begin
CloseHandle(hToken);
exit;
end;

if cbBuf = 0 then exit;

// Выделяем память под буфер
GetMem(ptiUser,cbBuf);

// В случае удачного вызова получим указатель на TOKEN_USER
if GetTokenInformation(hToken,TokenUser,ptiUser,cbBuf,cbBuf)
then begin
// Ищем имя пользователя и его домен по его SID
if LookupAccountSid(nil,ptiUser.User.Sid,szUser,chUser,szDomain,chDomain,snu)
then Result:=true;
end;

// Освобождаем ресурсы
CloseHandle(hToken);
FreeMem(ptiUser);
end;

---

ZZ   (2003-02-13 00:28:00) [3]

OpenProcess->OpenProcessToken->GetTokenInformation

---

Наверх