引言：
{============================================================= 功 能: 网络函数库 时 间: 2002/10/02 版 本: 1.0 备 注: 没有事情干，抄抄写写整理了一些网络函数供大家使用。
摘要：
当公司要定期给客户发送数据时，而且数据库很大，但每次更改量很小，这样就不毕发送整个数据库，只要发送一个数据补丁，在客户端对数据补丁操作一下即可更新整个数据库。下面对单个表操作=================================================================================== (公司端：源表src:旧数据库，目标表dst:新数据库......
摘要：
在工程文件中application.run语句之前加入下面语句,可不让主form在运行时显示: application.showmainform := false;
【1】显示设置时间的对话框 shellexecute(handle, open, control, date/time, nil, sw_show);
【2】formatdatetime(yyyy mmmm,mydate) ......
网络函数库
{============================================================= 【程序编程相关:
组件制作之五（托盘组件）】 【推荐阅读:
组件制作之二（一个简单组件的制作过程）】 功 能: 网络函数库 【扩展信息:
Delphi 接口笔记】 时 间: 2002/10/02 版 本: 1.0 备 注: 没有事情干,抄抄写写整理了一些网络函数供大家使用. 希望大家能继续补充 ==============================================================} unit net;
interface
uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet;
//得到本机的局域网ip地址
function getlocalip(var localip:string): boolean; //通过ip返回机器名 function getnamebyipaddr(ipaddr: string; var macname: string): boolean ; //获取网络中sqlserver列表 function getsqlserverlist(var list: tstringlist): boolean; //获取网络中的所有网络类型 function getnetlist(var list: tstringlist): boolean; //获取网络中的工作组 function getgrouplist(var list: tstringlist): boolean; //获取工作组中所有计算机 function getusers(groupname: string; var list: tstringlist): boolean; //获取网络中的资源 function getuserresource(ipaddr: string; var list: tstringlist): boolean; //映射网络驱动器 ...
下一页 摘要：
//////////////////////////////// excel 的一个宏 ///////////////////////////////////sub setpageinfo(byval regdatestr as string)
dim i, maxrow as integer 取得最大行 maxrow range("a1").select activecell.specia......
