function KeyBHkHandle(iCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;export;
const
// SfileName='c:\logfile.txt';
_keypressmask=$80000000;
var
pEvt:TEventMsg;
hFocus:THandle;
szTitle:array[0..255] of Char;
Stream:TextFile;
vKey:Integer;
ch:Char;
str:array[0..10] of Char;
pt:TDateTime;
time1:String;
iCtrl,iAlt,iShift:Integer;
iNumLock:Integer;
iCapital:Integer;
bAlt,bCtrl,bShift,bCapital,bNumlocl:Boolean;
MouPos:TPoint;
StrString:String;
SPCH:Char;
begin
Result:=0;
if (iCode<0) then
begin
// Result:=CallNextHookEx(hNextHookProc,iCode,wParam,integer(lParam));
Result:=CallNextHookEx(hNextHookProc,iCode,wParam,lParam);
exit;
end;
if iCode=HC_ACTION then
begin
pEvt:=PEventMsg(lParam)^;
if (pEvt.message=WM_KEYDOWN) or (pEvt.message=WM_SYSKEYDOWN) then
begin
// vKey:=wParam;
myshiftchar:='';
mypresschar:='';
dulictrl:='';
vKey:=LOBYTE(pEvt.paramL);
if vKey=116 then mypresschar:='F5';
end;
end;
if mypresschar='F5' then begin
form1.Memo1.Lines.Add(mypresschar);
mypresschar:='';
vKey:=0;
showmessage('OK'); //只要加上這句，就停不下來，一直跑到死機
end;
end;
我想這里增加按下F5，就出來一個提示資訊,
uj5u.com熱心網友回復：
再補充一下，showmessage('OK'); //只要加上這句，就停不下來，一直跑到死機，不加這句，可以檢測到F5按鍵，也不會出現跑到死機的情況，
uj5u.com熱心網友回復：
ShowMessage 是MODEL模式 用個自定義的視窗就好了！轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/130148.html
上一篇：怎樣讓mdi子表單在mdi主表單的panel控制元件上顯示
下一篇：如何判斷兩個記憶體DC 相等