自控力极差的人搞得一个小实验

jim19

我自制力极差, 经常一走神看个视频半天就过去了, 浪费了很多时间,  写了个监视一下写代码的时候, 看看我一天中在电脑上行的时间都是怎么分配的, 冒号前面是打开的程序, 后面是秒, 做个小统计, 写的简单, 仅供大家娱乐.

软件以及代码下载: timer.rar (169.29 KB, 下载次数: 37)

2023-7-16 23:35 上传

点击文件名下载附件

[Delphi] 纯文本查看 复制代码

function htGetWindowProcessId(Handle: THandle): THandle; //获取指定窗口所在的进程ID.
var
  PID: dword;
begin
  if Handle <> 0 then
  begin
    GetWindowThreadProcessID(Handle, @PID);
    Result := PID;
  end
  else Result := 0;
end;

function htGetWindowProcessPath(Handle: THandle): string; //获取指定窗口所在的进程的exe文件全路径.
var
  Hand: THandle;
  ModName: array[0..Max_Path - 1] of Char;
  hMod: HModule;
  n, ProcessID: DWORD;
begin
  Result := '';
  ProcessID := htGetWindowProcessId(Handle);
  Hand := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessID);
  if Hand > 0 then
  try
    ENumProcessModules(Hand, @hMod, Sizeof(hMod), n);
    if GetModuleFileNameEx(Hand, hMod, ModName, Sizeof(ModName)) > 0 then
      Result := ModName; //得到路径和文见名
  except

  end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
  s: string;
  i: integer;
  it: IStrIntMapIterator;
begin
  mmo1.Clear;
  s := htGetWindowProcessPath(GetForegroundWindow());
  caption := s;
  st.Add(s);
//  s := s + ',' + datetimetostr(now);
  if timemap.Count(s) = 0 then
    timemap.Items[s] := 0
  else
    timemap.Items[s] := timemap.Items[s] + 1;

  for i := 0 to st.Count - 1 do
  begin
    it := timemap.Find(st.Strings[i]);
    mmo1.Lines.Add(it.Key + ':' + inttostr(it.GetValue));
  end;
end;

tanghengvip

测了一天，发现工作软件在前台时间最长，直接卸载了

Wapj_Wolf

佩服楼主的自虐精神,偶不会向你学习的.

jim19

tanghengvip 发表于 2023-7-17 10:34
测了一天，发现工作软件在前台时间最长，直接卸载了

万万没想

dhb520

佩服佩服

henry59

tanghengvip 发表于 2023-7-17 10:34
测了一天，发现工作软件在前台时间最长，直接卸载了

你为什么这么优秀。

uilte

用Delphi写，这个可以有

tangchuanhe

给优秀的大佬跪了

NMCchan

自控力差→工作狂）

shy20070509

优秀的人永远是优秀的！