更新—
我的意思是收集有关我正在撰写的应用程序的统计信息
我需要知道最常用的选项,时间,时间等.
我有两种方法可以做到这一点.
使用动作:
使用 *** 作时,通过将代码放在TActionList.OnExecute处理程序中,可以非常轻松地跟踪UI使用情况.此事件在单个 *** 作执行之前触发,允许您跟踪发生的事件和时间.
例如:
procedure TForm1.ActionList1Execute(Action: TBasicAction; var Handled: Boolean);begin WritetoLog(TAction(TBasicAction).Caption);end;
没有行动:
如果你不使用动作它会变得有点困难但并非不可能.您创建必须创建一个带有TMenuItem后代的新单元,其中包含您的日志代码.确保将新单元放在每个使用它的单元的使用条款中的MENU单元之后.新的后代必须被称为TMenuItem才能实现.由于您基本上重新引入了相同的类但具有扩展功能.
这是一个快速单元,我把它放在一起,显示了一个非常简单的例子.
unit MenuItemLogger;interfaceuses Menus;Type TMenuItem = class(Menus.TMenuItem) public procedure Click; overrIDe; end;implementationuses windows;{ TMenuItem }procedure TMenuItem.Click;begin outputdeBUGstring(PWIDeChar(self.Caption)); inherited;end;end.
要使用上述单元,请将其作为任何窗体/ DataModule的uses子句中的最后一个单元,并将其与要跟踪的菜单(TMainMenu或TPopupMenu)放在一起.如果您不想跟踪特定单元,请不要包含它.
uses windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ActnList,Menus,MenuItemLogger;
这两种方法很简单,虽然它们起作用,但它们可能不是最好的解决方案.
总结以上是内存溢出为你收集整理的delphi – 是否有收集Win32应用程序使用情况统计信息的工具?全部内容,希望文章能够帮你解决delphi – 是否有收集Win32应用程序使用情况统计信息的工具?所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)