熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> PB編程 >> 正文

Win32 API 與PB編程[1]

2013-11-23 17:28:06  來源: PB編程 

   如何使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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.