Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
How to get the name and domain of a logged-in user Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
06-May-04
Category
System
Language
Delphi 5.x
Views
207
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			Author: Dennis Passmore 

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:
1   
2   function NetServerGetInfo(serverName: PWideChar; level: Integer;
3     var bufptr: Pointer): Cardinal; stdcall; external 'NETAPI32.DLL';
4   
5   function NetApiBufferFree(buffer: Pointer): Cardinal; stdcall; external
6     'NETAPI32.DLL';
7   
8   type
9     SERVER_INFO_503 = record
10      sv503_sessopens: Integer;
11      sv503_sessvcs: Integer;
12      sv503_opensearch: Integer;
13      sv503_sizreqbuf: Integer;
14      sv503_initworkitems: Integer;
15      sv503_maxworkitems: Integer;
16      sv503_rawworkitems: Integer;
17      sv503_irpstacksize: Integer;
18      sv503_maxrawbuflen: Integer;
19      sv503_sessusers: Integer;
20      sv503_sessconns: Integer;
21      sv503_maxpagedmemoryusage: Integer;
22      sv503_maxnonpagedmemoryusage: Integer;
23      sv503_enablesoftcompat: BOOL;
24      sv503_enableforcedlogoff: BOOL;
25      sv503_timesource: BOOL;
26      sv503_acceptdownlevelapis: BOOL;
27      sv503_lmannounce: BOOL;
28      sv503_domain: PWideChar;
29      sv503_maxcopyreadlen: Integer;
30      sv503_maxcopywritelen: Integer;
31      sv503_minkeepsearch: Integer;
32      sv503_maxkeepsearch: Integer;
33      sv503_minkeepcomplsearch: Integer;
34      sv503_maxkeepcomplsearch: Integer;
35      sv503_threadcountadd: Integer;
36      sv503_numblockthreads: Integer;
37      sv503_scavtimeout: Integer;
38      sv503_minrcvqueue: Integer;
39      sv503_minfreeworkitems: Integer;
40      sv503_xactmemsize: Integer;
41      sv503_threadpriority: Integer;
42      sv503_maxmpxct: Integer;
43      sv503_oplockbreakwait: Integer;
44      sv503_oplockbreakresponsewait: Integer;
45      sv503_enableoplocks: BOOL;
46      sv503_enableoplockforceclose: BOOL;
47      sv503_enablefcbopens: BOOL;
48      sv503_enableraw: BOOL;
49      sv503_enablesharednetdrives: BOOL;
50      sv503_minfreeconnections: Integer;
51      sv503_maxfreeconnections: Integer;
52    end;
53    PSERVER_INFO_503 = ^SERVER_INFO_503;
54  
55  function Get_User_Name: string;
56  var
57    dwlen: DWORD;
58  begin
59    dwlen := MAX_COMPUTERNAME_LENGTH + 1;
60    Setlength(Result, dwlen);
61    GetUserName(pchar(Result), dwlen);
62    Result := StrPas(pchar(Result));
63  end;
64  
65  function Get_Computer_Name: string;
66  var
67    dwlen: DWORD;
68  begin
69    dwlen := MAX_COMPUTERNAME_LENGTH + 1;
70    Setlength(Result, dwlen);
71    GetComputerName(pchar(Result), dwlen);
72    Result := StrPas(pchar(Result));
73  end;
74  
75  function GetDomainName: string;
76  var
77    err: Integer;
78    buf: pointer;
79    fDomainName: string;
80    wServerName: WideString;
81  begin
82    wServerName := Get_Computer_Name;
83    err := NetServerGetInfo(PWideChar(wServerName), 503, buf);
84    if err = 0 then
85    try
86      fDomainName := PSERVER_INFO_503(buf)^.sv503_domain;
87    finally
88      NetAPIBufferFree(buf)
89    end;
90    Result := fDomainName;
91  end;



			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC