300分！隐藏ｘｐ系统任务管理器中任意进程？

[jzcdelphi]

求：隐藏ｘｐ系统任务管理器中任意进程代码？
另外200分在其它两个帖子中

[jzcdelphi]

[Quote=引用 69 楼 hys_427 的回复:]
引用 68 楼 jzcdelphi 的回复:
3150379你就是一个小人！

3150379其实挺不错的
他可能没有看到你上面的聊天记录，所以那样说

另我也不太赞成mwy654321，既然不愿让别人看自己的代码，就不要在这里充大葱，说了那么多高姿态的话，最后放上来一个exe，确实不是正常人所为
[/Quote]

总算有人说句公道话！！！！！！！！！

[无条件为你]

申明一点，3150379 跟我不是同一人，翻阅一下以前的贴子就可以看出来。
以前我的头像跟他的一样，所以我现在把头像换了，以示区分。

3150379比较大方，发过许多散分的贴子，而且一散都是200分，以楼主对我的评价“我是一个十分在意分的人”，所以我怎么可能多次发散分贴呢？

3150379技术不错，是我群内的一个成员，而且我也不像你所说的非常在意个人得分。群内常活跃的朋友都了解我的为人。我是一个不喜欢帮助刚刚进群的朋友，原因在于（我常说的话）：刚刚进群一般你的问题是不被关注。因为很多人是得到答案马上退群，这样的人最可恶。只有多关注些别人的问题，你的问题才会被别人关注。

当然，群内比较活跃的成员，经常一起交流，非常开心，如果讲报酬或者讲各分，倒是玷污了技术。我的群内有几位水平相当让我佩服，也一直是一个比较活跃的群，大家以心相交，与你对我的评价相差很远。


另外，hys_427（小和） 是我在CSDN上比较欣赏的一个人，只不过这次说话有些欠考虑。因为这段代码对我来说写的很辛苦（为了让楼主这样的新手方便学习，关键的注释我都加的很详尽），开不开源当然是我自愿的事情，我觉得你更应该去指责更多不开源的美国人。而且我也说了，在我的群里面一起交流，源码自然会无偿奉上。

dandycheung 的C++技术我比较佩服。我以前也做过一些C++。

之前我帮助过一些人，某些人是得到答案后马上就消失的人，何谈结贴？虽然分没有什么实际价值，但我希望我的答案可以得到认可。君子爱财取之有道，无可厚非。

还有，楼主不要认为别人是在说公道话。因为对于我没有公开源码一事，相当一部分人都是不满的，所以他才会这么说。dandycheung在34楼向我索要代码，如果楼主当时结贴的话，我真是会联系dandycheung把代码给他（我对此人很欣赏）。其实做人心态要平和一些，如果当初我不说我会隐藏进程，你这个贴子一直挂到这里是不是也有些尴尬。也许这个贴子最终会有人回答，但至少在我贴EXE让你测试的时候你还没有得到答案。


3150379是个好同志，而且在论坛上一直很热心，他有很多“粉丝”哦，楼主针对他，是自找麻烦。
如果你把问题矛头转向我倒是比较好的一种做法，只不过顶多就是说我在乎分嘛，这点我在35楼都承认了，你还有什么好说的？

以楼主昨天跟我聊天的态度看来，估计你是想让我把源码发给你后，你马上来个无满意答案结贴，以此来气我而已。

[无条件为你]

申明一点，3150379 跟我不是同一人，翻阅一下以前的贴子就可以看出来。
以前我的头像跟他的一样，所以我现在把头像换了，以示区分。

3150379比较大方，发过许多散分的贴子，而且一散都是200分，以楼主对我的评价“我是一个十分在意分的人”，所以我怎么可能多次发散分贴呢？

3150379技术不错，是我群内的一个成员，而且我也不像你所说的非常在意个人得分。群内常活跃的朋友都了解我的为人。我是一个不喜欢帮助刚刚进群的朋友，原因在于（我常说的话）：刚刚进群一般你的问题是不被关注。因为很多人是得到答案马上退群，这样的人最可恶。只有多关注些别人的问题，你的问题才会被别人关注。

当然，群内比较活跃的成员，经常一起交流，非常开心，如果讲报酬或者讲各分，倒是玷污了技术。我的群内有几位水平相当让我佩服，也一直是一个比较活跃的群，大家以心相交，与你对我的评价相差很远。


