1. 首页
  2. 编程与技术

一种利用Windows未公开函数实现机器上所做的各种操作

发布于 2016-04-27 11:36:39 | 158 次阅读 | 评论: 0 | 来源: 网友投递

这里有新鲜出炉的精品教程，程序狗速度看过来！

Windows操作系统

Microsoft Windows，是微软公司制作和研发的一套桌面操作系统，它问世于1985年，起初仅仅是MS-DOS模拟环境，后续的系统版本由于微软不断的更新升级，不但易用，也慢慢的成为家家户户人们最喜爱的操作系统。

这里介绍一种利用Windows未公开函数实现这个功能的方法。

　　在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗口添加到系统的系统消息监视链中，该函数在Delphi中的定义如下：

　　Function SHChangeNotifyRegister(hWnd,uFlags,dwEventID,uMSG,cItems:LongWord;
　　lpps:PIDLSTRUCT):integer;stdcall;external 'Shell32.dll ' index 2;

　　其中参数hWnd定义了监视系统操作的窗口得句柄，参数uFlags dwEventID定义监视操作参数，参数uMsg定义操作消息，参数cItems定义附加参数，参数lpps指定一个PIDLSTRUCT结构，该结构指定监视的目录。

　　当函数调用成功之后，函数会返回一个监视操作句柄，同时系统就会将hWnd指定的窗口加入到操作监视链中，当有文件操作发生时，系统会向hWnd发送uMsg指定的消息，我们只要在程序中加入该消息的处理函数就可以实现对系统操作的监视了。

　　如果要退出程序监视，就要调用另外一个未公开得函数SHChangeNotifyDeregister来取消程序监视。

　　下面是使用Delphi编写的具体程序实现范例，首先建立一个新的工程文件，然后在Form1中加入一个Button控件和一个Memo控件，

　　程序的代码如下：

程序代码
 

复制代码
代码如下:

