【列表9.1】LogUser的程序代碼。
unit LogUserMain;    
                                           
interface                        
uses                                                        
   SysUtils. Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs
   OStdCtrls, OExtCtrls, Libc; 
                                 
type                                                               
  TForml = class(TForm)                                       
     ExitBtn: TButton;
     Memo: TMemo;                                                  
     StartBtn: TButton;                                               
     BasisRBGroup: TRadioGroup;                                   
     Label1: TLabel;
     Label2: TLabel;
     procedure ExitBtnClick(Sender: TObject);                              
     procedure StartBtnClick(Sender: TObject); 
 private
      { Private declarations }
  public
      { Public declarations }
  end;

var

   Form1: TForml;

implementation

{SR *.xfm}
              
 procedure TForml. ExitBtnClick(Sender: TObject);
   begin
    Close;
   end;

  procedure TForml.StartBtnClick(Sender: TObject);
  var
   PLoginRec : PUserTmp;
   LoginTime : TTime T;
   s : String;
 begin
   if BasisRBGroup. ItemIndex=0
    then utmpname(_PATH_UTMP) { Current logins }
    else utmpname(_PATH_WTMP); { Previous logins }

  LoginTime := 0;
  setutent;
  repeat
   PLoginRec := getutent;
   if Assigned(PLoginRec)
    then begin
       if PLoginRec^.ut_type = USER_PROCESS
         then begin
                  LoginTime := PLoginRec^.ut_tv.tv_sec;
                 s := ctime(@LoginTime);
                 s := copy(s, 1, Length(s) - 1); { Chop the nl }
                 Memo. Lines.Add(s + ' ' + PLoginRec^.ut_user);
               end;                          
           end;
    until not Assigned(PLoginRec);
    endutent;
  end;

end;