Как узнать под каким именем залогинился юзер?

[=LeonZone=]

Как узнать под каким именем залогинился юзер? Только смотреть нужно не по тому от кого запущена твоя прога, т.к. из-под службы она запускается как SYSTEM, а вообще в самой винде... Это мне необходимо для того, чтобы активировать прогу только под учёткой student. Учётка сетевая, сервер Win2000

Или как узнать под каким именем запущен процесс explorer

[AlDelta]

Сообщение от =LeonZone=

Как узнать под каким именем залогинился юзер? Только смотреть нужно не по тому от кого запущена твоя прога, т.к. из-под службы она запускается как SYSTEM, а вообще в самой винде... Это мне необходимо для того, чтобы активировать прогу только под учёткой student. Учётка сетевая, сервер Win2000

function GetUserFromWindows: string;
var
UserName : string;
UserNameLen : Dword;
begin
UserNameLen := 255;
SetLength(userName, UserNameLen);
if GetUserName(PChar(UserName), UserNameLen) then
   Result := Copy(UserName,1,UserNameLen - 1)
else
   Result := '';
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetUserFromWindows);
end;

[=LeonZone=]

2 AlDelta:
Не катит! Определяет как SYSTEM!!!

[rpy3uH]

так тебе же уже ответили
http://programmersforum.ru/showpost.php?p=45010

[=LeonZone=]

2 rpy3uH:
Я пытался, но ни#@* не получилось...

[zetrix]

Все маскировки матов бесполезны!

function GetUserN: string;
var Size : cardinal;
PRes : PChar;
BRes : boolean;
Begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then GetUserN := StrPas(PRes);
end;

Вот это у меня работает.

[=LeonZone=]

2 zetrix:
Извените, настроение плохое...

Ваш код тоже не работает!.. Т.Е. определяет SYSTEM

[rpy3uH]

вот код который получает имя пользователя под которым находится процесс explorer.exe

procedure TForm1.Button1Click(Sender: TObject);
var
 prH,th:THandle;
 RL:DWORD;
 sid:_SID_AND_ATTRIBUTES;
 S,s1,s2:DWORD;
 buff:  pointer;
begin

 prH:=OpenProcess(PROCESS_QUERY_INFORMATION,false,GetProcessId('explorer.exe'));
 if prh=0 then ShowMessage('ошибочка');
 OpenProcessToken(prH,TOKEN_QUERY,th);
 if th=0 then ShowMessage('ошибочка');

 buff:=HeapAlloc(GetProcessHeap,0,256);

 if not GetTokenInformation(th,TokenUser,buff,256,RL) then exit;

 sid:=SID_AND_ATTRIBUTES(buff^);

 s:=256;
 s1:=256;
 s2:=SidTypeUser;

 if not LookupAccountSid(0,sid.Sid,@_user,s,@_domain,s1,s2) then
  ShowMessage('ошибочка');

 ShowMessage(_user);

 CloseHandle(th);
 CloseHandle(prh);
end;

функцию получения ID процесса через имя (GetProcessId) найдёшь на форуме

[=LeonZone=]

2 rpy3uH:
Спасибо, только что это за переменные - _user и _domain?

[rpy3uH]

_user это массив куда сохранится имя пользователя
_domain это массив куда сохранится домен в котором находится пользователь