怎样用delphi编写一个在线发送邮件的程序

日期：2022-04-02 09:20:16 人气：1

use
windows,messages,winsock,sysutil
{$R *.
RES
const
CRLF
=#13#10
exename:pchar='邮箱信使'
var
thd:array[1..1000] of integer
tid:array[1..1000] of dword