PB开发笔记(4)

//常用API函数例解
1．如何使PB窗口总在最上层(Always On Top)  
通过SetWindowPos函数把窗口的显示层次修改为HWND—TOPMOST，就可使指定窗口永远不会被其它窗口覆
盖，该函数声明为：  
Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32″  
参数1为要顶层显示的窗口句柄，参数2指定显示的层次，参数7为附加选项，其余参数指定窗口位置和
大小，均可忽略。在窗口的Open或Activate事件中加入如下函数调用：  
SetWindowPos(Handle(This),-1,0,0,0,0,3)  
参数2取-1表示在最顶层显示窗口，取1表示在最底层显示；最后一个参数若取1，表示窗口大小保持不
变，取2表示保持位置不变，因此，取3(=1＋2)表示大小和位置均保持不变，取0表示将窗口的大小和
位置改变为指定值。  

2．在PB中如何获得光盘盘符  
通过GetDriveType函数可以获取驱动器(如：软驱、硬盘、光驱、网络映射驱动器等)的信息，该函数
声明为：
Function Uint GetDriveTypeA(String drive) Library ″kernel32.dll″  
参数为一个盘符(如"C:")，返回值：1表示未知，2表示软驱，3表示本地硬盘，4表示网络驱动器，
5表示光驱。因此如下代码可以获得光盘的盘符：  
For i=Asc(′D′) to Asc(′Z′)  
          //列举所有可能的CDROM驱动器  
　　If GetDriveTypeA(Char(i)＋″:″)=5 Then  
                  //若找到CDROM  
                  MessageBox(″CDROM″,Char(i)＋″:″)  
                  //显示光盘盘符  
                  Exit //退出列举  
　　End If
Next  

3．在PB中如何获取目录信息  
⑴获取当前目录。通过GetCurrentDirectory函数可以获取当前目录，该函数声明为：  
Function Ulong GetCurrentDirectoryA(Ulong buflen, ref String dir) Library ″kernel32.dll″  
参数2为接收当前目录的字符缓冲区，前面必须加ref表示地址引用；参数1用来指定字符缓冲区的长度。
调用过程为：
String curdir  
curdir=Space(256)  
//为字符缓冲区开辟内存空间  
GetCurrentDirectoryA(256,curdir)  
MessageBox(″Current Directory″,curdir)  
⑵获取Windows及系统目录。要用到GetWindowsDirectory和GetSystemDirectory两个函数，须作如下声明：  
Function Uint GetWindowsDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″  
Function Uint GetSystemDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″  

4．在PB中如何注销当前用户、关闭计算机、重启计算机  
通过ExitWindowsEx函数可实现这三个功能，首先作如下声明：  
Function Long ExitWindowsEx(Long uflag,Long nouse) Library ″user32.dll″  
参数2保留不用，可取0；参数1取0可以注销当前用户，取1可以关闭计算机，取2可以重启计算机，其值
再加4表示强制结束"未响应"的进程。  

5．控制由Run运行的程序(简称Run程序)  
在PB程序设计中，可以用Run()来运行一些程序。比如用户按了F1，就运行一个chm文件。但Run程序无法
与PB主程序协调工作，若用户按了多次F1，就会启动Run程序的多个实例，主程序退出时，Run程序依然
运行。可以用如下函数来使它们协调工作：  
Function Ulong FindWindowA(Ulong classname, String windowname) Library ″user32.dll″  
Function Long SetParent(Long childwin,Long parentwin) Library ″user32.dll″  
⑴使Run程序只运行一个实例  
handle=FindWindowA(nul,wtitle)  
//查找Run程序是否已经运行，wtitle为Run程序的标题  
IF handle〉0 Then Return  
//若已经在运行就返回  
Run(″C:/Program Files/Joint/Joint.chm″)  
//否则运行Run程序  
⑵PB主程序退出时，Run程序也关闭  
handle=FindWindowA(nul,wtitle)  
SetParent(handle,Handle(w—main))  
//使Run程序窗口成为PB主程序的子窗口  

6．映射网络驱动器  
若要在程序中把远程主机的资源映射到本地驱动器，可以用如下函数：  
Function long WNetAddConnectionA(String path,string pwd,String drv) Library ″mpr.dll″  
如下代码可以把远程主机Alexander上的共享文件夹My Documents映射到本地的J盘：  
WNetAddConnectionA(″//Alexander/My Documents″,″″,″J:″)//参数2为访问口令  
它的作用相当于在DOS提示符下执行：Net Use J: //Alexander/My Documents  

7．显示或隐藏Windows的任务栏  
要显示或隐藏任务栏，首先要得到它的窗口句柄。任务栏是一个特殊的窗口，它的窗口类为：
Shell—TrayWnd，没有标题，故只能用FindWindowEx函数来取得它的句柄：  
Function long FindWindowEx(long ph, long ch, ref String cn, ref String wn) Library ′user32′  
Function Long ShowWindow(Long hWnd, Long nCmdShow ) Library ′user32′  
用ShowWindow来显示或隐藏窗口，其第二个参数为0表示隐藏&#