有一软件实现禁止新建文件，重命名文件，拖动文件，不知怎么实现(100分)

盛利 · 2004-02-21

http://newxx.nease.net/suntongbu.htm 该软件在这里下载的，安装运行卸载后没有发现对系统有什么大的修改 其中禁止删除文件，禁止下载文件等估计是通过监视有没有确认删除文件的对话框 下载另存为的对话框来实现的，如果有这样的对话框则发消息关闭 但是实现禁止新建文件，重命名文件，拖动文件，不知怎么实现 望高手解答。

xiaofeng007 · 2004-02-21

是针对NTFS格式还是WIN32也行，如果是NTFS的话系统有自带的设置权限的功能。

盛利 · 2004-02-21

当然跟格式没有关系了，这个软件起码在98下和ntfs下都好用的。 不允许人新建文件，但是运行一些软件，比如自动新建了一个ini文件作为保存配置文件还是可以的。

kukuasir · 2004-02-21

应该是用了HOOK API的技术吧 查查相关资料看看

zjan521 · 2004-02-21

只是禁止Explorer的功能还是所有软件? 前者扩展 后者 APIHOOK or 系统自带的监视机制

Genl · 2004-02-21

估计是HOOK吧 文件移动等操作的API是 SHFileOperation SHFileOperationA SHFileOperationW 这3个

盛利 · 2004-02-22

晕，大家没有下载看看吧 应该是没有使用Hook 他只要这么几个文件 2003-07-28  12:43         1,388,544 Msvbvm601.dll 2000-12-06  00:00           109,248 MSWINSCK.OCX 2003-11-29  21:18           232,427 sunflowerTools.exe 2003-07-28  12:43           102,160 Vb6chs.dll 2003-01-01  23:32             1,177 xingfustop.dat 2003-11-29  20:04            32,768 sunmt.tew 2003-11-05  16:45            16,384 update.sun 2003-01-01  13:10                64 sunflowerTools.SUP 应该是vb6编的吧 使用hook起码该有个Dll吧 其中的3个Dll我看都是vb用的Dll文件哪 所有应该不会是Dll 大家不要考虑复杂了， 我原来想实现禁止文件删除的操作 想了很多办法，什么hook什么的，对于文件夹好实现 对于文件没有办法， 其实解决很简单，不关是直接删除还是删除到回收站 都会有确认框，那么不停的扫描有没有这个确认框就可以了 有确认框发个消息关闭就ok 多简单 大家还是帮我看看吧，免安装的，而且不会对系统有什么危害 这个程序技术可能不高，都是一些简单的东西 主要就是扫描窗口标题，发个消息关系 因为我建了个文件夹，名字是“确认文件删除”，这个文件夹一打开就被关闭了 但是解决了很多大家一直认为用很高的技术才能解决的问题 白猫黑猫，能抓老鼠就是好猫啊

Genl · 2004-02-22

晕  知道还问。。。。 >>其实解决很简单，不关是直接删除还是删除到回收站都会有确认框>>不一定 >>Msvbvm601.dll   懂VB的朋友这个是什么啊？？是不是VB.net的运行库啊？   Microsoft Visual Basic Virtual Machine?????   VB.net也带库运行？？？

盛利 · 2004-02-23

>>知道还问。。。。 我问的是实现禁止新建文件，重命名文件，拖动文件，不知怎么实现 从何而来的知道还问 >>其实解决很简单，不关是直接删除还是删除到回收站都会有确认框>>不一定 不一定的情况是什么 我所要禁止的是用户通过键盘、鼠标进行删除文件（或新建等）操作， 程序内新建删除文件可以自由，要不成硬盘保护卡了。

wind28 · 2004-02-23

学习吧！！

netproxy · 2004-02-23

shellapi

盛利 · 2004-02-24

netproxy:     晕，你要是不会，就不要答了，踢一脚就可以！    你要是会，答个shellapi，这能算答案呢？？？      晕。。。晕。。。晕。。。晕。。。晕。。。晕。。。

hbsxcjp · 2004-02-24

>>其实解决很简单，不关是直接删除还是删除到回收站都会有确认框>>不一定 不一定的情况是什么 不一定的情况是： 在＜回收站＞上按右键，点属性，然后把“显示删除确认对话框”的勾勾去掉。 其他不懂。

盛利 · 2004-02-26

在＜回收站＞上按右键，点属性，然后把“显示删除确认对话框”的勾勾去掉。 这个到好办，我在注册表中设置，必需显示删除确认对话框，然后再禁止修改回收站的属性就可以了 不过hbsxcjp，还是谢了 大家还是没有说到我的问题上 我的问题是： [h4]怎么实现禁止新建文件，重命名文件，拖动文件[/h4]

baomin · 2004-02-28

采用HOOK 或 采用硬盘权限

盛利 · 2004-02-28

baomin：    你真招人讨厌，没看上面的内容啊，告诉你这样的内容就别发了    很多人都知道用apihook，硬盘什么，你会吗，把代码写出来 不会就不要说了，我说的那个软件肯定不是用apihook，硬盘保护之类的技术实现的

xusong168 · 2004-02-28

我没下载，不过看了网站上的说明和以上提示，我认为是应用了Policy就是 注册表的功能。

盛利 · 2004-02-29

不是注册表 大多数功能是发close消息禁止那个窗口的

app2001 · 2004-03-02

你是否想为你的Windows加上一双眼睛，察看使用者在机器上所做的各种操作（例如建立、删除文件；改变文件或目录名字）呢？ 　　这里介绍一种利用Windows未公开函数实现这个功能的方法。 　　在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗口添加到系统的系统消息监视链中，该函数在Delphi中的定义如下： 　　Function SHChangeNotifyRegister(hWnd,uFlags,dwEventID,uMSG,cItems:LongWord; 　　lpps

IDLSTRUCT):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

IDLSTRUCT):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

IDLSTRUCT; 　　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

SHNOTIFYSTRUCT; 　　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 := '打开监视'; 　　end; 　　end. 　　运行程序，点击“打开监视”按钮，如果出现一个显示“Shell监视程序成功注册”的对话框，说明Form1已经加入到系统操作监视链中了，你可以试着在资源管理器中建立、删除文件夹，移动文件等操作，你可以发现这些操作都被记录下来并显示在文本框中。 　　在上面的程序中多次使用到了一个PItemIDList的结构，这个数据结构指定Windows下得一个“项目”，在Windows下资源实现统一管理一个“项目”可以是一个文件或者一个文件夹，也可以是一个打印机等资源。另外一些API函数也涉及到了Shell(Windows外壳)操作，各位读者可以参考相应的参考资料。 　　由于使用到了Windows的未公开函数，没有相关得参考资料，所以有一些未知得操作（在Memo1中会显示“未知操作”）。如果哪位读者有兴趣， http://member.netease.com/～blackcat 有实现该功能的VB程序下载。 　　以上程序在Windows98、Windows2000、Delphi5下运行通过。 这个你看看？？？

dingbaosheng · 2004-03-02

楼上的不管用编译通过但不能运行

有一软件实现禁止新建文件，重命名文件，拖动文件，不知怎么实现(100分)

盛利

Unregistered / Unconfirmed

xiaofeng007

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

kukuasir

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

Genl

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

Genl

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

wind28

Unregistered / Unconfirmed

netproxy

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

hbsxcjp

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

baomin

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

Similar threads