Question

哪位好心人有Powerbuilder的API

Answer 1

1. 如何使PB窗口总在最上层

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

Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long

dx, Long dy, Long uflag) Library “user32.dll”

参数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 Unit 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中如何获取目录信息

（1） 获取当前目录。通过GetCurrentDirectory函数可以获取当前目录，该函数

声明为：

Function Ulong GetCurrentDirectory(Ulong buflen,ref String dir)

Library “kernel32.dll”

参数2为接受当前目录的字符缓冲区，前面必须加ref表示地址引用；参数1用来指

定字符缓冲区的长度。调用过程为：

String curdir

Curdir=Space(256)

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

GetCurrentDirectory(256,curdir)

MessageBox(“当前路径”,curdir)

（2） 获取Windows及系统目录。要用到GetWindowsDirectory和GetSystemDirec

tory两个函数，须作如下声明：

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()来运行一些程序。但Run程序无法与PB主程序协调

工作，若用户多次调用，就会启动Run程序的多个实例，主程序退出时，Run程序

依然运行。可以用如下函数使它们协调工作：

Function Ulong FindWindowA(Ulong classname, String windowname)

Library "user32.dll”

Function Long SetParent(Long childwin, Long parentwin) Library "user32.dll”

（1） 使Run程序只运行一个实例

handle = FindWindowsA(nul,wtitle)

//查找Run程序是否已经运行，wtitle为Run程序的窗口标题

If handle > 0 Then Return

//若已经在运行就返回

Run(“c:\luhan.chm”)

//否则运行Run程序

（2） 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.dll”

Function Long ShowWindow(Long hWnd, Long nCmdShow) Library “user32.dll”

用ShowWindow来显示或隐藏窗口，其第二个参数为0表示隐藏，为5表示显示：

handle = FindWindowEx(0,0,” Shell_TrayWnd”,wn) //wn为空串

ShowWindow(handle,0) //隐藏任务栏

8. 如何将长文件名转换为短文件名

通过GetShortPathName函数可以把上文件名转换为8.3格式，其声明为：

Function Long GetShortPathNameA(String lf, ref String sf, Long

buflen)

Library “kernel32.dll”

参数1为长文件名，参数2为保存短文件名的缓冲区，参数3为缓冲区长度。例如：

GetShortPathNameA(“C:\My Document\Powerbuilder编程实践.Doc”,sf,256)

\

//sf = Spcace(256)

9. 如何在PB中实现延时

延时函数很有用，PB虽然没有提供，但可以通过Wind32的Sleep函数来扩展：

Function Long Sleep(Long ms) Library “kernel32.dll”

调用：Sleep(1000) //延时1秒

10. 如何在PB中播放音乐

PB没有提供任何多媒体函数，要播放音乐只能通过Win32 API的PlaySound来实现

：

Function Long PlaySound(String Filename, Int Mod, Int Flags) Library

“ winmm.dll”