Win32 API 與PB編程[1]

　　 如何使PB窗口總在最上層

　　通過SetWindowPos函數吧窗口的顯示層次修改為HWND_TOPMOST就可以使指定窗口永遠不會被其他窗口覆蓋該函數聲明為

　　Function Long SetWindowPos（Long hwnd Long ord Long x Long y Long dx Long dy Long uflag） Library userdll

　　參數為要頂層顯示的窗口句柄參數指定顯示的層次參數為附加選項其余參數指定窗口位置和大小均可忽略在窗口的Open或Activate事件中加入如下函數調用

　　SetWindowPos（Handle（This））

　　參數取表示在最頂層顯示窗口取表示在最底層顯示最後一個參數若取表示窗口大小保持不變取表示保持位置不變因此取（=+）表示大小和位置均保持不變取表示將窗口的大小和位置改變為指定值

　　 在PB中如何獲得光盤盤符

　　通過GetDriveType函數可以獲取驅動器（如軟驅硬盤光驅網絡映射驅動器等）的信息該函數聲明為

　　Function Unit GetDriveTypeA（String drive） Library kerneldll

　　參數為一個盤符（如C:）返回值表示未知表示軟驅表示本地硬盤表示網絡驅動器表示光驅因此如下代碼可以獲得光盤的盤符

　　For I=Asc（D） to Asc（Z）

　　//列舉所有可能的CDROM的驅動器

　　If GetDriveTypeA（Char（i）+:） = Then

　　//若找到CDROM

　　Messagebox（CDROMChar（i）+:）

　　//顯示光盤盤符

　　Exit //退出循環

　　End if

　　Next

　　 在PB中如何獲取目錄信息

　　（）獲取當前目錄通過GetCurrentDirectory函數可以獲取當前目錄該函數聲明為

　　Function Ulong GetCurrentDirectory（Ulong buflenref String dir）

　　Library kerneldll

　　參數為接受當前目錄的字符緩沖區前面必須加ref表示地址引用參數用來指定字符緩沖區的長度調用過程為

　　String curdir

　　Curdir=Space（）

　　//為字符緩沖區開辟內存空間

　　GetCurrentDirectory（curdir）

　　MessageBox（當前路徑curdir）

　　（）獲取Windows及系統目錄

　　要用到GetWindowsDirectory和GetSystemDirec tory兩個函數須作如下聲明

　　Function Uint GetWindowsDirectoryA（ref String dirUint buflen）

　　Library kerneldll

　　Function Uint GetSystemDirectoryA（ref String dirUint buflen）

　　Library kerneldll

　　 在PB中如何注銷當前用戶關閉計算機重啟計算機

　　通過ExitWindowsEx函數可實現這三個功能首先作如下聲明

　　Function Long ExitWindowsEx（Long uflag Long nouse） Library userdll

　　參數保留不用可取;參數取可以注銷當前用戶取可以關閉計算機取可以重啟計算機其值再加表示強制結束未響應的進程

[]  []  

From:http://tw.wingwit.com/Article/program/PB/201311/24634.html