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]

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

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