另外，hys_427（小和） 是我在CSDN上比较欣赏的一个人，只不过这次说话有些欠考虑。因为这段代码对我来说写的很辛苦（为了让楼主这样的新手方便学习，关键的注释我都加的很详尽），开不开源当然是我自愿的事情，我觉得你更应该去指责更多不开源的美国人。而且我也说了，在我的群里面一起交流，源码自然会无偿奉上。

dandycheung 的C++技术我比较佩服。我以前也做过一些C++。

之前我帮助过一些人，某些人是得到答案后马上就消失的人，何谈结贴？虽然分没有什么实际价值，但我希望我的答案可以得到认可。君子爱财取之有道，无可厚非。

还有，楼主不要认为别人是在说公道话。因为对于我没有公开源码一事，相当一部分人都是不满的，所以他才会这么说。dandycheung在34楼向我索要代码，如果楼主当时结贴的话，我真是会联系dandycheung把代码给他（我对此人很欣赏）。其实做人心态要平和一些，如果当初我不说我会隐藏进程，你这个贴子一直挂到这里是不是也有些尴尬。也许这个贴子最终会有人回答，但至少在我贴EXE让你测试的时候你还没有得到答案。


3150379是个好同志，而且在论坛上一直很热心，他有很多“粉丝”哦，楼主针对他，是自找麻烦。
如果你把问题矛头转向我倒是比较好的一种做法，只不过顶多就是说我在乎分嘛，这点我在35楼都承认了，你还有什么好说的？

以楼主昨天跟我聊天的态度看来，估计你是想让我把源码发给你后，你马上来个无满意答案结贴，以此来气我而已。

[无条件为你]

强调一下，提问的时候把问题搞清楚，不要等别人给你解决后你又提出新问题，在新问题不被解决时而不结贴的这种做法。结果别人白帮你一场。

如果因为你给分太少，别人只给你一个思路而没有直接给你写出你要的代码，这时你不应该指责。

如果你鄙视那种在乎分的人，建议你不要接受他的帮助即可。


以上是我的观点，不是针对jzcdelphi一个人，是所有人都应该注意的。

[jzcdelphi]

3150379,对我的指责，是有感情偏向的．这点大家心里清楚．

[jzcdelphi]

3150379是个好同志，而且在论坛上一直很热心，他有很多“粉丝”哦，楼主针对他，是自找麻烦。
他有什么，我不在乎．说明一下，是他因你而针对我，而且非常地明显．他是你ｑｑ的好友．
你在私下里说了哪么多

你说，你的代码很强悍，别人写不出来，实际上，你也就骗我吧，高手看了，对你的代码评价，是＂烂＂
你说，要我不能公开你的代码，这点我真难做到啊，如果有人和我要的话
你说，要我先给你分，再给我代码．而以往的教训是，分给你了，人没影了
你说，要把代码的注释去掉，让我看不懂，你这人是什么心态呀？我真．．．．．．

[喝口水]

[Quote=引用 70 楼 jzcdelphi 的回复:]
引用 69 楼 hys_427 的回复:
引用 68 楼 jzcdelphi 的回复:
3150379你就是一个小人！

3150379其实挺不错的
他可能没有看到你上面的聊天记录，所以那样说

另我也不太赞成mwy654321，既然不愿让别人看自己的代码，就不要在这里充大葱，说了那么多高姿态的话，最后放上来一个exe，确实不是正常人所为


总算有人说句公道话！！！！！！！！！
[/Quote]

我不是说什么公道话，另，不管对谁，说话都要注意分寸，你骂人的行为是十分不应该的

[jzcdelphi]

[Quote=引用 76 楼 hys_427 的回复:]
引用 70 楼 jzcdelphi 的回复:
引用 69 楼 hys_427 的回复:
引用 68 楼 jzcdelphi 的回复:
3150379你就是一个小人！

3150379其实挺不错的
他可能没有看到你上面的聊天记录，所以那样说

另我也不太赞成mwy654321，既然不愿让别人看自己的代码，就不要在这里充大葱，说了那么多高姿态的话，最后放上来一个exe，确实不是正常人所为


总算有人说句公道话！！！！！！！！！


我不是说什么公道话，另，不管…
[/Quote]


我也是让他们两个气急了！

[dandycheung]

呵呵，mwy654321 兄弟，消消气。套用教父的一句老话：事情怎么会发展到这个地步？

楼主的要求确实苛刻了些，这一点我也感觉到了。关键的问题在于，我没有感觉到楼主来自于自身的强烈努力。要知道，来这里，主要是学习，而不是指望雇佣别人打苦工。需要特别说明的是，这里用到的技术需要，一个是让代码运行于别的进程（大多数 Hook 的本质），一个是子类化，与我在另外的一个帖子里的 Hook 代码完全一样。隐藏进程的代码我已经写完了，但是如上面的帖子中提到的，有副作用。但是楼主还是希望我把修改进程数的功能写完，可我没有时间。不过我知道楼主使用 Delphi 的时间不长，所以我也没有办法。顺便说一句，我没有和 mwy654321 要过代码，34 楼的内容不是我发表的；除非要给别人调试他的程序，否则我很少要他人的代码。

我也下载了 mwy654321 的 exe 看了实际效果。老实说，我也不是很满意。事实上，这个程序冻结了任务管理器的自动刷新。假设用户只查看“进程”这个标签页还不太容易发觉的话，那么切换到“性能”页上，由于 CPU 占用一直不刷新，很快就会发现有问题。尽管，在程序员这个行业里，严谨是推崇的，不过平心而论，对于要实现像“隐藏”这样的功能，肯定会要求被他人发现的几率越小越好，在这一点上，我没有觉得楼主很过分。

我想，事情不妨就此了结。我会把我的不太完善的代码提出来，但不再进行后续的完善；楼主，或者其他的朋友可以在此基础上进行。不必给我结分。mwy654321由于此问题而做了大量工作，虽然楼主没有拿到代码，但我还是建议至少把这个帖子的分结给 mwy654321。大家握手言和。

但是我最怕发生的事情是，我的回复一旦发出，楼主和 mwy654321 会同时表达对我的不满。

我的代码见下：

library TmHook;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes,
  Windows,
  Messages,
  CommCtrl;

var
  hhook: Windows.HHOOK;
  hwndListView: HWND;
  oldWndProc: Integer;

{$R *.res}

function WindowProc(hwnd: HWND; msg: UINT; wp: WPARAM; lp: LPARAM): LRESULT; stdcall;
var
  lvii: PLVItemW;
begin
{$if true}
  if msg = LVM_INSERTITEMW then
  begin
    lvii := PLVItemW(lp);
    if ((lvii^.mask and LVIF_TEXT) <> 0) and (CompareText(lvii^.pszText, 'tm.exe') = 0) then
    begin
      Result := 0;
      Exit;
    end
  end;
{$ifend}
{$if true}
  if msg = LVM_SETITEMW then
  begin
    lvii := PLVItemW(lp);
    if ((lvii^.mask and LVIF_TEXT) <> 0) and (CompareText(lvii^.pszText, 'tm.exe') = 0) then
    begin
      // lvii^.pszText := 'Dandy Cheung';  // Just modify the process name
      SendMessage(hwnd, LVM_DELETEITEM, lvii^.iItem, 0);  // OR, delete this process item
      Result := 0;
      Exit;
    end
  end;
{$ifend}

  if msg = WM_DESTROY then
  begin
    SetWindowLong(hwnd, GWL_WNDPROC, Integer(oldWndProc));
    hwndListView := 0;
  end;

  Result := CallWindowProc(TFNWndProc(oldWndProc), hwnd, msg, wp, lp);
end;

function TmHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): Integer; stdcall;
var
  cwp: PCwpStruct;
  cs: PCreateStruct;
begin
  Result := 0;

  if (nCode < 0) then //  or (nCode = HC_NOREMOVE)
  begin
    Result := CallNextHookEx(hhook, nCode, wParam, lParam);
    exit;
  end;

  cwp := PCwpStruct(lParam);
  if cwp^.message <> WM_CREATE then
  begin
    Result := CallNextHookEx(hhook, nCode, wParam, lParam);
    exit;
  end;

  cs := PCreateStruct(cwp^.lParam);
  if (CompareText(cs^.lpszName, '进程') = 0) and (CompareText(cs^.lpszClass, 'SysListView32') = 0) then
  begin
    hwndListView := cwp^.hwnd;
    oldWndProc := SetWindowLong(hwndListView, GWL_WNDPROC, Integer(@WindowProc));
  end
  else
  begin
    Result := CallNextHookEx(hhook, nCode, wParam, lParam);
    exit;
  end;
end;

procedure Hook(bEnable: Boolean); stdcall; export;
begin
  if bEnable then
  begin
    if hhook = 0 then
    begin
      hhook := SetWindowsHookEx(WH_CALLWNDPROC, TmHookProc, HInstance, 0);
    end;
  end
  else
  begin
    if hhook <> 0 then
    begin
      UnhookWindowsHookEx(hhook);
      hhook := 0;
    end;
  end;
end;

procedure DllEntry(reason: Integer);
begin
  if reason = DLL_PROCESS_DETACH then
  begin
    if (oldWndProc <> 0) and (hwndListView <> 0) then
    begin
      SetWindowLong(hwndListView, GWL_WNDPROC, oldWndProc);
    end;
  end;
end;

exports
  Hook;

begin
  hhook := 0;
  hwndListView := 0;
  oldWndProc := 0;

  DllProc := DllEntry;
end.

[jzcdelphi]

mwy654321跟我在私下说了哪么多话，我一直忍着，心想，就当老师骂学生
mwy654321这人说话很讽刺人．
结果哪个3150379又来帮他．我实在忍无可忍，哪就无须再忍．

我之前没有遇到像mwy654321这样的人，我也看了看论坛中，他在每个帖子中，都会留下相同的一句话＂你的问题很简单，我能解决，可惜分给的太少，你的ｑｑ是多少，我写完代码单独发给你＂

中国的程序员如果都像他这样不开源，永不开源．不知未来将会怎样！

我虽然是新手，但我爱学习！只要你给我一个方向！

[dandycheung]

顺便说一句，上面这个帖子我写的很辛苦。第一次写完发表的时候，服务器告诉我“本版块没有此帖”，一看才发现版块移动了，所以只好重写。一来一去花了我半个小时的时间。我之所以把这些写出来，就是想让大家回到技术探讨的路上来，不要再在其他方面进行下去，至于其他的，实在对我是没有任何好处。

[无条件为你]

这些天很忙，基本上没有什么时间去聊天，发贴前我跟3150379私下没有交流。你这是你的乱想。之前你还说是同一人，不都是你个人的胡址吗？3150379是不是个热心的人，看他以前回答别人的贴子就可以知道了。

另外，你也是一个不喜欢公布自己代码的人，这点早就看出来了，所以你不要说别人问人要你就会给，说的那么清高。

我再说是一个星星的人了，人会没影吗？倒是你的等级，还有你的为人，极可能是那种得到答案不结贴的人。

代码注释没有是没有的，为了你，我故意加上的。现在你的态度，我只能把以前没加注释的代码给你了，要不然你不明白我写代码的辛苦。

23楼我已经说了，我不是高手，所以我没有说过我写的东西别人写不出来，其实中国任何一个程序员都不难说他写的东西别人就一定写不出来。你说我的代码很“烂”（其实我的代码封装性很好），但你在48楼为什么要夸我呢？

[jzcdelphi]

[Quote=引用 81 楼 mwy654321 的回复:]
这些天很忙，基本上没有什么时间去聊天，发贴前我跟3150379私下没有交流。你这是你的乱想。之前你还说是同一人，不都是你个人的胡址吗？3150379是不是个热心的人，看他以前回答别人的贴子就可以知道了。

另外，你也是一个不喜欢公布自己代码的人，这点早就看出来了，所以你不要说别人问人要你就会给，说的那么清高。

我再说是一个星星的人了，人会没影吗？倒是你的等级，还有你的为人，极可能是那种得到答案不结贴的人。…
[/Quote]



我真为你悲哀！

[dandycheung]

mwy654321 和 jzcdelphi，抽空看看我 78 的回复可好？

[jzcdelphi]

[Quote=引用 78 楼 dandycheung 的回复:]
呵呵，mwy654321 兄弟，消消气。套用教父的一句老话：事情怎么会发展到这个地步？

楼主的要求确实苛刻了些，这一点我也感觉到了。关键的问题在于，我没有感觉到楼主来自于自身的强烈努力。要知道，来这里，主要是学习，而不是指望雇佣别人打苦工。需要特别说明的是，这里用到的技术需要，一个是让代码运行于别的进程（大多数 Hook 的本质），一个是子类化，与我在另外的一个帖子里的 Hook 代码完全一样。隐藏进程的代码我已经…
[/Quote]

