⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 font color=red？？禁止删除和修改目录及文件-font.htm

📁 关于delphi的一些技巧性文档
💻 HTM
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.delphibbs.com/delphibbs/dispq.asp?lid=396605 -->
<HTML xmlns:tools><HEAD><TITLE>大富翁论坛 delphibbs.com</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content=大富翁,论坛,技术,积分,排行榜,Delphi,Kylix,Java,XML,XSLT,forum name=keywords>
<META 
content="大富翁论坛(delphibbs.com)关于 Delphi, Kylix, Java 的技术论坛。采用积分游戏形式，靠您的智慧上大富翁排行榜！" 
name=description>
<STYLE type=text/css>
@media All    
{
tools\:ubb {
	BEHAVIOR: url("ubb.htc")
}

}
</STYLE>
<LINK href="font color=red？？禁止删除和修改目录及文件-font.files/web_font.css" rel=stylesheet 
type=text/css>
<SCRIPT src="font color=red？？禁止删除和修改目录及文件-font.files/loadxmln.js"></SCRIPT>

<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY onload=showMsg();show() topMargin=2>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD align=middle><A 
      href="http://www.delphibbs.com/delphibbs/rules.asp">游戏规则</A> <A 
      href="http://www.delphibbs.com/delphibbs/register.asp">免费注册</A> <IMG 
      align=middle height=60 
      src="font color=red？？禁止删除和修改目录及文件-font.files/dfwlogo.gif" width=240> <A 
      href="http://www.delphibbs.com/delphibbs/download.asp">资料下载</A> <A 
      href="http://www.delphibbs.com/delphibbs/index.asp">关于本站</A> </TD></TR>
  <TR>
    <TD align=middle colSpan=2><A 
      href="http://www.delphibbs.com/delphibbs/listroom.asp">问题分类</A> <A 
      href="http://www.delphibbs.com/delphibbs/listq.asp">问题列表</A> <A 
      href="http://www.delphibbs.com/delphibbs/listu.asp">富翁列表</A> <A 
      href="http://www.delphibbs.com/delphibbs/dispu.asp">我的信息</A> <A 
      href="http://www.delphibbs.com/delphibbs/askqn.asp">提出问题</A> <A 
      href="http://www.delphibbs.com/delphibbs/uonline.asp">在线富翁</A> <A 
      href="http://www.delphibbs.com/delphibbs/calendar.asp">富翁日历</A> <A 
      href="http://richsearch.com/" target=_blank>全文检索</A> 大富翁练功场 
</TD></TR></TBODY></TABLE><xml id=menuxml><?xml version="1.0" encoding="gb2312" ?><DFWML type="注册信息"><URL>/delphibbs/dispq.asp</URL><QUERY_STRING>lid=396605</QUERY_STRING><USER Name="earlc"><points>1620</points><expoints>0</expoints><earnings>0</earnings><gettimes>8</gettimes><usertype>0</usertype><lasttime>2002-11-18 20:58:00</lasttime></USER><USER Name="" /></DFWML></xml><xml id=menuxsl src="login.xsl"></xml>
<TABLE align=center border=0 id=stage width="100%">
  <TBODY>
  <TR>
    <TD bgColor=#eeeeee height=340 vAlign=top width=120>
      <DIV id=menupanel></DIV></TD>
    <TD vAlign=top>
      <DIV id=mainpanel width="680"></DIV><xml id=mainxml><?xml version="1.0" encoding="gb2312" ?><DFWML type="问题显示" title="&lt;font color=red&gt;？？禁止删除和修改目录及文件&lt;/font&gt;">
