100多种代码.pdfVIP

3 3．在PB中如何获取目录信息 ⑴获取当前目录。通过GetCurrentDirectory函数可以获取当前目录，该函数声明为： Function Ulong GetCurrentDirectoryA(Ulong buflen, ref String dir) Library ″kernel32.dll″ 参数2为接收当前目录的字符缓冲区，前面必须加ref表示地址引用；参数1用来指定字符缓冲区的长度。调用过程为： String curdir curdir=Space(256) //为字符缓冲区开辟内存空间 GetCurrentDirectoryA(256,curdir) MessageBox( ″Current Directory″,curdir) ⑵获取Windows及系统目录。要用到GetWindowsDirectory和GetSystemDirectory两个函数，须作如下声明： Function Uint GetWindowsDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″ Function Uint GetSystemDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″ 第 1 页 7 7．显示或隐藏Windows的任务栏 要显示或隐藏任务栏，首先要得到它的窗口句柄。任务栏是一个特殊的窗口，它的窗口类为：Shell—TrayWnd，没有标 题，故只能用FindWindowEx函数来取得它的句柄： Function long FindWindowEx(long ph, long ch, ref String cn, ref String wn) Library ′user32 ′ Function Long ShowWindow(Long hWnd, Long nCmdShow ) Library ′user32 ′ 用ShowWindow来显示或隐藏窗口，其第二个参数为0表示隐藏，为5表示显示： handle = FindWindowEx(0,0,Shell—TrayWnd, wn)//wn为空串 ShowWindow(handle,0)//隐藏任务栏 第 1 页 10 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)表示在后台循环播放。 第 1 页 1 1．如何使PB窗口总在最上层(Always On Top) 通过SetWindowPos函数把窗口的显示层次修改为HWND—TOPMOST，就可使指定窗口永远不会被其它窗口覆盖，该函数声明 为： Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32 ″ 参数1为要顶层显示的窗口句柄，参数2指定显示的层次，参数7为附加选项，其余参数指定窗口位置和大小，均可忽略。 在窗口的Open或Activate事件中加入如下函数调用： SetWindowPos(Handle(This),－1,0,0,0,0,3) 参数2取－1表示在最顶层显示窗口，取1表示在最底层显示；最后一个参数若取1，表示窗口大小保持不变，取2表示保持 位置不变，因此，取3