delphi 得到连线用户名称域名主机名|笨鱼技术网

Problem/Question/Abstract:

How to get the name and domain of a logged-in user

Answer:

In the form's OnClose method, call AnimateWindow. For example, the following call fades out the window:

function NetServerGetInfo(serverName: PWideChar; level: Integer;
var bufptr: Pointer): Cardinal; stdcall; external 'NETAPI32.DLL';

function NetApiBufferFree(buffer: Pointer): Cardinal; stdcall; external
'NETAPI32.DLL';

type
SERVER_INFO_503 = record
    sv503_sessopens: Integer;
    sv503_sessvcs: Integer;
    sv503_opensearch: Integer;
    sv503_sizreqbuf: Integer;
    sv503_initworkitems: Integer;
    sv503_maxworkitems: Integer;
    sv503_rawworkitems: Integer;
    sv503_irpstacksize: Integer;
    sv503_maxrawbuflen: Integer;
    sv503_sessusers: Integer;
    sv503_sessconns: Integer;
    sv503_maxpagedmemoryusage: Integer;
    sv503_maxnonpagedmemoryusage: Integer;
    sv503_enablesoftcompat: BOOL;
    sv503_enableforcedlogoff: BOOL;
    sv503_timesource: BOOL;
    sv503_acceptdownlevelapis: BOOL;
    sv503_lmannounce: BOOL;
    sv503_domain: PWideChar;
    sv503_maxcopyreadlen: Integer;
    sv503_maxcopywritelen: Integer;
    sv503_minkeepsearch: Integer;
    sv503_maxkeepsearch: Integer;
    sv503_minkeepcomplsearch: Integer;
    sv503_maxkeepcomplsearch: Integer;
    sv503_threadcountadd: Integer;
    sv503_numblockthreads: Integer;
    sv503_scavtimeout: Integer;
    sv503_minrcvqueue: Integer;
    sv503_minfreeworkitems: Integer;
    sv503_xactmemsize: Integer;
    sv503_threadpriority: Integer;
    sv503_maxmpxct: Integer;
    sv503_oplockbreakwait: Integer;
    sv503_oplockbreakresponsewait: Integer;
    sv503_enableoplocks: BOOL;
    sv503_enableoplockforceclose: BOOL;
    sv503_enablefcbopens: BOOL;
    sv503_enableraw: BOOL;
    sv503_enablesharednetdrives: BOOL;
    sv503_minfreeconnections: Integer;
    sv503_maxfreeconnections: Integer;
end;
PSERVER_INFO_503 = ^SERVER_INFO_503;

function Get_User_Name: string;
var
dwlen: DWORD;
begin
dwlen := MAX_COMPUTERNAME_LENGTH + 1;
Setlength(Result, dwlen);
GetUserName(pchar(Result), dwlen);
Result := StrPas(pchar(Result));
end;

function Get_Computer_Name: string;
var
dwlen: DWORD;
begin
dwlen := MAX_COMPUTERNAME_LENGTH + 1;
Setlength(Result, dwlen);
GetComputerName(pchar(Result), dwlen);
Result := StrPas(pchar(Result));
end;

function GetDomainName: string;
var
err: Integer;
buf: pointer;
fDomainName: string;
wServerName: WideString;
begin
wServerName := Get_Computer_Name;
err := NetServerGetInfo(PWideChar(wServerName), 503, buf);
if err = 0 then
try
fDomainName := PSERVER_INFO_503(buf)^.sv503_domain;
finally
NetAPIBufferFree(buf)
end;
Result := fDomainName;
end;