1. PB编程与Windows API深度整合实战指南作为一名深耕PB开发十余年的技术老兵我深刻体会到PowerBuilder与Windows API的整合能力是其最强大的特性之一。今天我将分享10个经过实战检验的API集成方案这些技巧能显著提升PB应用的系统级交互能力。1.1 窗口置顶与层级控制技术SetWindowPos是窗口管理的瑞士军刀通过user32.dll调用可实现Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long dx, Long dy, Long uflag) Library user32.dll // 窗口永久置顶 SetWindowPos(Handle(w_main), -1, 0, 0, 0, 0, 3)参数详解hwnd窗口句柄Handle(This)获取当前窗口ord-1表示置顶1表示置底uflag3SWP_NOSIZE|SWP_NOMOVE保持原位置和尺寸实战经验在MDI应用中子窗口调用置顶会导致Z序混乱建议仅在弹出式窗口使用。我曾遇到一个案例连续调用置顶会使窗口卡在任务栏下方解决方案是先取消置顶再重新设置。1.2 硬件设备检测与盘符管理通过kernel32.dll的GetDriveTypeA可枚举驱动器类型Function UInt GetDriveTypeA(String drive) Library kernel32.dll // 遍历查找光驱 For i Asc(D) To Asc(Z) If GetDriveTypeA(Char(i) :) 5 Then MessageBox(光驱盘符, Char(i) :) Exit End If Next返回值对照表返回值设备类型1未知驱动器2可移动驱动器3固定硬盘4网络映射驱动器5CD-ROM驱动器1.3 系统目录信息获取技巧三个关键API组合使用// 获取当前目录 Function ULong GetCurrentDirectory(ULong buflen, Ref String dir) Library kernel32.dll // 获取Windows目录 Function UInt GetWindowsDirectoryA(Ref String dir, UInt buflen) Library kernel32.dll // 获取系统目录 Function UInt GetSystemDirectoryA(Ref String dir, UInt buflen) Library kernel32.dll内存管理要点必须预先分配缓冲区空间dir Space(256)实际路径长度可能小于缓冲区需用Trim()处理路径末尾可能包含拼接路径时要注意判断2. 系统级功能的高级控制2.1 电源管理三连招ExitWindowsEx实现三种系统操作Function Long ExitWindowsEx(Long uflag, Long nouse) Library user32.dll // 强制重启计算机 ExitWindowsEx(2 4, 0)参数组合策略0注销EWX_LOGOFF1关机EWX_SHUTDOWN2重启EWX_REBOOT4强制模式EWX_FORCE踩坑记录在Windows 10上普通权限调用会失败必须请求Shutdown权限。解决方案是在manifest中声明requestedExecutionLevel levelrequireAdministrator/2.2 进程父子关系管理FindWindowASetParent组合技// 查找记事本窗口 Long ll_handle FindWindowA(0, 无标题 - 记事本) // 设为PB应用的子窗口 SetParent(ll_handle, Handle(w_main))典型应用场景防止重复运行启动时检测窗口是否存在进程联动退出主程序关闭时终止子进程嵌入式窗口将外部程序嵌入PB界面2.3 网络驱动器映射实战WNetAddConnectionA实现网络映射Function Long WNetAddConnectionA(String path, String pwd, String drv) Library mpr.dll // 映射共享文件夹 WNetAddConnectionA(\\Server\Share, password, Z:)错误处理要点错误代码53网络路径未找到错误代码1219凭据冲突建议配合WNetCancelConnectionA使用实现先断开后连接3. 用户界面增强技巧3.1 任务栏显隐控制Shell_TrayWnd窗口类操作// 查找任务栏窗口 Long ll_tray FindWindowEx(0, 0, Shell_TrayWnd, ) // 隐藏任务栏 ShowWindow(ll_tray, 0) // SW_HIDE // 显示任务栏 ShowWindow(ll_tray, 5) // SW_SHOW开发注意事项Windows 10开始有多个任务栏实例隐藏后需提供替代的退出方式全屏应用更适合用SystemParametersInfo(SPI_SETWORKAREA)3.2 长短文件名转换GetShortPathNameA处理含空格路径Function Long GetShortPathNameA(String lf, Ref String sf, Long buflen) Library kernel32.dll String ls_short ls_short Space(255) GetShortPathNameA(C:\Program Files\App\config.ini, ls_short, 255)转换规则超过8字符的文件名取前6字符~1空格替换为下划线中文文件名转为拼音首字母4. 实用功能扩展方案4.1 高精度延时控制替代Timer事件的更优方案Function Long Sleep(Long ms) Library kernel32.dll // 精确延时500ms Sleep(500)性能对比方法精度CPU占用Timer事件55ms高Sleep API1ms零Loop空循环不稳定100%4.2 多媒体播放实现PlaySound播放WAV音频Function Long PlaySound(String Filename, Int Mod, Int Flags) Library winmm.dll // 循环播放背景音 PlaySound(alert.wav, 0, 18) // SND_ASYNC | SND_LOOP播放模式标志位1异步播放SND_ASYNC2同步播放SND_SYNC8循环播放SND_LOOP16停止播放SND_PURGE5. 最佳实践与排错指南5.1 API调用错误处理模板标准错误检查流程If ll_result 0 Then Long ll_err GetLastError() Choose Case ll_err Case 2: MessageBox(错误, 文件未找到) Case 5: MessageBox(错误, 访问被拒绝) // ...其他错误处理 End Choose End If5.2 内存管理黄金法则字符串缓冲区必须预分配ls_buffer Space(1024) // 分配1KB空间结构体参数需对齐// 定义对应C结构体的PB结构回调函数要静态声明Function Long CallbackFunc(Long hWnd, Long uMsg) Library user32.dll Alias CallWndProc5.3 跨平台兼容方案Windows版本检测方法// 获取系统版本信息 OSVERSIONINFO lstr_ver lstr_ver.dwOSVersionInfoSize Len(lstr_ver) GetVersionEx(lstr_ver) If lstr_ver.dwMajorVersion 10 Then // Windows 10特有功能 End If这些技巧是我在金融、医疗等行业系统开发中积累的实战经验。特别提醒在调用API前务必查阅MSDN文档不同Windows版本的行为可能有差异。最近一个政府项目中我们发现Windows 11对SetWindowPos的DPI处理有变化最终通过添加DPI感知声明解决了问题。
