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,就出来一个提示信息,
解决方案 »
类似问题 »
- D7不能用内联函数吗?
- 双面打印问题?
- delphi 报表怎样设计成横向打印?
- WideChar转换问题
- 高手请进:数据库中一个字段定义成NUMBER(20)了,插入记录时,如果传参数ASINTEGER要溢出,有没有办法解决?
- listview 选择问题?
- 关于键盘钩子的一个简单问题!
- 如何改变控件的先后位置?
- FASTREPORT中大写金额函数的问题?
- 有没有一种容器实现以下功能...
- 我在北京,有丰富开发经验,想找一份兼职程序员的工作,请帮帮忙,up有分。
- 请问sybase和mssql的更新数据库有什么不同么?
- 有做过条码打印的兄友进来看看,两天了毫无头绪!
- 在delphi 使用webbrowser如何取得网页的文字内容?
- 请问如何将自动运行的程序从Alt+Tab中隐藏?送分24.
- 关于cxGrid 合并单元格求和问题
- 线程中调用DLL,长时间运行出先问题。
,