كيف نعرف إسم الدومين الحالي

uses

AccCtrl; ضع هذا السطر في uses



type

PTOKEN_USER = ^TOKEN_USER;

TOKEN_USER = record

User: TSIDAndAttributes;

end;



function GetCurrentUserAndDomain(var User, Domain: string): boolean;

var

hToken: THandle;

ptiUser: PTOKEN_USER;

cbti: DWORD;

snu: SID_NAME_USE;

pcchUser, pcchDomain: DWORD;

begin

result:= false;

hToken:= 0;

ptiUser:= nil;

cbti:= 0;

pcchUser:= 0;

pcchDomain:= 0;



try

if not OpenThreadToken(GetCurrentThread, TOKEN_QUERY, true, hToken) then

begin

if GetLastError <> ERROR_NO_TOKEN then

exit;



if not OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hToken) then

exit;

end;



exit

else

begin

if GetLastError <> ERROR_INSUFFICIENT_BUFFER then

exit;

end;



ptiUser:= PTOKEN_USER(HeapAlloc(GetProcessHeap, 0, cbti));

if not Assigned(ptiUser) then

exit;



if not GetTokenInformation(hToken, TokenUser, ptiUser, cbti, cbti) then

exit;



LookupAccountSid(nil, ptiUser.User.Sid, nil, pcchUser, nil, pcchDomain, snu);

Setlength(User, pcchUser);

Setlength(Domain, pcchDomain);

if not LookupAccountSid(nil, ptiUser.User.Sid, PChar(User), pcchUser,

PChar(Domain), pcchDomain, snu) then

exit;



result:= true;

finally

{ Free resources.}

if hToken <> 0 then

CloseHandle(hToken);



if Assigned(ptiUser) then

HeapFree(GetProcessHeap, 0, ptiUser);

end;

end;