原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
PB API函数应用技巧六则
PB API函数应用技巧六则1: 获得Windows系统目录
关键：GetWindowsDirectoryA GetSystemDirectoryA API函数 1.创建含有如下控件的窗体： 控件名 text st_1 windows目录: st_2 系统目录: sle_1 单行编辑框 sle_2 ---- 2.首先声明如下外部函数： Function uint GetWindowsDirectoryA(ref stringdirtext, uint textlen) library KERNEL32.DLL Function uint GetSystemDirectoryA(ref string dirtext, uint textlen) library KERNEL32.DLL ---- 3.在窗体的open事件中输入如下语句： String ls_WinPath,ls_syspath,ls_curpath ls_WinPath = Space( 40 ) ls_syspath = Space( 40 ) GetWindowsDirectoryA( ls_WinPath, 60 ) GetSystemDirectoryA(ls_syspath,60) sle_1.text=ls_winpath sle_2.text=ls_syspath
技巧2:获取驱动器类型. 关键：GetDriveTypeA API函数 1.创建含有如下控件的窗体： 控件名 text st_1 输入盘符: st_2 获取驱动器类型: sle_1 单行编辑框 sle_2 ???? 2.首先声明如下外部函数： Function long GetDriveTypeA(string nDrive)Library kernel32 ---- 3.在单行编辑框Sle2的modified事件中输入如下语句： long ll_drive string drvinfo ll_drive=GetDriveTypeA(sle_1.text) CHOOSE CASE ll_drive CASE 2 drvinfo=可移动驱动器 CASE 3 drvinfo=固定驱动器 CASE 4 drvinfo=网络驱动器 CASE 5 drvinfo=CD-ROM驱动器 CASE ELSE drvinfo=不是驱动器 END CHOOSE sle_2.text=drvinfo 3:获取键盘类型. ---- 关键：GetKeyboardType API函数 ---- 1.创建含有如下控件的窗体： 控件名 text st_1 键盘类型: sle_1 ---- 2.首先声明如下外部函数： Function long GetKeyboardType(long nTypeFlag) Library user32 ---- 3.在窗体的open事件中输入如下语句： long ll_keyboardtype string kbinfo ll_keyboardtype=GetKeyboardType(0) CHOOSE CASE ll_keyboardtype CASE 1 kbinfo=IBM PC/XT OR COMPATIBLE(83KEY) CASE 2 kbinfo=OLIVETTI (102KEY) CASE 3 kbinfo=IBM AT OR SIMILAR(84KEY) CASE 4 kbinfo=IBM ENHANCE(101 OR 102KEYS) CASE 5 kbinfo=NOKIA 1050 OR SIMILAR CASE 6 kbinfo=NOKIA 9140 CASE 7 kbinfo=JAPAN KEYBOARD END CHOOSE SLE_1.TEXT=KBINFO
技巧4:获取硬盘容量.
---- 关键: GetDiskFreeSpaceA API函数 ---- 1.创建含有如下控件的窗体： 控件名 text st_1 C盘可用容量: st_2 C盘容量: sle_1 单行编辑框 sle_2 ---- 2.首先声明如下外部函数： Function uint GetDiskFreeSpaceA(string lpRootPathName,ref long lpSectorsPerCluster,ref long lpBytesPerSector,ref long ???????????????? lpNumberOfFreeClusters,ref long lpTotalNumberOfClusters) Library
文档评论（0）