Delphi แสดง Domain User ที่ login

Delphi สามารถดึงเอาข้อมูลที่ User Login มาใช้ประโยชน์ได้โดยใช้คำสั่ง ดังนี้

function TForm3.GetDomainLogin: string;
const
cnMaxUserNameLen = 254;
var
vlDomainName : array[0..MAXCHAR] of char;
vlSize : ^DWORD;
sUserName : string;
dwUserNameLen : DWord;
FullDomainUser : String;
begin
New(vlSize);
vlSize^ := MAXCHAR;
ExpandEnvironmentStrings(PChar(‘%USERDOMAIN%’), vlDomainName, vlSize^);
Dispose(vlSize);

dwUserNameLen := cnMaxUserNameLen-1;
SetLength( sUserName, cnMaxUserNameLen );
GetUserName(
PChar( sUserName ),
dwUserNameLen );
SetLength( sUserName, dwUserNameLen );

FullDomainuser := vlDomainName;
FullDomainuser := FullDomainuser +’\’+ sUserName;
Result := FullDomainuser;

end;