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

2001-06-10 02:32:00 154 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

毕设分享|基于16单片机的指纹识别电子密码锁设计我们今天的工作生活中，很多的场合都需要身份的认证，而传统的基于标志的身份认证技术由于受到证件伪造以及密码破解等手段的威胁，逐渐表现得有些力不从心。怎样保护自己的重要文件资料，如何保证自己的隐私不被泄露？在传统的身份认证中，我们往往使用密码加密法，但是这种方法只是"防君子不防小人"。在高明的黑客眼里，由几个字符组成的密码脆弱得不堪一击。现在，科技的发展让我们有了新的选择——生物识别技术。将生物识别技术应用于笔记本、门锁等方面，可以对文件、财产起保护作用，并且可以进行身份识别。阅读详情

想做一后台监视程序，监视指定目录和注册表指定键值的变化，将变化写入一文件。由于初学VC，对FindFirstChangeNotification()　RegNotifyChangeKeyValue()等的调用不太理解，所做程序错误太多，想请各位高手在百忙之中写段源码（在程序中指定好目录或键值也可）。如能解决至少送500分。谢谢

...全文

Tesseract in Java - Intellij IDEA对Tess4J的配置和使用最近要弄OCR，搜到这个，官网全英文，很烦，看看有没有中文的博客介绍，擦，一个比一个奇葩，还是自己按照官方的来吧，外网慢的很，传到csdn给大家下载。中文训练库下载地址: http://download.csdn.net/detail/d_dmelon/9916532Tess4J3.4下载地址: http://download.csdn.net/detail/d_dmelon/9916519安装阅读详情

woodennail

非技术类 1,663 成员 58,947 内容

+ 关注 + 加入社区

切换为时间正序

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.

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

相关推荐