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,就出来一个提示信息,
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,就出来一个提示信息,
解决方案 »
- 如何将软件里所有出现“产品1”的地方全部替换成“产品2”???
- 【求助】ActiveX读取Access数据库时,如果取得服务器端的相对路径???
- 请问delphi在编译的情况下出现Runtime的问题?
- Quick Report 问题
- 用ado连接数据库,程序一共分5页,每页连一个表,需要在每页都放一个adodataset控件吗?
- 如何做一个comboboxtreeview的组件?怎么做?最好有代码!!!
- 急寻 中英文对照的 计算机方面的 论文,我可以给1000分
- 如何显示一个打叉的对话框,显示错误?
- 急切求助:怎样判断所击键为回车键?(高分回赠,热线等候)
- 谁能写出这个控件,给5000分!!!
- 关于cxGrid 合并单元格求和问题
- 线程中调用DLL,长时间运行出先问题。
,