PB API函数应用技巧六则.doc

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.DLLFunction uint GetSystemDirectoryA(ref string dirtext, uint textlen) library KERNEL32.DLL---- 3.在窗体的open事件中输入如下语句： String ls_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.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_drivestring drvinfoll_drive=GetDriveTypeA(sle_1.text)CHOOSE CASE ll_driveCASE 2drvinfo=可移动驱动器CASE 3drvinfo=固定驱动器CASE 4drvinfo=网络驱动器CASE 5drvinfo=CD-ROM驱动器CASE ELSEdrvinfo=不是驱动器END CHOOSEsle_2.text=drvinfo3:获取键盘类型. ---- 关键：GetKeyboardType API函数 ---- 1.创建含有如下控件的窗体：  控件名 text  st_1 键盘类型:  sle_1---- 2.首先声明如下外部函数： Function long GetKeyboardType(long nTypeFlag) Library user32---- 3.在窗体的open事件中输入如下语句： long ll_keyboardtypestring kbinfoll_keyboardtype=GetKeyboardType(0)CHOOSE CASE ll_keyboardtypeCASE 1kbinfo=IBM PC/XT OR COMPATIBLE(83KEY)CASE 2kbinfo=OLIVETTI (102KEY)CASE 3kbinfo=IBM AT OR SIMILAR(84KEY)CASE 4kbinfo=IBM ENHANCE(101 OR 102KEYS)CASE 5kbinfo=NOKIA 1050 OR SIMILARCASE 6kbinfo=NOKIA 9140CASE 7kbinfo=JAPAN KEYBOARDEND CHOOSESLE_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