如何寫組合鍵?

發文回覆瀏覽次數：1692

推到 Plurk!

推到 Facebook!

尚未結案

ksmf
一般會員

發表：7
回覆：11
積分：3
註冊：2005-07-10

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-11-13 17:15:42

IP:220.130.xxx.xxx 訂閱

請教各位,
底下有參考站上的code但何以按了space 0 的鍵是沒作用?
是那裹有錯?
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

bool Space_Down = false;
LRESULT CALLBACK __declspec(dllexport) __stdcall KbdHookProc(int nCode,WPARAM wParam,LPARAM lParam)
{
bool bHandleKeystroke = false;
if((lParam&0xc000ffff)==1) //有鍵按下
{
switch(wParam)
{
case VK_SPACE:
Space_Down = true;
bHandleKeystroke = true;
break;
}
}
if((lParam&0xc0000000)==0xc0000000)// 有鍵放開
{
switch(wParam)
{
case VK_SPACE:
Space_Down = false;
bHandleKeystroke = true;
break;
}
}
if((DWORD)lParam &0x40000000 && (HC_ACTION == nCode))
{
switch(wParam)
{
case 0x30:
if(Space_Down)
ShowMessage("抓到了^_^b");
bHandleKeystroke = true;
break;
}
}
return bHandleKeystroke;
}

謝謝

Ktop_Robot
站務副站長

發表：0
回覆：3511
積分：0
註冊：2007-04-17

發送簡訊給我

#2 引用回覆回覆

發表時間：2008-06-26 20:50:24

IP:000.000.xxx.xxx 未訂閱

提問者您好:

以上回應是否已得到滿意的答覆？

若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。

有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.

系統時間：2024-04-23 20:49:50

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！