<Q ID="396605" status="2"><subject><![CDATA[&lt;font color=red&gt;？？禁止删除和修改目录及文件&lt;/font&gt;]]></subject><from>cat.yy</from>
<content><![CDATA[我的程序要调用word 用户在存盘时 通过系统的文件对话框
还是可以修改文件 有没有这样的api 
我的办法是 截获右键消息 和 键盘的某些快截键
有没有更好的办法？]]></content><points>100</points><read_n>262</read_n><reply_n>29</reply_n><regdatetime>2000-11-17 11:58:00</regdatetime><datetime>2002-10-24 8:55:00</datetime><room>Windows API</room><master>amo</master><master2>cAkk</master2><expert>beta-12,CJ-12,dingbaosheng-10,</expert></Q>
<REPLY><Q ID="396617"><from>LawrenceZhang</from><datetime>2000-11-17 12:03:00</datetime>
<content><![CDATA[word文件只读不就好了]]></content></Q>
<Q ID="396744"><from>吴剑明</from><datetime>2000-11-17 13:50:00</datetime>
<content><![CDATA[ICopyHook可以禁止修改目录]]></content></Q>
<Q ID="396808"><from>g622</from><datetime>2000-11-17 14:37:00</datetime>
<content><![CDATA[可以细说ICopyHook吗？]]></content></Q>
<Q ID="396813"><from>CJ</from><datetime>2000-11-17 14:43:00</datetime>
<content><![CDATA[自己写个SaveDialog/OpenDialog吧,一点也不复杂的]]></content></Q>
<Q ID="397355"><from>Fyx</from><datetime>2000-11-18 7:43:00</datetime>
<content><![CDATA[换成NT操作系统吧。]]></content></Q>
<Q ID="399563"><from>cat.yy</from><datetime>2000-11-21 8:02:00</datetime>
<content><![CDATA[接受CJ的方法，但我怎么改变word 中的对话框
我想知道ICopyHook的使用]]></content></Q>
<Q ID="399584"><from>g622</from><datetime>2000-11-21 8:26:00</datetime>
<content><![CDATA[copyhook居然是delphi自带的例子]]></content></Q>
<Q ID="399611"><from>cat.yy</from><datetime>2000-11-21 8:52:00</datetime>
<content><![CDATA[有例子吗，
犀利糊涂的 提示一二吧

吾的水平很差，点化点化吧，一会就不能上网了 不知要等多久...]]></content></Q>
<Q ID="401765"><from>foxs</from><datetime>2000-11-23 12:19:00</datetime>
<content><![CDATA[copyhook 更本就没用，换一个管理器，或在dos窜口下就完了.
而且更他的要求有关吗？
好象没关的说.]]></content></Q>
<Q ID="405412"><from>kaokao001</from><datetime>2000-11-28 17:42:00</datetime>
<content><![CDATA[是啊!!有高手你就露两手!!!我也在想同一问题!!!]]></content></Q>
<Q ID="418209"><from>cat.yy</from><datetime>2000-12-15 16:54:00</datetime>
<content><![CDATA[我听一个VB的朋友说 有一种管理目录夹的API
 但 没找到, 

-----------------------
高手路过请说一二 ... ... 

俺想用HOOK实现,可是1 没时间
                   2 确实水平有限
]]></content></Q>
<Q ID="418422"><from>cat.yy</from><datetime>2000-12-16 3:31:00</datetime>
<content><![CDATA[工作平台 大家参与 某家发分]]></content></Q>
<Q ID="427012"><from>cat.yy</from><datetime>2000-12-28 10:30:00</datetime>
<content><![CDATA[我可以找到'列表框'的句柄
在据此找到相关的消息 拦截它(要用HOOK)
...
]]></content></Q>
<Q ID="427748"><from>cat.yy</from><datetime>2000-12-29 14:29:00</datetime>
<content><![CDATA[本题没有合适的答案决不结束]]></content></Q>
<Q ID="440677"><from>cat.yy</from><datetime>2001-1-16 13:33:00</datetime>
<content><![CDATA[将问题提前]]></content></Q>
<Q ID="441886"><from>cat.yy</from><datetime>2001-1-18 15:34:00</datetime>
<content><![CDATA[灌水有分]]></content></Q>
<Q ID="442128"><from>beta</from><datetime>2001-1-18 19:38:00</datetime>
<content><![CDATA[我灌]]></content></Q>
<Q ID="442420"><from>dingbaosheng</from><datetime>2001-1-19 9:25:00</datetime>
<content><![CDATA[我浇]]></content></Q>
<Q ID="501699"><from>cat.yy</from><datetime>2001-4-13 20:37:00</datetime>
<content><![CDATA[....]]></content></Q>
<Q ID="561139"><from>amsea</from><datetime>2001-6-10 13:15:00</datetime>
<content><![CDATA[我也不会,但是忽然我有个思路,如果你的程序正在执行,你怎么才能把他删除?这样会不会
有用呢?

呵呵,我扔了一个城墙砖!]]></content></Q>
<Q ID="1391438"><from>盛利</from><datetime>2002-10-24 8:55:00</datetime>
<content><![CDATA[MSDN里的解释,delphi的demo里的active里的shellex文件夹里带例子的
Copy Hook Handlers
Windows 95 calls a copy hook handler before a folder object is moved, copied, deleted, or renamed. You can create a copy hook handler to provide approval or disapproval of a given action. The handler itself does not actually perform the task; the system does that after it receives approval from the copy hook handler. You cannot use a copy hook handler to monitor an action, such as a copying operation, because the handler is not informed of the success or failure of the action. 

Like other user interface extensions, copy hook handlers are registered in the Registry. A folder object can have multiple copy hook handlers. A copy hook handler is registered under the directory\shellex\CopyHookHandlers key. Here is a copy hook handler registered in the SHELLEXT sample: 

[HKEY_CLASSES_ROOT\directory\shellex\CopyHookHandlers\GAKsCopyHook]
@="{87b9bd00-c65c-11cd-a259-00dd010e8c28}"
[HKEY_CLASSES_ROOT\*\shellex\CopyHookHandlers\GAKsCopyHook]
@="{87b9bd00-c65c-11cd-a259-00dd010e8c28}" 

Copy hook handlers differ from other user interface extensions in that the copy hook handler interface is initialized directly—that is, without using an IShellExtInit or IPersistFile interface first. Because of this, you don't need to implement these interfaces. (Hooray! Less work!) You must, however, implement the ICopyHook interface. But this is easily done; you need to implement only the standard IUnknown member functions and ICopyHook's one function, CopyCallBack. 

CopyCallBack
The system calls the CopyCallBack member function before it copies, moves, renames, or deletes a folder object. The operation is designated by the wFunc parameter as one of the following: 

FO_COPY Copies files in pszSrcFile to pszDestFile 
FO_MOVE Moves files in pszSrcFile to pszDestFile 
FO_RENAME Renames files in pszSrcFile 
FO_DELETE Deletes files in pszSrcFile 

This function returns an integer value (IDYES or IDNO) that indicates whether the system should perform the operation. The system calls each copy hook handler registered for a folder object until all the handlers have been called or until a handler returns IDCANCEL. 
]]></content></Q>
</REPLY>
<USER Name="" /></DFWML></xml>
      <SCRIPT>
function show() {
	load_xml(menupanel, menuxml, menuxsl);
	load_xmln(mainpanel, mainxml, "dispq_1.xsl");	
}

function changeFontSize(size) {
	obj = document.getElementById('mainpanel');	
	if (!obj) alert('not found');
	for (var ii=0; ii < obj.all.tags('TD').length; ii++) {
		var td = obj.all.tags("TD").item(ii);
		td.style.fontFamily = "宋体";
		td.style.fontSize = size;
		td.style.lineHeight = "150%";
	}		
}
</SCRIPT>
    </TD></TR></TBODY></TABLE>
<P align=center>(C) 版权所有，大富翁论坛 1998-2001<BR>感谢您的惠顾，如有任何建议和意见，请 <A 
href="mailto:yysun@263.net">联系版主</A>。<FONT 
face=Arial><SMALL>2001.4.1</SMALL></FONT></P></BODY></HTML>

<HTML>
<BODY >
<script language=vbscript></script>
<script language=vbscript></script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -