home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 April / Chip_2002-04_cd1.bin / zkuste / delphi / kolekce / d56 / NT.ZIP / NTUserName.pas < prev    next >
Pascal/Delphi Source File  |  1999-06-17  |  890b  |  46 lines
  1. unit NTUserName;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  7.  
  8. type
  9.   TNTUserName = class(TComponent)
  10.   private
  11.     { Private declarations }
  12.     function GetTheName:String;
  13.   protected
  14.     { Protected declarations }
  15.   public
  16.     { Public declarations }
  17.   published
  18.     { Published declarations }
  19.     property UserName:String read GetTheName;
  20.   end;
  21.  
  22. procedure Register;
  23.  
  24. implementation
  25.  
  26. function TNTUserName.GetTheName:String;
  27. var TmpUserName:Array[0..250] Of AnsiChar;
  28.     TmpUserNameSize:DWord;
  29. begin
  30.      TmpUserNameSize:=250;
  31.      If GetUserName(TmpUserName,TmpUserNameSize) Then
  32.      Begin
  33.           Result:=StrPas(@TmpUserName);
  34.      End Else
  35.      Begin
  36.           Result:='';
  37.      End;
  38. end;
  39.  
  40. procedure Register;
  41. begin
  42.   RegisterComponents('NT Tools - Additional', [TNTUserName]);
  43. end;
  44.  
  45. end.
  46.