BCB6 -- 用來監視USB Storage插拔的小程式 |
|
|
|
tandylo
一般會員   發表：3 回覆：4 積分：1 註冊：2003-09-26 發送簡訊給我 |
compile時請將Data alignment 設定為Quad word. 謝謝
 附加檔案：81695_DeviceApp.zip
|
|
pcboy
版主   發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
小弟用 BCB 6 Enterprise (更新到 Update 4)
自己重新 Build 時候出現 Find Package Import Unable to find package import pdf6.bpi Package Import : [ ] 請問是要去哪裡抓 pdf6.bpi, elpackB6.bpi , elpackB.bpi ? 還要做哪些安裝或設定 ? 謝謝
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
luckfox0927
一般會員 發表：13 回覆：7 積分：4 註冊：2002-12-29 發送簡訊給我 |
用notepad編輯project1.bpr,將裡面的pdf6.bpi, elpackB6.bpi , elpackB.bpi 移除即可
===================引 用 pcboy 文 章=================== 小弟用 BCB 6 Enterprise (更新到 Update 4) 自己重新 Build 時候出現 Find Package Import Unable to find package import pdf6.bpi Package Import : [ ] 請問是要去哪裡抓 pdf6.bpi, elpackB6.bpi , elpackB.bpi ? 還要做哪些安裝或設定 ? 謝謝 ? |
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
可以了, THX
===================引 用 luckfox0927 文 章=================== 用notepad編輯project1.bpr,將裡面的pdf6.bpi, elpackB6.bpi , elpackB.bpi 移除即可 ===================引 用 pcboy 文 章=================== 小弟用 BCB 6 Enterprise (更新到 Update 4) 自己重新 Build 時候出現 Find Package Import Unable to find package import pdf6.bpi Package Import : [ ] 請問是要去哪裡抓 pdf6.bpi, elpackB6.bpi , elpackB.bpi ? 還要做哪些安裝或設定 ? 謝謝 ?
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
digitraveler
初階會員 發表：89 回覆：91 積分：46 註冊：2005-06-01 發送簡訊給我 |
版主寫的程式好像會引發多次事件, 參考 PCBOY 版主的 DELPHI 版改的
FOR BCB 5 版 (應該也可用在 BCB6) , 一次插入(或拔出) 只會引發一次事件 而且可以秀出插入的磁碟代碼 ... [code cpp] #include "dbt.h" //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { WindowProc=MyWndProc; //攔截訊息 } //--------------------------------------------------------------------------- //攔截系統訊息 //--------------------------------------------------------------------------- void __fastcall TForm1::MyWndProc(TMessage &Message) { PDEV_BROADCAST_VOLUME dbvDev; DWORD vn; char disk_label; if(Message.Msg == WM_DEVICECHANGE) { switch(Message.WParam) { case DBT_DEVICEARRIVAL : dbvDev =(PDEV_BROADCAST_VOLUME)Message.LParam; vn = dbvDev->dbcv_unitmask; disk_label = FirstDriveFromMask(vn); ShowMessage("CARD INSERT IN " String(disk_label)); break; case DBT_DEVICEREMOVECOMPLETE: ShowMessage("CARD NOT INSERT"); break; } } //將訊息還給 Form 原來處理程序 WndProc(Message); } //--------------------------------------------------------------------------- char __fastcall TForm1::FirstDriveFromMask(ULONG unitmask) { char i; for (i = 0; i < 26; i) { if (unitmask & 0x1) break; unitmask = unitmask >> 1; } return (i 'A'); } [/code] |
發表時間：2005-11-21 20:29:07
IP:61.217.xxx.xxx 未訂閱
系統時間：2024-04-19 23:19:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |