delphi 10如何编程隐藏另一个进程

2015-10-24 10:21:49 1.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

进程隐藏的Delphi代码(操作 PhysicalMemory 进程隐藏的Delphi代码 unit UnitHideProcess;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms, Dialogs, Registry, ComCtrls, StrUtils, StdCtrls,ToolWin, Menus, ImgList, ActnL 阅读详情

win7 x64+delphi 10环境下，如何编程实现将另一个进程从任务管理器中隐藏，不要求像冰刃之类的安全软件不显示，只要求最简单的从任务管理器中隐藏即可，本程序不干坏事，只需要隐藏我指定的另一个进程就可以。打个比方，我自己写一个程序a.exe，有另一个进程如:b.exe，不是我的程序，是别人写的程序，A可以常驻内存，当检测到进程中出现指定的b.exe进程名称后即将b.exe从任务管理器的进程列表中隐藏掉不显示，请高手指教。

...全文

浪子家园

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

lyhoo163 2015-10-27

打赏
举报

引用 7 楼 lyhoo163 的回复:

procedure TForm1.Button2Click(Sender: TObject);
var
  h: THandle;
begin
  h := FindWindow('TApplication', 'My程序'); //  参数1：对象名，参数2：Application名
  if h <> 0 then
    ShowWindow(h, SW_HIDE);
end;
注意：另一程序的 Application名的设置
procedure TMyFrm.FormCreate(Sender: TObject);
begin
  Application.Title := 'My程序';
end;
如果需要隐藏的程序，不是你开发的。通过“任务管理器”查一下完整的名称。否则，找不到，就不能达到隐藏。

隐藏第三方ＥＸＥ，打开该EXE，查看“任务管理器”中显示的字符。比如“显示程序”

procedure TForm1.Button2Click(Sender: TObject);
var
  h: THandle;
begin
  h := FindWindow('TApplication', '显示程序'); //  参数1：对象名，参数2：Application名
  if h <> 0 then
    ShowWindow(h, SW_HIDE);
end;

即可。

Mit1208 2015-10-26

打赏
举报

百度搜索Delphi隐藏进程很多的源代码

浪子家园 2015-10-25

打赏
举报

感谢楼上这位朋友的热心，但是你说的不是我需要的，我不是问DELPHI界面如何操作什么东西，我是需要将另一个不是自己开发的进程从win7系统的任务管理器taskmgr.exe中隐藏

lyhoo163 2015-10-25

打赏
举报

procedure TForm1.Button2Click(Sender: TObject);
var
  h: THandle;
begin
  h := FindWindow('TApplication', 'My程序'); //  参数1：对象名，参数2：Application名
  if h <> 0 then
    ShowWindow(h, SW_HIDE);
end;

注意：另一程序的 Application名的设置

procedure TMyFrm.FormCreate(Sender: TObject);
begin
  Application.Title := 'My程序';
end;

如果需要隐藏的程序，不是你开发的。通过“任务管理器”查一下完整的名称。否则，找不到，就不能达到隐藏。

lyhoo163 2015-10-25

打赏
举报

不好意思发错方了。请管理员删除上述4贴。

qq_30786067 2015-10-25

打赏
举报

帖子发错了。

lyhoo163 2015-10-25

打赏
举报

不好意思，上面表述不清，重新表述：

1、打开XE7；
2、新建一工程（或打开一个工程）
3、在IED的右上侧的“项目管理器”对话框中，通过是默认编译Win32代码，见风下图

4、鼠标右键选择“Target Platforms(Win32)”，点击“Add Platform”

5、打开了“select Platfoem”对话框

6、选择“64-bit Windows”,鼠标点击“OK”键，“项目管理器”出现“Target Platforms(Win32)”，完成增加64位编译设置

7、鼠标点击“Target Platforms(Win32)”，打开后出现32位和64位二栏“Target Platforms”

注意：鼠标分别点击选择 32-bit windows 或 64-bit windows
Target Platforms分别显示
Target Platforms（win32）
Target Platforms（win64）
表示IDE默认编译的方式。括号内就是将要编译的是32位，还是64位。执行Run就完成编译了。

lyhoo163 2015-10-25