Главная страница
    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.44 MB
Время: 0.007 c
1-44271
Маришка
2003-04-02 16:19
2003.04.14
приложение дельфи для интернета


1-44150
Filat
2003-04-02 15:52
2003.04.14
Почему не компилится проект?


3-44018
ManYury
2003-03-25 12:59
2003.04.14
IB5.5 и хранимая процедура


1-44173
CITY_ELF
2003-04-03 17:58
2003.04.14
ТАЙМЕР для дельфи


1-44115
Карелин Артем
2003-04-03 06:27
2003.04.14
Пребразование символов с учетом языка.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский