g:String;



MailList:=TstringList.Create;

POP3CheckMail(‘simon_liu@263.net'',

‘mypassword'', MailList, ErrorMsg);

If MailList.Count>0 then

MessageBox(0, Pchar(‘You have '' ＋IntToStr

(MailList.Count) ＋ ‘ new messages!''),

‘New Message!'', MB_ICONINFORMATION)

Else if ErrorMsg=‘'' then MessageBox

(0, ‘No message!'', ‘'',0)

Else MessageBox(0, Pchar(ErrorMsg), ‘Error'', 0);

MailList.Free;


　　如 果 你 仔 细 阅 读 了POP3CheckMail 函数 的 实 现 代 码， 你 会 发 现 此 函 数 除 了 可 以 获 取 邮 件 的 封数 之 外， 还 可 以 获 得 每 一 封 邮 件 的 大 小。 你 可 以 通 过POP3CheckMail 函 数 的 变 量 参 数MailList 的Strings 数 组 来 获 取 邮 件 的 大 小。
　　实 现 了POP3CheckMail 函 数， 再 在此 基 础 上 编 写 一 个POP3 信 箱 的 监 视 程 序 就 变 得 很 简 单 了。你 可 以 通 过 一 个 定 时 器 来 定 期 地 调 用POP3CheckMail 函 数， 这样 你 就 可 以 监 视 某 个email 信 箱 了。 假 若 你 想 要 同 时 监 视 多个email 信 箱， 只 要 为 每 一 个 信 箱 创 建 一 个 线 程 并 且 在 线 程中 定 期 调 用POP3CheckMail 函 数 即 可。 你 的 程 序 中 如 果 没 有 使用Delphi 的 控 件， 那 么 一 个 完 整 的 信 箱 监 视 程 序 可 能 只 有60K 左 右。