Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

LogonUser   Найти похожие ветки 

 
VitalMoya   (2003-02-12 22:25) [0]

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


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

OpenProcess->OpenProcessToken->GetTokenInformation


 
bak ©   (2003-02-13 10:58) [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;


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

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



Страницы: 1 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-44097
electric
2003-04-02 16:29
2003.04.14
Проблема в порядке найденных файлов


14-44345
Думкин
2003-03-28 14:44
2003.04.14
А что ты сделал для...?


3-43995
b_baranov
2003-03-24 19:12
2003.04.14
Хранение и редактирование документов


3-44077
iusupp
2003-03-23 11:16
2003.04.14
как правильно делать расчет по полям DBGrid...?


14-44433
Новичек
2003-03-29 14:19
2003.04.14
Новости VCL