求监视程序源码,至少500分

woodennail 2001-06-10 02:32:00
想做一后台监视程序,监视指定目录和注册表指定键值的变化,将变化写入一文件。由于初学VC,对FindFirstChangeNotification() RegNotifyChangeKeyValue()等的调用不太理解,所做程序错误太多,想请各位高手在百忙之中写段源码(在程序中指定好目录或键值也可)。如能解决至少送500分。谢谢
...全文
92 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
woodennail 2001-06-10
  • 打赏
  • 举报
回复
to NEOS:
我现在是学VC的,如果只是简单的实现这些功能用VC也不会多的,
但是我需要的是能用vc调试通过 
Flysnow 2001-06-10
  • 打赏
  • 举报
回复
关注:vc解决的方法
NEOS 2001-06-10
  • 打赏
  • 举报
回复
这你也看不懂????
我拷!!
一百行都不到,算了。。。。
myb123 2001-06-10
  • 打赏
  • 举报
回复
听课
woodennail 2001-06-10
  • 打赏
  • 举报
回复
sorry,我对delphi不熟,最好用VC
NEOS 2001-06-10
  • 打赏
  • 举报
回复
给你一段Delphi的,

unit reg1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,registry,
StdCtrls;
const
machine_rootkey=HKEY_LOCAL_MACHINE;
user_rootkey=HKEY_CURRENT_USER;
defaultuser_rootkey=HKEY_USERS;
subkey1='SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN';
subkey2='SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Run-';
function regmonitor(hkeys:hkey;keys:string):boolean;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function regmonitor(hkeys:hkey;keys:string):boolean;
var
reg1:tregistry;
begin
reg1:=tregistry.Create;
reg1.RootKey:=hkeys;
try
reg1.OpenKey(keys,false);
//问题是在这下面的几句,当执行时,如果注册表里指定的键没被改变过,程序
//好像失去响应一样,你试试就知道了,也许要用多线程才行,不过我后来没去试了
application.ProcessMessages;
if RegNotifyChangeKeyValue(reg1.CurrentKey,false,REG_NOTIFY_CHANGE_NAME+REG_NOTIFY_CHANGE_LAST_SET,0,false)=ERROR_SUCCESS then
result:=true
else
result:=false;
finally
reg1.CloseKey;
reg1.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Clear;
if regmonitor(machine_rootkey,subkey1) then
memo1.Lines.Add('registry is monitored')
else
memo1.Lines.Add('registry monitors fail');

end;

end.

1,658

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC 非技术类
社区管理员
  • 非技术类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