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 TSendMailInfo=record IPAddress, FAddress, FName, FPW, FCName, FCPW:string //发信邮箱检证用户密码 end { FloatToText, FloatToTextFmt, TextToFloat, and FloatToDecimal type codes }