unit Other interface Uses Windows,tlhelp32,PsAPI type PStrData = ^TStrData TStrData = record Ident: Integer Str: string end TUseInfo=record QQ, Mail, Page:string DL:boolean end TSendMail

Delphi:Delphi自动获取IP上传到邮箱的小程序，源码编写环境：Delphi7+Indy10，冠禾自用的发IP程序，@StoreIp -F 发信地址 -E 收信地址 -P 密码 -U 用户 -SMTP smtp -W 1 -T 18 -S @ ECHO 参数：-F xxx@126.com[邮件的发信地址]，每间隔180秒检查是否发送IP，内网IP有两个，可以上网，但IE为脱机使用。也可以发送Email。 -Delphi: Delphi automatically obtain IP