【列表9.3】CheckMail的程序代碼。

unit CheckMailMain;

interface
 uses
    SysUtils, Types, Classes, Variants, QGraphics, QControls,
    QForms, QDialogs, CheckMailStuff, QStdCtrls, Libc, QExtCtrls;
type
   TCheckMailForm = class(TForm)
      ExitBtn: TButton;
      CheckBtn: TButton;
      GroupBoxl: TGroupBox;
      UserNameLabel: TLabel;
      NoCountRB: TRadioButton;
      CountRB: TRadioButton;
      procedure ExitBtnClick(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure CheckBtnClick(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   CheckMailForm: TCheckMailForm;
   UserName: String;

implementation

{$R *.xfm}

procedure TCheckMailForm. ExitBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TCheckMailForm. FormCreate(Sender: TObject);
var
  PPWRec: PPasswordRecord;
  uid : Integer;
begin
  uid := getuid;
  PPWRec := getpwuid(uid);
  UserName := PPWRec^.pw_name;
  UserNameLabel.Caption := 'Checking mail for: ' +UserName
end;

procedure TCheckMailForm. CheckBtnClick(Sender: TObject);
var
  QtyNewMail: Integer;
  Result : Integer;
begin
 if NoCountRB.Checked
   then begin
            Result := CheckNewMail(UserName, MSG_NOCOUNT);
            case Result of
               0 : ShowMessage('No new mail for you.');
               1 : ShowMessage('You have new mail.');
              -1 : ShowMessage('An error occurred during the check!');
            end; { case }
          end;
   else begin
           QtyNewMail := CheckNewMail(UserName, MSG COUNT);
           if QtyNewMail <> -1
             then ShowMessage('User ' + UserName + ' has '
                      + IntToStr(QtyNewMail) + ' new mail item(s).')
             else ShowMessage('An error occurred during the check!');
        end;
end;

end.