资源描述：
《PB API函数应用技巧六则》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、PBAPI函数应用技巧六则技巧1:获得Windows系统目录 关键：GetWindowsDirectoryA和GetSystemDirectoryAAPI函数 1.创建含有如下控件的窗体：控件控件名text标签st_1windows目录:标签st_2系统目录:单行编辑框sle_1单行编辑框sle_2----2.首先声明如下外部函数：FunctionuintGetWindowsDirectoryA(refstringdirtext,uinttextlen)library"KERNEL32.DLL"Functionuint
2、GetSystemDirectoryA(refstringdirtext,uinttextlen)library"KERNEL32.DLL"----3.在窗体的open事件中输入如下语句：Stringls_WinPath,ls_syspath,ls_curpathls_WinPath=Space(40)ls_syspath=Space(40)GetWindowsDirectoryA(ls_WinPath,60)GetSystemDirectoryA(ls_syspath,60)sle_1.text=ls_winpathsle_2.
3、text=ls_syspath技巧2:获取驱动器类型. 关键：GetDriveTypeAAPI函数 1.创建含有如下控件的窗体：控件控件名text标签st_1输入盘符:标签st_2获取驱动器类型:单行编辑框sle_1单行编辑框sle_2 2.首先声明如下外部函数：FunctionlongGetDriveTypeA(stringnDrive)Library"kernel32"----3.在单行编辑框Sle2的modified事件中输入如下语句：longll_drivestringdrvinfoll_drive=Ge
4、tDriveTypeA(sle_1.text)CHOOSECASEll_driveCASE2drvinfo='可移动驱动器'CASE3drvinfo='固定驱动器'CASE4drvinfo='网络驱动器'CASE5drvinfo='CD-ROM驱动器'CASEELSEdrvinfo='不是驱动器'ENDCHOOSEsle_2.text=drvinfo技巧3:获取键盘类型.----关键：GetKeyboardTypeAPI函数----1.创建含有如下控件的窗体：控件控件名text标签st_1键盘类型:单行编辑框sle_1----2.
5、首先声明如下外部函数：FunctionlongGetKeyboardType(longnTypeFlag)Library"user32"----3.在窗体的open事件中输入如下语句：longll_keyboardtypestringkbinfoll_keyboardtype=GetKeyboardType(0)CHOOSECASEll_keyboardtypeCASE1kbinfo='IBMPC/XTORCOMPATIBLE(83KEY)'CASE2kbinfo='OLIVETTI(102KEY)'CASE3kbinfo='IB
6、MATORSIMILAR(84KEY)'CASE4kbinfo='IBMENHANCE(101OR102KEYS)'CASE5kbinfo='NOKIA1050ORSIMILAR'CASE6kbinfo='NOKIA9140'CASE7kbinfo='JAPANKEYBOARD'ENDCHOOSESLE_1.TEXT=KBINFO技巧4:获取硬盘容量.----关键:GetDiskFreeSpaceAAPI函数----1.创建含有如下控件的窗体：控件控件名text标签st_1C盘可用容量:标签st_2C盘容量:单行编辑框sle_1单
7、行编辑框sle_2----2.首先声明如下外部函数：FunctionuintGetDiskFreeSpaceA(stringlpRootPathName,reflonglpSectorsPerCluster,reflonglpBytesPerSector,reflong lpNumberOfFreeClusters,reflonglpTotalNumberOfClusters)Library"kernel32"----3.在窗体的open事件中输入如下语句：longsecs,bytes,cls1,cl
8、s2,cls3,cls4GetDiskFreeSpaceA("c:",secs,bytes,cls1,cls2)cls3=cls1*secs*bytescls4=cls2*secs*bytessle_1.text=string(cls3)+'字节