我只能说，dandycheung，让您见笑了，本来好好的一个帖，让我搞成这样，这不是我本意！！！
您所说的三段话，我虚心接受．
确实，学了ｄｅｌｐｈｉ的时间不长，中途又去打网络游戏，这才回来拾起ｄｅｌｐｈｉ，有点像初学时的样子，没有方向．现在有了．


谢谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

[无条件为你]

[Quote=引用 83 楼 dandycheung 的回复:]
mwy654321 和 jzcdelphi，抽空看看我 78 的回复可好？
[/Quote]

只不过论坛无法发布整个工程包，你的代码还要花时间整理才能用，我暂时没有测试。不过你不是已经说了吗“我会把我的不太完善的代码提出来，但不再进行后续的完善”。所以你既然不会去完善，而我暂时工作上不需要这样的代码，所以也没有必要去研究它的优劣，等我需要的时候，即使你的代码有不完美的地方，相信我也会追力去修正。

dandycheung，无论你是否贴你的代码，你都是我比较佩服的一个人，在其它贴子上看到过许多关于你的回复，你C++做做的不错，还能搞Delphi搞到现在的程度，确实有些牛。

[dandycheung]

mwy654321，我并不是对你显摆我的代码，我那个帖子的重点也不是代码。我真正想做的事情就是告诉大家，在网络上，人比在生活中更容易激动，小小的矛盾往往会以很大的加速度发展。各自平复一下心情，楼主给你你应得的分，你也不用再为他的事情特意投入，也不用给他代码。这样大家都好。

不过你既然说到代码，我也顺便提一下，为了方便他人。这个代码其实不用太整理，把它存成一个名为 tmhook.dpr 的文件，用 Delphi 去编译就好。

[jzcdelphi]

[Quote=引用 86 楼 dandycheung 的回复:]
mwy654321，我并不是对你显摆我的代码，我那个帖子的重点也不是代码。我真正想做的事情就是告诉大家，在网络上，人比在生活中更容易激动，小小的矛盾往往会以很大的加速度发展。各自平复一下心情，楼主给你你应得的分，你也不用再为他的事情特意投入，也不用给他代码。这样大家都好。

不过你既然说到代码，我也顺便提一下，为了方便他人。这个代码其实不用太整理，把它存成一个名为 tmhook.dpr 的文件，用 Delphi 去编译就好…
[/Quote]


如果mwy654321贴出代码，我会给他分
但我已在用您的代码
让他贴出代码的意思很简单，让他向您学习，就看他表现了？
这个帖移到非技术区了，我不太懂，是不是说，这个100分，没有以前哪么重要了？
如果是的话，等他贴出代码后，我会重新开帖给他分．

mwy654321，我的好意，不知，你能领会多少呢？昨天，我曾经和你说过一句话＂做人有时要退一步．．．．＂我昨天退了，而你昨天却．．．．．

[无条件为你]

非技术区的分，价值意义不大。而且我之前单独给你说过：超过11点三百分都不行。没有时间光折腾你这件事情。
我的代码跟dandycheung 的原理不一样。除了隐藏进程，还有模拟菜单输入，以及对外部ListView操作、对外部状态栏操作，对外部EXE的选项卡标签定位操作等（而每个一功能都可以推销一百分出去），代码都是单独的过程，而且代码不多，注释详尽。dandycheung是用了钩子。学习意义不同。如果我要是纯为了想得你300分，昨天我退一步先给你，这分我早就得到了。本来300分我就处于不满足状态。当然和我熟悉的人我会无偿奉献，我对帮助过我的人相当感恩，对只索取不奉献的人（当然水平低了只能付出分来悬赏答案了不在此例）相当讨厌。

[jzcdelphi]

[Quote=引用 88 楼 mwy654321 的回复:]
非技术区的分，价值意义不大。而且我之前单独给你说过：超过11点三百分都不行。没有时间光折腾你这件事情。
我的代码跟dandycheung 的原理不一样。除了隐藏进程，还有模拟菜单输入，以及对外部ListView操作、对外部状态栏操作，对外部EXE的选项卡标签定位操作等（而每个一功能都可以推销一百分出去），代码都是单独的过程，而且代码不多，注释详尽。dandycheung是用了钩子。学习意义不同。如果我要是纯为了想得你300分，昨天我…
[/Quote]

"（而每个一功能都可以推销一百分出去）"祝你卖个好分！！