{$R *.dfm} //注册窗口类 function RegClass:Boolean; var WindowClass:TWndClass; begin //设置新窗口类 WindowClass.style:= CS_HREDRAW or CS_VREDRAW; //设置类风格 WindowClass.lpfnWndProc:=@DefWindowProc; //指向默认窗口过程的指针 WindowClass.cbClsExtra:=0; //没有额外的 ...
'用到的控件: Inet,Text,Command '代码如下 Private Sub Command1_Click() Dim s As String s = Inet1.OpenURL(" http://www.ip138.com/ip2city.asp ") If InStr(s, " ") 0 Then ...