摘要：首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 不区分大小写 参考 <NULL> 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S... 阅读全文

摘要：方法一：3322获许本地外网地址：http://www.3322.org/dyndns/getipVB获取计算机名称，内、外网IP,很简单，仅作示例。这些在编大软件时作为装饰。Author:MinghackerFrom:http://yxmhero1989.blog.163.com/添加winsock控件,Inet控件Private Declare Function ReleaseCapture Lib "user32" () As Long none窗体的移动 Private Declare Function SendMessage Lib "user32&qu 阅读全文