当前位置:错新网文章中心技术学院网络技术 → 新Delphi隐藏当前进程

新Delphi隐藏当前进程

减小字体 增大字体 作者:admin  来源:本站整理  发布时间:2014-4-26 20:01:50
主要需要解决两个问题,即隐藏窗口和设定热键。
一. 隐藏窗口
  通过API函数GETACTIVEWINDOW获取当前窗口;函数ShowWindow(HWND,nCmdShow)的参数nCmdShow取SW_HIDE时将之隐藏,取SW_SHOW时将之显示。例如:showwindow(getactivewindow,sw_hide)。隐藏好窗体后,须记住窗体句柄以便恢复。
二. 键盘监控
  为了实现键盘监控须用到钩子。

以下是程序的源文件:
---HKHide.pas---
unit HKHide;

interface

uses
 Windows, Messages, sysutils;

var
 hNextHookHide: HHook;
 HideSaveExit: Pointer;
 hbefore:longint;

function KeyboardHookHandler(iCode: Integer;wParam: WPARAM;
     lParam: LPARAM): LRESULT; stdcall; export;
function EnableHideHook: BOOL; export;
function DisableHideHook: BOOL; export;
procedure HideHookExit; far;

implementation

function KeyboardHookHandler(iCode: Integer;wParam: WPARAM;
     lParam: LPARAM): LRESULT; stdcall; export;
const _KeyPressMask = $80000000;
var
 f:textfile;
 temp:string;
begin
 Result := 0;
 If iCode < 0 Then
 begin
  Result := CallNextHookEx(hNextHookHide, iCode, wParam, lParam);
  Exit;
 end;
// 侦测 Ctrl + Alt + F12 组合键
 if ((lParam and _KeyPressMask) = 0) //按下时生效
  and (GetKeyState(vk_Control) < 0)
  and (getkeystate(vk_menu)<0) and (wParam = vk_F12) then
 begin
  Result := 1;
  //文件不存在则创建
  if not fileexists(c:\test.txt) then
  begin
   assignfile(f,c:\test.txt);
   rewrite(f);
   writeln(f,0);
   closefile(f);
  end
  else begin
   assignfile(f,c:\test.txt);
   reset(f);
   readln(f,temp);
   hbefore:=strtoint(temp);
   begin
    hbefore:=getactivewindow;
    temp:=inttostr(hbefore);
    rewrite(f);
    writeln(f,temp);
    closefile(f);
    ShowWindow(hbefore, SW_HIDE);
   end
   else begin
    showwindow(hbefore,sw_show);
    rewrite(f);
    writeln(f,0);
    closefile(f);
   end;
  end;
 end;
end;

function EnableHideHook: BOOL; export;
begin
 Result := False;
 if hNextHookHide <> 0 then Exit;
 // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下
 // 来, 免得 HOOK 呼叫链结断掉
 hNextHookHide := SetWindowsHookEx(WH_KEYBOARD,
 KeyboardHookHandler,HInstance,0);
 Result := hNextHookHide <> 0;
end;

fun

[1] [2]  下一页


本文引用网址:

在下列搜索引擎中搜索“新Delphi隐藏当前进程”的相关信息:

谷歌搜索 百度搜索 360搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1如何做爱真人示范图片 男女ML常...
  • 2如何做爱更舒服?教你做爱72式...
  • 32014年高考零分作文:站不站起...
  • 4怎么做爱舒服?真人示范做爱姿...
  • 5情侣酒店开房qvod 情侣做爱视频...
  • 1首页flash幻灯片不显示解决方法...
  • 26月9日黑客武林免费送qq号和密...
  • 3网络红人如何赚钱?我要成为网...
  • 4女性18岁身份证号大全 成年女人...
  • 5如何设置三级域名?二级域名三...
  • 1合肥艳照门事件 合肥艳照门全套...
  • 2中国女大学生的淫靡生活
  • 3嫩白少妇与猛男户外疯狂车震遭...
  • 4江苏镇江郦荟艳照门 郦荟自拍高...
  • 5武汉十七中教室门种子 教室门q...
  • 1网上求职应聘12式绝招
  • 2Google服务器不搬来中国的根本...
  • 3全面分析IDC双线路实现技术方案...
  • 4网卡工作原理以及影响其工作的...
  • 5用Spring Web Flow和Terracott...
  • 赞助商广告

    图片文章导读

    相关文章阅览