（转）pb+api实际应用（一）2010-09-1323:45:22|分类：HYPERLINK"http://blog.163.com/wufeng_1213/blog/"\l"m=0&t=1&c=fks_084067082081085066086085085095085080086068092085085066087"\o"PB学习资料"PB学习资料|标签：HYPERLINK"http://blog.163.com/wufeng_1213/blog/"\l"m=0&t=3&c=pb"pbHYPERLINK"http://blog.163.com/wufeng_1213/blog/"\l"m=0&t=3&c=api"apiHYPERLINK"http://blog.163.com/wufeng_1213/blog/"\l"m=0&t=3&c=%E5%AE%9E%E4%BE%8B"实例|字号订阅1、利用Api函数计算Windows从启动后所运行的总时间FunctionlongGetTickCount()Library"kernel32.dll"//获取windows从启动开始的总微秒数窗口w_example的open事件：timer(0.05)//触发timer事件窗口的timer事件：longhour,minute,secondhour=GetTickCount()\1000\60\60//获取小时数st_1.text=String(hour)+"小时"minute=(GetTickCount()-hour*60*60*1000)\1000\60//获取分钟数st_2.text=Str(minute)+"分钟"second=(GetTickCount()-long(st_1.text)*60*60*1000-long(st_2.text)*60*1000)\1000//获取总秒数st_3.text=String(second)+"秒钟"2、GetSystemMetrics函数FunctionlongGetSystemMetrics(longnIndex)Lib“user32.dll”其中nIndex的不同取值可以使该函数实现不同的功能。例如返回Win桌面中各种显示单元的宽度和高度、是否安装鼠标、是否调换了鼠标左右键的定义等。当nIndex=67（SM_CLEANBOOT）时，该函数的返回值表示Windows9x的当前运行模式。在以下的示例中我们可以看到GetSystemMetrics函数的用法和作用。首先在窗口w_example中定义实例变量：PublicConstantlongSM_CLEANBOOT=67定义外部函数引用声明：FunctionlongGetSystemMetrics(longnIndex)Lib“user32.dll”在窗口w_example中添加statictext控件st_1和commandbutton控件Cb_1，设置如下代码：cb_1.clicked:choosecaseGetSystemMetrics(SM_CLEANBOOT)Case0st_1.text=“系统运行于正常模式”Case1st_1.text=“系统运行于安全模式”Case2st_1.text=“系统运行于网络环境下的安全模式”endchoose3、获取磁盘分区大小（支持大的分区)typelarge_integerfromstructureunsignedlonglowpartunsignedlonghighpartendtype//定义能够保存64位整形的结构定义外部函数引用声明FunctionlongGetDiskFreeSpaceExA(refstringlpRootPathName,reflarge_integerlpFreeBytesAvailableToCaller,reflarge_integerlpTotalNumberOfBytes,reflarge_integerlpTotalNumberOfFreeBytes)Library"kernel32.dll"api函数解析：lpRootPathNameString，不包括卷名的磁盘根路径名lpFreeBytesAvailableToCallerLARGE_INTEGER，指定一个变量，用于容纳调用者可用的字节数量lpTotalNumberOfBytesLARGE_INTEGER，指定一个变量，用于容纳磁盘上的总字节数lpTotalNumberOfFreeBytesLARGE_INTEGER，指定一个变量，用于容纳磁盘上可用的字节数实现代码解析：publicfunctiondoub