　　unit Unit1;
　　interface
　　uses
　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　StdCtrls,shlobj,Activex;
　　const
　　SHCNE_RENAMEITEM = ＄1;
　　SHCNE_Create = ＄2;
　　SHCNE_Delete = ＄4;
　　SHCNE_MKDIR = ＄8;
　　SHCNE_RMDIR = ＄10;
　　SHCNE_MEDIAInsertED = ＄20;
　　SHCNE_MEDIAREMOVED = ＄40;
　　SHCNE_DRIVEREMOVED = ＄80;
　　SHCNE_DRIVEADD = ＄100;
　　SHCNE_NETSHARE = ＄200;
　　SHCNE_NETUNSHARE = ＄400;
　　SHCNE_ATTRIBUTES = ＄800;
　　SHCNE_UpdateDIR = ＄1000;
　　SHCNE_UpdateITEM = ＄2000;
　　SHCNE_SERVERDISCONNECT = ＄4000;
　　SHCNE_UpdateIMAGE = ＄8000;
　　SHCNE_DRIVEADDGUI = ＄10000;
　　SHCNE_RENAMEFOLDER = ＄20000;
　　SHCNE_FREESPACE = ＄40000;
　　SHCNE_ASSOCCHANGED = ＄8000000;
　　SHCNE_DISKEVENTS = ＄2381F;
　　SHCNE_GLOBALEVENTS = ＄C0581E0;
　　SHCNE_ALLEVENTS = ＄7FFFFFFF;
　　SHCNE_INTERRUPT = ＄80000000;
　　SHCNF_IDLIST = 0;
　　// LPITEMIDLIST
　　SHCNF_PATHA = ＄1;
　　// path name
　　SHCNF_PRINTERA = ＄2;
　　// printer friendly name
　　SHCNF_DWORD = ＄3;
　　// DWORD
　　SHCNF_PATHW = ＄5;
　　// path name
　　SHCNF_PRINTERW = ＄6;
　　// printer friendly name
　　SHCNF_TYPE = ＄FF;
　　SHCNF_FLUSH = ＄1000;
　　SHCNF_FLUSHNOWAIT = ＄2000;
　　SHCNF_PATH = SHCNF_PATHW;
　　SHCNF_PRINTER = SHCNF_PRINTERW;
　　WM_SHNOTIFY = ＄401;
　　NOERROR = 0;
　　type
　　TForm1 = class(TForm)
　　Button1: TButton;
　　Memo1: TMemo;
　　procedure FormClose(Sender: TObject; var Action: TCloseAction);
　　procedure Button1Click(Sender: TObject);
　　procedure FormCreate(Sender: TObject);
　　private
　　{ Private declarations }
　　procedure WMShellReg(var Message:TMessage);message WM_SHNOTIFY;
　　public
　　{ Public declarations }
　　end;
　　type PSHNOTIFYSTRUCT=^SHNOTIFYSTRUCT;
　　SHNOTIFYSTRUCT = record
　　dwItem1 : PItemIDList;
　　dwItem2 : PItemIDList;
　　end;
　　Type PSHFileInfoByte=^SHFileInfoByte;
　　_SHFileInfoByte = record
　　hIcon :Integer;
　　iIcon :Integer;
　　dwAttributes : Integer;
　　szDisplayName : array [0..259] of char;
　　szTypeName : array [0..79] of char;
　　end;
　　SHFileInfoByte=_SHFileInfoByte;
　　Type PIDLSTRUCT = ^IDLSTRUCT;
　　_IDLSTRUCT = record
　　pidl : PItemIDList;
　　bWatchSubFolders : Integer;
　　end;
　　IDLSTRUCT =_IDLSTRUCT;
　　function SHNotify_Register(hWnd : Integer) : Bool;
　　function SHNotify_UnRegister:Bool;
　　function SHEventName(strPath1,strPath2:string;lParam:Integer):string;
　　Function SHChangeNotifyDeregister(hNotify:integer):integer;stdcall;
　　external 'Shell32.dll ' index 4;
　　Function SHChangeNotifyRegister(hWnd,uFlags,dwEventID,uMSG,cItems:LongWord;
　　lpps:PIDLSTRUCT):integer;stdcall;external 'Shell32.dll ' index 2;
　　Function SHGetFileInfoPidl(pidl : PItemIDList;
　　dwFileAttributes : Integer;
　　psfib : PSHFILEINFOBYTE;
　　cbFileInfo : Integer;
　　uFlags : Integer):Integer;stdcall;
　　external 'Shell32.dll ' name 'SHGetFileInfoA ';
　　var
　　Form1: TForm1;
　　m_hSHNotify:Integer;
　　m_pidlDesktop : PItemIDList;
　　implementation
　　{＄R ＊.DFM}
　　function SHEventName(strPath1,strPath2:string;lParam:Integer):string;
　　var
　　sEvent:String;
　　begin
　　case lParam of //根据参数设置提示消息
　　SHCNE_RENAMEITEM: sEvent := '重命名文件 '＋strPath1＋ '为 '＋strpath2;
　　SHCNE_Create: sEvent := '建立文件 文件名： '＋strPath1;
　　SHCNE_Delete: sEvent := '删除文件 文件名： '＋strPath1;
　　SHCNE_MKDIR: sEvent := '新建目录 目录名： '＋strPath1;
　　SHCNE_RMDIR: sEvent := '删除目录 目录名： '＋strPath1;
　　SHCNE_MEDIAInsertED: sEvent := strPath1＋ '中插入可移动存储介质 ';
　　SHCNE_MEDIAREMOVED: sEvent := strPath1＋ '中移去可移动存储介质 '＋strPath1＋ ' '＋strpath2;
　　SHCNE_DRIVEREMOVED: sEvent := '移去驱动器 '＋strPath1;
　　SHCNE_DRIVEADD: sEvent := '添加驱动器 '＋strPath1;
　　SHCNE_NETSHARE: sEvent := '改变目录 '＋strPath1＋ '的共享属性 ';
　　SHCNE_ATTRIBUTES: sEvent := '改变文件目录属性 文件名 '＋strPath1;
　　SHCNE_UpdateDIR: sEvent := '更新目录 '＋strPath1;
　　SHCNE_UpdateITEM: sEvent := '更新文件 文件名： '＋strPath1;
　　SHCNE_SERVERDISCONNECT: sEvent := '断开与服务器的连接 '＋strPath1＋ ' '＋strpath2;
　　SHCNE_UpdateIMAGE: sEvent := 'SHCNE_UpdateIMAGE ';
　　SHCNE_DRIVEADDGUI: sEvent := 'SHCNE_DRIVEADDGUI ';
　　SHCNE_RENAMEFOLDER: sEvent := '重命名文件夹 '＋strPath1＋ '为 '＋strpath2;
　　SHCNE_FREESPACE: sEvent := '磁盘空间大小改变 ';
　　SHCNE_ASSOCCHANGED: sEvent := '改变文件关联 ';
　　else
　　sEvent:= '未知操作 '＋IntToStr(lParam);
　　end;
　　Result:=sEvent;
　　end;
　　function SHNotify_Register(hWnd : Integer) : Bool;
　　var
　　ps:PIDLSTRUCT;
　　begin
　　{＄R－}
　　Result:=False;
　　If m_hSHNotify = 0 then begin
　　//获取桌面文件夹的Pidl
　　if SHGetSpecialFolderLocation(0, CSIDL_DESKTOP,
　　m_pidlDesktop) <> NOERROR then
　　Form1.close;
　　if Boolean(m_pidlDesktop) then begin
　　ps.bWatchSubFolders := 1;
　　ps.pidl := m_pidlDesktop;
　　// 利用SHChangeNotifyRegister函数注册系统消息处理
　　m_hSHNotify := SHChangeNotifyRegister(hWnd, (SHCNF_TYPE or SHCNF_IDLIST),
　　(SHCNE_ALLEVENTS or SHCNE_INTERRUPT),
　　WM_SHNOTIFY, 1, ps);
　　Result := Boolean(m_hSHNotify);
　　end
　　Else
　　// 如果出现错误就使用 CoTaskMemFree函数来释放句柄
　　CoTaskMemFree(m_pidlDesktop);
　　End;
　　{＄R＋}
　　end;
　　function SHNotify_UnRegister:Bool;
　　begin
　　Result:=False;
　　If Boolean(m_hSHNotify) Then
　　//取消系统消息监视，同时释放桌面的Pidl
　　If Boolean(SHChangeNotifyDeregister(m_hSHNotify)) Then begin
　　{＄R－}
　　m_hSHNotify := 0;
　　CoTaskMemFree(m_pidlDesktop);
　　Result := True;
　　{＄R－}
　　End;
　　end;
　　procedure TForm1.WMShellReg(var Message:TMessage); //系统消息处理函数
　　var
　　strPath1,strPath2:String;
charPath:array[0..259]of char;
　　pidlItem:PSHNOTIFYSTRUCT;
　　begin
　　pidlItem:=PSHNOTIFYSTRUCT(Message.wParam);
　　 //获得系统消息相关得路径
　　SHGetPathFromIDList(pidlItem.dwItem1,charPath);
　　strPath1:=charPath;
　　SHGetPathFromIDList(pidlItem.dwItem2,charPath);
　　strPath2:=charPath;
　　Memo1.Lines.Add(SHEvEntName(strPath1,strPath2,Message.lParam)＋chr(13)＋chr(10));
　　end;
　　procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
　　begin
　　//在程序退出的同时删除监视
　　if Boolean(m_pidlDesktop) then
　　SHNotify_Unregister;
　　end;
　　procedure TForm1.Button1Click(Sender: TObject); //Button1的Click消息
　　begin
　　m_hSHNotify:=0;
　　if SHNotify_Register(Form1.Handle) then begin //注册Shell监视
　　ShowMessage( 'Shell监视程序成功注册 ');
　　Button1.Enabled := False;
　　end
　　else
　　ShowMessage( 'Shell监视程序注册失败 ');
　　end;
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　Button1.Caption := '打开监视 ';


最新网友评论  共有(0)条评论 发布评论 返回顶部
推荐阅读
  • 终极炫富——2016 年 iOS 开发者收入调查报告
  • 年度大片：Stack Overflow 2017 开发者调查报告发布！
  • 开发者需要大学学位吗？
  • 程序员多大年纪算高龄，届时该何去何从？
  • 2017 年高薪编程语言排行榜，你的语言上榜没？
  • 各编程语言开发者最常使用的按键，中了没?
  • 伤不起的三十岁，干不动的程序员要何去何从？
  • 2016年中国加班最狠IT公司排行
  • 一句话"面试"漫画：黑了苹果、谷歌、三星
  • 拿代码量算 KPI ……跟程序员们来这套？
  • 程序员遇到 Bug 时的 30 个反应，你是哪一种？
  • 2016年收入最高的5个编程语言 Java和C没在前五?
  • 为什么很少见人傻钱多的程序员炫富？
  • 阿里月薪两万是什么体验？
  • 代码缩进时 程序员更喜欢空格键还是Tab键？
    • 最新资讯
  • Python获取系统所有进程PID及进程名称的方法示例
  • Python简单获取网卡名称及其IP地址的方法【基于psutil模块】
  • Python实现的根据IP地址计算子网掩码位数功能示例
  • 好的Python培训机构应该具备哪些条件
  • 详解Pytorch 使用Pytorch拟合多项式(多项式回归)
  • Python加载带有注释的Json文件实例
  • 对python的文件内注释 help注释方法
  • Python实现判断一行代码是否为注释的方法
  • Oracle数据库表中字段顺序的修改方法
  • ASP.NET MVC 4使用PagedList.Mvc分页的实现代码
  • Oracle实例启动时报错：ORA-32004的解决方法
  • 解读ASP.NET 5 & MVC6系列教程（7）：依赖注入
  • 详解IDEA用maven创建springMVC项目和配置
  • ASP.NET MVC5网站开发之展示层架构（五）
  • SpringBoot创建maven多模块项目实战代码
    • 后端技术
    前端技术
    数据库
    热门框架
    常用IDE
    其他
    Copyright © 2007-2017 PHPERZ.COM All Rights Reserved   冀ICP备14009818号  版权声明  广告服务