PB外部函数调用及方法

//如何在PB中实现延时：
subroutine Sleep(long dwMilliseconds) library "kernel32.dll"
延时1秒则调用： Sleep(1000)    //单位是毫秒。

 

 

//调用API函数步骤：
1、在适当的位置声明函数，如窗口内，Application内，UserObject内，
定义在Local External Function或Global External Function中，如播放声音的：
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
也可以创建一个UserObject,集中声明常用的API及函数本地化，如定义用户对象 u_external_function：
Declare Local External Function(定义外部函数):
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
Declare User Object Function(定义用户对象函数):
uf_play_sound(string as_wave_name, integer ai_option)
函数内容如下：
//参数：as_wave_name ：wav文件名 ai_option ：同步或异步(1/0)
uint lui_numdevs
lui_numdevs = WaveOutGetNumDevs()
If lui_numdevs > 0 Then
          sndPlaySoundA(as_wave_name,ai_option)
      return 1
Else
          return -1
End If