Win32 API 与PB编程[1]

如何使PB窗口总在最上层

通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST就可以使指定窗口永远不会被其他窗口覆盖该函数声明为

Function Long SetWindowPos（Long hwnd Long ord Long x Long y Long dx Long dy Long uflag） Library userdll

参数为要顶层显示的窗口句柄参数指定显示的层次参数为附加选项其余参数指定窗口位置和大小均可忽略在窗口的Open或Activate事件中加入如下函数调用

SetWindowPos（Handle（This））

参数取表示在最顶层显示窗口取表示在最底层显示最后一个参数若取表示窗口大小保持不变取表示保持位置不变因此取（=+）表示大小和位置均保持不变取表示将窗口的大小和位置改变为指定值

在PB中如何获得光盘盘符

通过GetDriveType函数可以获取驱动器（如软驱硬盘光驱网络映射驱动器等）的信息该函数声明为

Function Unit GetDriveTypeA（String drive） Library kerneldll

参数为一个盘符（如C:）返回值表示未知表示软驱表示本地硬盘表示网络驱动器表示光驱因此如下代码可以获得光盘的盘符

For I=Asc（D） to Asc（Z）

//列举所有可能的CDROM的驱动器

If GetDriveTypeA（Char（i）+:） = Then

//若找到CDROM

Messagebox（CDROMChar（i）+:）

//显示光盘盘符

Exit //退出循环

End if

Next

在PB中如何获取目录信息

（）获取当前目录通过GetCurrentDirectory函数可以获取当前目录该函数声明为

Function Ulong GetCurrentDirectory（Ulong buflenref String dir）

Library kerneldll

参数为接受当前目录的字符缓沖区前面必须加ref表示地址引用参数用来指定字符缓沖区的长度调用过程为

String curdir

Curdir=Space（）

//为字符缓沖区开辟内存空间

GetCurrentDirectory（curdir）

MessageBox（当前路径curdir）

（）获取Windows及系统目录

要用到GetWindowsDirectory和GetSystemDirec tory两个函数须作如下声明

Function Uint GetWindowsDirectoryA（ref String dirUint buflen）

Library kerneldll

Function Uint GetSystemDirectoryA（ref String dirUint buflen）

Library kerneldll

在PB中如何注销当前用户关闭计算机重启计算机

通过ExitWindowsEx函数可实现这三个功能首先作如下声明

Function Long ExitWindowsEx（Long uflag Long nouse） Library userdll

参数保留不用可取;参数取可以注销当前用户取可以关闭计算机取可以重启计算机其值再加表示强制结束未响应的进程

[] []