API函数

一、p B中控制由Run运行的程序

在PB程序设计中，可以用Run()来运行一些程序。比如用户按了F1，就运行一个chm 文件。但Run程序无法与PB主程序协调工作，若用户按了多次F1，就会启动Run程序的多个实例，主程序退出时，Run程序依然运行。可以用如下函数来使它们协调工作：Function Ulong FindWindowA(Ulong classname, String windowname)

Library ″user32.dll″

Function Long SetParent(L ong 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主程序的子窗口

一、PB提供了一个运行外部程序的函数Run，其调用格式为Run(String{，WindowState})。其中String 为要运行的应用程序文件名及其所需参数。WindowState为应用程序运行的窗口的状态，例如Run(“D：\Fli\ Aaplay.exe WaveLogo.fli”，Maximized)。但是如果我们想通过文件对话框选择所需运行的程序，例如我们想通过对话框来选取一个.FLI文件，然后用Aaplay.exe来播放它，这时，由于Run函数只能运行指定的程序，因而用上述方式就无法实现。不过，我们可以用下述方法来实现：

首先定义一个字符串型变量Getfile，用它来表示通过文件对话框打开的文件名，然后再定义一个字符串变量Isthisfile，再令Isthisfile=“Aaplay.exe”＋Getfile。最后用函数Run(Isthisfile，Maximized)即可。

上述方法的原理是由于Run函数内不能传递参数，所以只能运行指定的程序，因而不能直接运行通过对话框选择的程序，在上述方法中，我们通过字符串型变量的赋值，使通过对话框选取的文件名成为指定的文件名，从而可以调用Run函数来运行它。

API函数和PB编程

2002-07-19 14:22作者：出处：Yesky责任编辑：

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 E xitWindowsEx(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 "use r32.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”

参数1为wav文件名，参数2必须取0，参数3取1表示后台播放，取8表示循环播放，因此取9（=1+8）表示在后台循环播放。

一、什么是Windows API?

1.什么是Windows API?

Windows 这个多作业系统除了协调应用程式的执行、分配内存、管理系统资源…之外，她同时也是一个很大的服务中心，调用这个服务中心的各种服务(每一种服务就是一个函数)，可以帮应用程式达到开启视窗、描绘图形、使用周边设备…等目的，由於这些函数服务的对象是应用程式(Application)，所

以便称之为Application Programming Interface，简称API 函数。WIN32 API也就是MicrosoftWindows 32位平台的应用程序编程接口。

凡是在Windows 工作环境底下执行的应用程式，都可以调用Windows API。

2.Windows API的历史与现状

当WINDOWS操作系统开始占据主导地位的时候，开发WINDOWS平台下的应用程序成为人们的需要。而在WINDOWS程序设计领域处于发展的初期，WINDOWS程序员所能使用的编程工具唯有API函数，这些函数是WINDOWS提供给应用程序与操作系统的接口，他们犹如“积木块”一样，可以搭建出各种界面丰富，功能灵活的应用程序。所以可以认为API函数是构筑整个WINDOWS框架的基石，在它的下面是WINDOWS的操作系统核心，而它的上面则是所有的华丽的WINDOWS应用程序。

但是，没有合适的Windows编程平台，程序员想编写具有Windows风格的软件，必须借助API，API 也因此被赋予至高无上的地位。那时的WINDOWS程序开发还是比较复杂的工作，程序员必须熟记一大堆常用的API函数，而且还得对WINDOWS操作系统有深入的了解。然而随着软件技术的不断发展，在WINDOWS平台上出现了很多优秀的可视化编程环境，程序员可以采用“即见即所得”的编程方式来开发具有精美用户界面和功能强大的应用程序。

这些优秀可视化编程环境操作简单、界面友好（诸如VB、VC++、DELPHI等），在这些工具中提供了大量的类库和各种控件，它们替代了API的神秘功能，事实上这些类库和控件都是构架在WIN32 API 函数基础之上的，是封装了的API函数的集合。它们把常用的API函数的组合在一起成为一个控件或类库，并赋予其方便的使用方法，所以极大的加速了WINDOWS应用程序开发的过程。有了这些控件和类库，程序员便可以把主要精力放在程序整体功能的设计上，而不必过于关注技术细节。

实际上如果我们要开发出更灵活、更实用、更具效率的应用程序，必然要涉及到直接使用API函数，虽然类库和控件使应用程序的开发简单的多，但它们只提供WINDOWS的一般功能，对于比较复杂和特殊的功能来说，使用类库和控件是非常难以实现的，这时就需要采用API函数来实现。

这也是API函数使用的场合，所以我们对待API函数不必刻意去研究每一个函数的用法，那也是不现实的(能用得到的API函数有几千个呢)。正如某位大虾所说：API不要去学，在需要的时候去查API 帮助就足够了。但是，许多API函数令人难以理解，易于误用，还会导致出错，这一切都阻碍了它的推广。本专题就是想帮助那些想快速掌握API函数用法的同志们。通过对API函数的分类，结合一些有趣的实例，应该可以达到快速掌握的目的。

1. API之网络函数

WNetAddConnection 创建同一个网络资源的永久性连接

WNetAddConnection2 创建同一个网络资源的连接

WNetAddConnection3 创建同一个网络资源的连接

WNetCancelConnection 结束一个网络连接

WNetCancelConnection2 结束一个网络连接

WNetCloseEnum 结束一次枚举操作

WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接

WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接

WNetEnumResource 枚举网络资源

WNetGetConnection 获取本地或已连接的一个资源的网络名称

WNetGetLastError 获取网络错误的扩展错误信息

WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC（统一命名规范）名称WNetGetUser 获取一个网络资源用以连接的名字

WNetOpenEnum 启动对网络资源进行枚举的过程

2. API之消息函数

BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口

GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置

GetMessageTime 取得消息队列中上一条消息处理完毕时的时间

PostMessage 将一条消息投递到指定窗口的消息队列

PostThreadMessage 将一条消息投递给应用程序

RegisterWindowMessage 获取分配给一个字串标识符的消息编号

ReplyMessage 答复一个消息

SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口

SendMessageCallback 将一条消息发给窗口

SendMessageTimeout 向窗口发送一条消息

SendNotifyMessage 向窗口发送一条消息

3. API之文件处理函数

CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等CompareFileTime 对比两个文件的时间

CopyFile 复制文件

CreateDirectory 创建一个新目录

CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台

CreateFileMapping 创建一个新的文件映射对象

DeleteFile 删除指定文件

DeviceIoControl 对设备执行指定的操作

DosDateTimeToFileTime 将DOS日期和时间值转换成一个win32 FILETIME 值FileTimeToDosDateTime 将一个win32 FILETIME 值转换成DOS日期和时间值FileTimeToLocalFileTime 将一个FILETIME结构转换成本地时间

FileTimeToSystemTime 根据一个FILETIME结构的内容，装载一个SYSTEMTIME结构

FindClose 关闭由FindFirstFile函数创建的一个搜索句柄

FindFirstFile 根据文件名查找文件

FindNextFile 根据调用FindFirstFile函数时指定的一个文件名查找下一个文件

FlushFileBuffers 针对指定的文件句柄，刷新内部文件缓冲区

FlushViewOfFile 将写入文件映射缓冲区的所有数据都刷新到磁盘

GetBinaryType 判断文件是否可以执行

GetCompressedFileSize 判断一个压缩文件在磁盘上实际占据的字节数

GetCurrentDirectory 在一个缓冲区中装载当前目录

GetDiskFreeSpace 获取与一个磁盘的组织有关的信息，以及了解剩余空间的容量GetDiskFreeSpaceEx 获取与一个磁盘的组织以及剩余空间容量有关的信息

GetDriveType 判断一个磁盘驱动器的类型

GetExpandedName 取得一个压缩文件的全名

GetFileAttributes 判断指定文件的属性

GetFileInformationByHandle 这个函数提供了获取文件信息的一种机制

GetFileSize 判断文件长度

GetFileTime 取得指定文件的时间信息

GetFileType 在给出文件句柄的前提下，判断文件类型

GetFileVersionInfo 从支持版本标记的一个模块里获取文件版本信息

GetFileVersionInfoSize 针对包含了版本资源的一个文件，判断容纳文件版本信息需要一个多大的缓冲区

GetFullPathName 获取指定文件的完整路径名

GetLogicalDrives 判断系统中存在哪些逻辑驱动器字母

GetLogicalDriveStrings 获取一个字串，其中包含了当前所有逻辑驱动器的根驱动器路径GetOverlappedResult 判断一个重叠操作当前的状态

GetPrivateProfileInt 为初始化文件（.ini文件）中指定的条目获取一个整数值GetPrivateProfileSection 获取指定小节（在.ini文件中）所有项名和值的一个列表GetPrivateProfileString 为初始化文件中指定的条目取得字串

GetProfileInt 取得win.ini初始化文件中指定条目的一个整数值

GetProfileSection 获取指定小节（在win.ini文件中）所有项名和值的一个列表

GetProfileString 为win.ini初始化文件中指定的条目取得字串

GetShortPathName 获取指定文件的短路径名

GetSystemDirectory 取得Windows系统目录（即System目录）的完整路径名

GetTempFileName 这个函数包含了一个临时文件的名字，它可由应用程序使用

GetTempPath 获取为临时文件指定的路径

GetVolumeInformation 获取与一个磁盘卷有关的信息

GetWindowsDirectory 获取Windows目录的完整路径名

hread 参考lread

hwrite 参考lwrite函数

lclose 关闭指定的文件

lcreat 创建一个文件

llseek 设置文件中进行读写的当前位置

LockFile 锁定文件的某一部分，使其不与其他应用程序共享

LockFileEx 与LockFile相似，只是它提供了更多的功能

lopen 以二进制模式打开指定的文件

lread 将文件中的数据读入内存缓冲区

lwrite 将数据从内存缓冲区写入一个文件

LZClose 关闭由LZOpenFile 或LZInit函数打开的一个文件

LZCopy 复制一个文件

LZInit 这个函数用于初始化内部缓冲区

LZOpenFile 该函数能执行大量不同的文件处理，而且兼容于压缩文件

LZRead 将数据从文件读入内存缓冲区

LZSeek 设置一个文件中进行读写的当前位置

MapViewOfFile 将一个文件映射对象映射到当前应用程序的地址空间

MoveFile 移动文件

OpenFile 这个函数能执行大量不同的文件操作

OpenFileMapping 打开一个现成的文件映射对象

QueryDosDevice 在Windows NT中，DOS设备名会映射成NT系统设备名。该函数可判断当前的设备映射情况

ReadFile 从文件中读出数据

ReadFileEx 与ReadFile相似，只是它只能用于异步读操作，并包含了一个完整的回调RegCloseKey 关闭系统注册表中的一个项（或键）

RegConnectRegistry 访问远程系统的部分注册表

RegCreateKey 在指定的项下创建或打开一个项

RegCreateKeyEx 在指定项下创建新项的更复杂的方式。在Win32环境中建议使用这个函数RegDeleteKey 删除现有项下方一个指定的子项

RegDeleteValue 删除指定项下方的一个值

RegEnumKey 枚举指定项的子项。在Win32环境中应使用RegEnumKeyEx

RegEnumKeyEx 枚举指定项下方的子项

RegEnumValue 枚举指定项的值

RegFlushKey 将对项和它的子项作出的改动实际写入磁盘

RegGetKeySecurity 获取与一个注册表项有关的安全信息

RegLoadKey 从以前用RegSaveKey函数创建的一个文件里装载注册表信息RegNotifyChangeKeyValue 注册表项或它的任何一个子项发生变化时，用这个函数提供一种通知机制RegOpenKey 打开一个现有的注册表项

RegOpenKeyEx 打开一个现有的项。在win32下推荐使用这个函数

RegQueryInfoKey 获取与一个项有关的信息

RegQueryValue 取得指定项或子项的默认（未命名）值

RegQueryValueEx 获取一个项的设置值

RegReplaceKey 用一个磁盘文件保存的信息替换注册表信息；并创建一个备份，在其中包含当前注册表信息

RegRestoreKey 从一个磁盘文件恢复注册表信息

RegSaveKey 将一个项以及它的所有子项都保存到一个磁盘文件

RegSetKeySecurity 设置指定项的安全特性

RegSetValue 设置指定项或子项的默认值

RegSetValueEx 设置指定项的值

RegUnLoadKey 卸载指定的项以及它的所有子项

RemoveDirectory 删除指定目录

SearchPath 查找指定文件

SetCurrentDirectory 设置当前目录

SetEndOfFile 针对一个打开的文件，将当前文件位置设为文件末尾

SetFileAttributes 设置文件属性

SetFilePointer 在一个文件中设置当前的读写位置

SetFileTime 设置文件的创建、访问及上次修改时间

SetHandleCount 这个函数不必在win32下使用；即使使用，也不会有任何效果

SetVolumeLabel 设置一个磁盘的卷标（Label）

SystemTimeToFileTime 根据一个FILETIME结构的内容，载入一个SYSTEMTIME结构

UnlockFile 解除对一个文件的锁定

UnlockFileEx 解除对一个文件的锁定

UnmapViewOfFile 在当前应用程序的内存地址空间解除对一个文件映射对象的映射

VerFindFile 用这个函数决定一个文件应安装到哪里

VerInstallFile 用这个函数安装一个文件

VerLanguageName 这个函数能根据16位语言代码获取一种语言的名称

VerQueryValue 这个函数用于从版本资源中获取信息

WriteFile 将数据写入一个文件

WriteFileEx 与WriteFile类似，只是它只能用于异步写操作，并包括了一个完整的回调WritePrivateProfileSection 为一个初始化文件（.ini）中指定的小节设置所有项名和值WritePrivateProfileString 在初始化文件指定小节内设置一个字串

WriteProfileSection 为Win.ini初始化文件中一个指定的小节设置所有项名和值

WriteProfileString 在Win.ini初始化文件指定小节内设置一个字串

4. API之打印函数

AbortDoc 取消一份文档的打印

AbortPrinter 删除与一台打印机关联在一起的缓冲文件

AddForm 为打印机的表单列表添加一个新表单

AddJob 用于获取一个有效的路径名，以便用它为作业创建一个后台打印文件。它也会为作业分配一个作业编号

AddMonitor 为系统添加一个打印机监视器

AddPort 启动“添加端口”对话框，允许用户在系统可用端口列表中加入一个新端口

AddPrinter 在系统中添加一台新打印机

AddPrinterConnection 连接指定的打印机

AddPrinterDriver 为指定的系统添加一个打印驱动程序

AddPrintProcessor 为指定的系统添加一个打印处理器

AddPrintProvidor 为系统添加一个打印供应商

AdvancedDocumentProperties 启动打印机文档设置对话框

ClosePrinter 关闭一个打开的打印机对象

ConfigurePort 针对指定的端口，启动一个端口配置对话框

ConnectToPrinterDlg 启动连接打印机对话框，用它同访问网络的打印机连接

DeleteForm 从打印机可用表单列表中删除一个表单

DeleteMonitor 删除指定的打印监视器

DeletePort 启动“删除端口”对话框，允许用户从当前系统删除一个端口

DeletePrinter 将指定的打印机标志为从系统中删除

DeletePrinterConnection 删除与指定打印机的连接

DeletePrinterDriver 从系统删除一个打印机驱动程序

DeletePrintProcessor 从指定系统删除一个打印处理器

DeletePrintProvidor 从系统中删除一个打印供应商

DeviceCapabilities 利用这个函数可获得与一个设备的能力有关的信息

DocumentProperties 打印机配置控制函数

EndDocAPI 结束一个成功的打印作业

EndDocPrinter 在后台打印程序的级别指定一个文档的结束

EndPage 用这个函数完成一个页面的打印，并准备设备场景，以便打印下一个页

EndPagePrinter 指定一个页在打印作业中的结尾

EnumForms 枚举一台打印机可用的表单

EnumJobs 枚举打印队列中的作业

EnumMonitors 枚举可用的打印监视器

EnumPorts 枚举一个系统可用的端口

EnumPrinterDrivers 枚举指定系统中已安装的打印机驱动程序

EnumPrinters 枚举系统中安装的打印机

EnumPrintProcessorDatatypes 枚举由一个打印处理器支持的数据类型

EnumPrintProcessors 枚举系统中可用的打印处理器

Escape 设备控制函数

FindClosePrinterChangeNotification 关闭用FindFirstPrinterChangeNotification函数获取的一个打印机通告对象

FindFirstPrinterChangeNotification 创建一个新的改变通告对象，以便我们注意打印机状态的各种变化FindNextPrinterChangeNotification 用这个函数判断触发一次打印机改变通告信号的原因FreePrinterNotifyInfo 释放由FindNextPrinterChangeNotification函数分配的一个缓冲区

GetForm 取得与指定表单有关的信息

GetJob 获取与指定作业有关的信息

GetPrinter 取得与指定打印机有关的信息

GetPrinterData 为打印机设置注册表配置信息

GetPrinterDriver 针对指定的打印机，获取与打印机驱动程序有关的信息GetPrinterDriverDirectory 判断指定系统中包含了打印机驱动程序的目录是什么GetPrintProcessorDirectory 判断指定系统中包含了打印机处理器驱动程序及文件的目录

OpenPrinter 打开指定的打印机，并获取打印机的句柄

PrinterMessageBox 在拥有指定打印作业的系统上显示一个打印机出错消息框

PrinterProperties 启动打印机属性对话框，以便对打印机进行配置

ReadPrinter 从打印机读入数据

ResetDC 重设一个设备场景

ResetPrinter 改变指定打印机的默认数据类型及文档设置

ScheduleJob 提交一个要打印的作业

SetAbortProc 为Windows指定取消函数的地址

SetForm 为指定的表单设置信息

SetJob 对一个打印作业的状态进行控制

SetPrinter 对一台打印机的状态进行控制

SetPrinterData 设置打印机的注册表配置信息

StartDoc 开始一个打印作业

StartDocPrinter 在后台打印的级别启动一个新文档

StartPage 打印一个新页前要先调用这个函数

StartPagePrinter 在打印作业中指定一个新页的开始

WritePrinter 将发送目录中的数据写入打印机

5. API之文本和字体函数

AddFontResource 在Windows系统中添加一种字体资源

CreateFont 用指定的属性创建一种逻辑字体

CreateFontIndirect 用指定的属性创建一种逻辑字体

CreateScalableFontResource 为一种TureType字体创建一个资源文件，以便能用API函数

AddFontResource

二﹑什么是DLL

什么是DLL呢？

DLL（动态连接库），既然是动态，那么就是有静态连接库，我想如果这么说大家会更明白：

也许有的人在DOS下编写过程序都明白这么一件事情，我写了一个程序，里面有一个功能就是把屏幕的内容翻转在转90°打印出来，那么我需要把整个程序写好放到我的所有代码中，但是如果我写另外一个程序的时候也有相通的功能，我可以调用以前的程序这个功能吗？当然是不可以的了，所以我就要重新的写一次，如果有5个需要调用这个功能的程序，我的这个功能函数需要20K的地方，那么我的硬盘就有80K的垃圾出现（20k*5 - 20k），这仅仅是一个函数，大家是否可以数清除WINDOWS如果这样来写，需要多少函数吗？你看看所有的按钮、滚动条、

Listbox\Textbox\checkBox\窗体、打印对话框、颜色对话框、打开、保存、另存、字体对话框、文件的排列、拷贝、粘贴...... 这一切的一切是不是都需要在所有的程序中都要写出来呢？如果真的是这个样子，那么我们的windows应该按TB来计算了（1TB=1024GB），也许你说你的硬盘很大，那么他们还要在运行的时候占用相同大下的内容呢！所以发展出来了，动态连接库（dll）这个感念：动态连接，就是把这些相通的功能、函数都放到一种特殊形式的windwos可执行文

件中（dll），生成一个DLL的时候，程序员需要写出，其中包含那些函数需由其他程序来访问。这个过程叫做对函数的“导出”创建windows程序的时候，专门的连接程序对程序的对象文件进行扫描，并生成一个列表，列出那些调用的函数在那个DLL那个位置，指定各个函数所在位置的过程叫做对函数的“导入”，当程序运行的时候，一旦要求用到执行文件内部没有的函数，windows就会自动装载动态连接库，使应用程序可以访问这些函数。此时，每个函数的地址都会解析出来，并且以动态的方式连接到程序里－－这便是术语“动态连接”的由来。另外还有一个好处，就是当你更新你的这个函数的版本和功能的时候，静态连接所需要做的工作是多少（假设按windwos来说他有上千个这样的函数，一共有100 多个程序来使用，那静态连接需要100000次的更新，动态连接只需要1000次）﹐从而也节省了内存的空间。动态连接库不一定是DLL扩展名的，也可以是ocx、vbx、exe、drv 等等的大家可以发现在调用WIN32 api的时候里面都会有说明是来自于那个dll等宿主文件的现在我就在这里讲讲一些标准的dll用途：

看下面这个API声明：

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) A s Long

看见kernel32了吗，其实这个就是kernel32.dll的名字，你可以在你的硬盘里找到他，这就是说GetWindowsDirectory这个函数是在kernel32.dll里面，他的别名是GetWindowsDirectoryA，（）中是他的参数，有两个一个是字符型，一个是长整型，返回值也是长整型。lpBuffer ------- S tring，指定一个字串缓冲区，用于装载Windows目录名。除非是根目录，否则目录中不会有一个中止用的“\” 字符nSize

---------- L ong，lpBuffer字串的最大长度，返回值为Long，复制到lpBuffer的一个字串的长度。如lpBuffer 不够大，不能容下整个字串，就会返回lpBuffer要求的长度。零表示失败。这就是API声明的意义所在！

DLL的说明

KERNEL32.DLL －－－－低级内核函数。使用他可以完成内存管理、任务管理、资源控制等。USER32.DLL－－－－－－于windows管理有关的函数。消息、菜单、光标、计时器、通信和其他大多数非现实函数都可以从这里找到

GDI32.DLL－－－－－－－图形设备接口库。于设备输出有关的函数：大多数绘图、显示场景、图元文件、坐标及其字体函数都可以从这梨找到。

COMDLG32.DLL\LZ32.DLL\VERSION.DLL\－－－这都是提供一些附加函数的库，包括通用对话框、文

件压缩、版本控制的支持。

COMCTL32.DLL --------一个新的windows控件集合，比如TreeView和RichTextBox 等等，最初这个好像是为了win95而制作的，但是现在也使用与NT下MAPI32.DLL---------提供了一套电子邮件的专用函数NETAPI32.DLL--------提供了一套访问和控制网络的函数

ODBC32.DLL--------(不用我再说了吧)ODBC功能的DLL之一

WINMM.DLL－－－－－－（这可不是WINDOWS的MM）是多媒体控制访问函数集合

windows api正在快速发展和变化，是你我任何单个人都追赶不上的速度发展，幸

运的是我们不用掌握所有的windows API，只是掌握需要经常使用的WINDOWs api

和他的常规结构、基本感念就可以了，这亮点很重要。

四﹑PB外部函數調用狀況﹐如

1.PB中调用API函数限制程序多次运行

定义外部函数

Function ULong CreateMutexA(ULong lpsa, Boolean fInitialOwner, String lpszMutexName) Library 'kernel32.dll' function long GetLastError () library "kernel32.dll"

/* ======================================================== */

// 函数名称：uf_app_isrun

// 参数解释：无

// 功能描述：判断本应用是否已经运行

// 调用举例：uf_app_isrun

// 最初作者：*******

// 编写日期：

// 返回值：boolean

// 变量情况：

// 修改人：

// 修改日期：

// 修改原因：

/* ======================================================== */

string ls_AppName

IF Handle(GetApplication())>0 THEN

ls_AppName=GetApplication().AppName

CreateMutexA(0,TRUE,ls_AppName)

IF GetLastError()=183 THEN RETURN TRUE

END IF

RETURN FALSE

判断应用是否已运行的。在应用的open事件中调用：

w_logon1024.Title ="计算器"

if uf_app_isrun()=true then

messagebox("","重复打开")

halt close

else

messagebox("","没有重复")

end if

可以吗

还有，在PB下，我怎么测试是否重复打开程序

另一种方法：

1.声明全局外部函数

FUNCTION ulong FindWindowA(ulong classname,string windowname) LIBRARY "user32.dll"

2.在application的open事件中

/*防止本系统多次运行*/

ulong l_handle, lu_class

setnull(lu_class)

ls_name="？？？"//mdi主窗体的标题

l_handle = FindWindowA(lu_class, ls_name)

if l_handle > 0 then

MessageBox("应用程序多次运行", "本应用程序已经运行,你不能多次启动！")

Halt Close

end if

如何获得窗口微帮助的当前内容?

第一步：声明全局外部函数：

Function ulong FindWindowEx(ulong hWnd1,ulong hWnd2,ref string lpsz1,ref string lpsz2) LIBRARY "user32.dll" ALIAS FOR "FindWindowExA"

Function ulong GetWindowText(ulong hwnd,ref string lpString,ulong cch) LIBRARY "user32. dll" ALIAS FOR "GetWindowTextA"

Function ulong GetWindowTextLength(ulong hwnd) LIBRARY "user32.dll" ALIAS FOR "Get WindowTextLengthA"

第二步：你在一个按钮或MENU里面写如下代码：

string ls_p1,wn,mystr

long handle

ls_p1 = "FNHELP60"

setnull(wn)

handle = FindWindowEx(handle(w_genapp_frame),0,ls_p1,wn)

MyStr = Space(GetWindowTextLength(handle(w_genapp_frame)) + 1)

GetWindowText(handle, MyStr, Len(MyStr))

messagebox("Microhelp",Mystr)

//这里假设你的主FRAME窗体叫做w_genapp_frame,你可以改名为你自己的窗体名

//这样点击按钮或MENU后即可弹出当前MICROHELP内容

一﹑API函数：GetFullPathName如何使用？

函数声明如下：

Function ulong GetFullPathName(ref string lpFileName,ulong nBufferLength,ref string lpBuffer,ref string lpFilePart) LIBRARY "kernel32.dll"

ALIAS FOR "GetFullPathNameA"

GetFullPathName( LPCTSTR lpFileName, // file name // 文件的名字，可以加相对的路径DWORD nBufferLength, // size of path buffer // 输出buf的长度

LPTSTR lpBuffer, // path buffer // 输出全路经

LPTSTR *lpFilePart // address of file name in path // NULL 就可以了

);

使用方法：

ulong x01=128

string a01,b01,c01

a01 = "pb7ping.exe"

GetFullPathName(a01,x01,b01,c01)

//b01=全文件名，c01无实际意义

技术文章——PB中可使用的Windows API调用简介(2005-6-4 12:29:00)(原自：sybase ) 关闭

Arc GetCurrentDirectoryA Mouse_Event

Beep GetCurrentThread MoveToEx

BringWindowToTop GetCursor MoveWindow

Chord GetCursorPos Pie

CloseHandle GetDC Polygon

CloseWindow GetKeyboardState PostMessageA

CopyFileA GetKeyState Rectangle

CreateDirectoryA GetModuleHandleA ReleaseCapture

DeleteFileA GetParent SetCapture

DeleteMenu GetPixel SetComputerNameA

DestroyWindow GetSystemTime SetCurrentDirectoryA

DllRegisterServer GetSystemMenu SetCursorPos

Ellipse GetSystemMetrics SetFocus

ExitWindowsEx GetThreadPriority SetKeyboardState

FatalExit GetUserNameA SetPixel

FindWindowA GetWindowsDirectory Sleep

FreeLibrary GlobalMemoryStatus SndPlaySoundA

GetBkColor LineTo SwapMouseButton

GetCapture LoadLibraryA WaveOutGetNumDevs

GetComputerNameA mciSendStringA WinExec

GetClassNameA MessageBoxA ...

ADDITIONS: GetVolumnInformationA ...

Arc( )

This function draws an arc based on the coordinates the function receives. There is no PowerBuilder equivalent.

Global External Function:

FUNCTION boolean Arc(ulong hwnd, long r1, long r2, long r3, long r4, long a1, long a2, long a3, long a4) LIBRARY "Gdi32.dll" Function ulong GetDC(ulong hwnd) library "user32.dll"

Script:

Boolean rtn

ulong l_handle, l_device

long lv[8]

l_handle = handle(w_main) // 'w_main' is the name of the sample window.

l_device = GetDC(l_handle)

lv[ ] = {10,40,300,220,0,0,180,0}

rtn = Arc(l_device, lv[1], lv[2], lv[3], lv[4], lv[5], lv[6], lv[7], lv[8])

Beep( )

The Beep function causes the system to make an internal beep sound. This is identical to the PowerBuilder function Beep( ).

Global External Function:

FUNCTION boolean Beep(long freq,long dur) LIBRARY "Kernel32.dll"

Script:

Boolean rtn

Long ll_freq, ll_dur

ll_freq = 500

ll_dur = 20

rtn = Beep(ll_freq, ll_dur)

BringWindowToTop( )

The BringWindowToTop function sends a message to the target window telling it to come to the foreground. The PowerBuilder equivalent is limited to PowerBuilder Windows only, the script is as follows: .bringtotop = true

Global External Function:

FUNCTION boolean BringWindowToTop(ulong w_handle) LIBRARY "User32.dll"

Script:

Boolean rtn

ulong l_handle

l_handle = handle(w_win2)

rtn = BringWindowToTop(l_handle)

Chord( )

A Chord is a region bounded by the intersection of an ellipse and a line segment. This function draws a chord based on the coordinates the function receives. There are no PowerBuilder equivalents.

Global External Function:

FUNCTION boolean Chord(ulong hwnd,long x1,long y1,long x2,long y2,long r1, long r2, long r3, long r4) LIBRARY "Gdi32.dll"

Script:

boolean rtn

ulong l_handle, l_device

long lv[8]

l_handle = handle(w_main)

l_device = GetDC(l_handle)

// This can be done in one line: i.e. l_device = GetDC(handle(w_main))

lv[ ] = {5,5,200,200,0,0,200,300}

rtn = Chord(l_device, lv[1], lv[2], lv[3], lv[4], lv[5], lv[6], lv[7], lv[8])

CloseHandle( )

The CloseHandle function releases an open object handle. The closest PowerBuilder equivalent is the function Destroy, but it is only used with PowerBuilder created objects.

Global External Function:

FUNCTION boolean CloseHandle(ulong w_handle) LIBRARY "Kernel32.dll"

FUNCTION ulong FindWindowA(ulong classname,string windowname) LIBRARY "User32.dll"

Script:

boolean rtn

ulong l_handle

string ls_wname

ls_wname = ""

l_handle = FindWindowA(0, ls_wname) // Usually you would already have the handle.

rtn = CloseHandle(l_handle)

CloseWindow( )

This function does not close a window as one might think. CloseWindow minimizes the window that is targeted. The closest PowerBuilder equivalent is the WindowState command, but this is limited to PB windows only. The syntax in PowerBuilder

is as follows: .WindowState = Minimized!

Global External Function:

FUNCTION boolean CloseWindow(ulong w_handle) LIBRARY "User32.dll"

FUNCTION ulong FindWindowA(ulong classname,string windowname) LIBRARY "User32.dll"

Script:

boolean rtn

ulong l_handle

string ls_wname

ls_wname = ""

l_handle = FindWindowA(0, ls_wname) // Be sure to use the exact title of the window you are targeting.

rtn = CloseWindow(l_handle)

CopyFileA( )

This function copies a file by taking the source and destination names as a string by reference. If the flag is set to true the file will not overwrite an existing file, if set to false it will overwrite an existing file. There is no PowerBuilder equivalent.

Global External Function:

FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll"

Script:

string l_from, l_to

boolean l_flag, rtn

l_flag = false

l_from = "c:\program files\sybase\readme.txt"

l_to = "c:\new_readme.txt"

rtn = CopyFileA(l_from, l_to, l_flag)

MessageBox("CopyFile", string(rtn))

CreateDirectoryA( )

This function create a new directory folder under the current directory.The second argument is exclusively used by NT and can be ignored under Win95. There is no PowerBuilder equivalent.

Global External Function:

FUNCTION boolean CreateDirectoryA(ref string pathname, int sa) LIBRARY "Kernel32.dll"

Script:

boolean rtn

string l_dir

l_dir = " c:\API Demo"

rtn = CreateDirectoryA(l_dir, 0)

If rtn then

MessageBox("New Directory Created", "API Demo directory is located under current directory.")

else

MessageBox("CreateDirectory", "Failed")

end if

DeleteFileA( )

This function receives a string by reference containing a fully path qualified filename and deletes that file. There is no PowerBuilder equivalent.

Global External Function:

FUNCTION boolean DeleteFileA(ref string filename) LIBRARY "Kernel32.dll"

Script:

string l_file

boolean rtn

l_file = string("c:\test.txt")

rtn = DeleteFileA(l_file)

MessageBox("DeleteFile", string(rtn))

DeleteMenu( )

The DeleteMenu function deletes an item from the specified menu. If the menu item opens a menu or submenu, this function destroys the handle to the menu or submenu and frees the memory used by the menu or submenu.

Global External Function:

FUNCTION boolean DeleteMenu(ulong mhand, uint upos, uint flag) LIBRARY "user32.dll"

FUNCTION boolean GetSystemMenu(ulong mhandle, boolean flag) LIBRARY "user32.dll"

Script:

ulong m_handle

boolean rtn

m_handle = handle(w_main)

rtn = GetSystemMenu(handle(w_main), false) // Need to get the handle of the system menu first.

rtn = DeleteMenu(m_handle, 1, 0) // The second argument, the '1', refers to the position in the menu. Messagebox("Return Code", string(m_handle))

Messagebox("Return Code", string(rtn))

DestroyWindow( )

This function sends a destroy message to the targeted window. The closest PowerBuilder equivalent is Close(), but this is limited to PB windows only.

Global External Function:

FUNCTION boolean DestroyWindow(ulong w_handle) LIBRARY "USER32.DLL"

Script:

boolean rtn

ulong l_handle

open(w_win2) // Open a test window

l_handle = handle(w_win2)

rtn = DestroyWindow(l_handle)

DllRegisterServer( )

This function triggers an OCX to self-register. This function when called from the constructor event of an application allows a PB application to dynamically register an OCX on the machine it is run on. There is no PowerBuilder equivalent.

Global External Function:

FUNCTION long DllRegisterServer() LIBRARY "c:\windows\ocxname.ocx"

Script:

Long ll_rtn

ll_rtn = DllRegisterServer()

//Note: A return code of zero most likely means the OCX is already registered.

Ellipse( )

An Ellipse function draws a circular object based on the coordinates the function receives. There is no PowerBuilder equivalent.

Global External Function:

FUNCTION boolean Ellipse(ulong hwnd,long x1,long y1,long x2,long y2) LIBRARY "Gdi32.dll"

Function ulong GetDC(ulong hwnd) library "user32.dll"

Script:

Boolean rtn

ulong l_handle, l_device

long lv[4]

l_handle = handle(w_main)

l_device = GetDC(l_handle)

lv[ ] = {5,5,300,300}

rtn = Ellipse(l_device, lv[1], lv[2], lv[3], lv[4])

ExitWindowsEx( )

This function sends a call to the Windows OS telling it to shut down. This function is especially good for increasing the security of your application. There is no PowerBuilder equivalent.

Global External Function:

FUNCTION boolean ExitWindowsEx(uint dwReserved, uint uReserved) LIBRARY "User32.dll"

Script:

boolean rtn

rtn = ExitWindowsEx(0,0) // Zero's tell it to shut down immediately.

FatalExit( )

This function abruptly stops an application from running. As a result, nothing gets closed properly and objects are left hanging in memory. This function will produce a GPF the moment it is called and you will need to reboot. FatalExit is meant to be used for debugging purposes and is not recommended otherwise. There is no PowerBuilder equivalent.

Global External Function:

SUBROUTINE FatalExit(int exitcode) LIBRARY "Kernel32.dll"

Script:

int rtn