📄 如何用api函数实现右键单击目录，返回目录的属性.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=450507 -->
<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="如何用api函数实现右键单击目录，返回目录的属性.files/web_font.css" rel=stylesheet 
type=text/css>
<SCRIPT src="如何用api函数实现右键单击目录，返回目录的属性.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="如何用api函数实现右键单击目录，返回目录的属性.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=450507</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="如何用api函数实现右键单击目录，返回目录的属性">
<Q ID="450507" status="2"><subject><![CDATA[如何用api函数实现右键单击目录，返回目录的属性]]></subject><from>bone</from>
<content><![CDATA[如何用api函数实现
鼠标右键单击目录，返回目录的属性（大小，包括多少文件几子目录的个数 ）]]></content><points>50</points><read_n>122</read_n><reply_n>14</reply_n><regdatetime>2001-2-6 16:10:00</regdatetime><datetime>2001-4-8 20:54:00</datetime><room>Windows API</room><master>amo</master><master2>cAkk</master2><expert>Fyx-10,Kingron-10,Sachow-10,sh</expert></Q>
<REPLY><Q ID="450518"><from>xueminliu</from><datetime>2001-2-6 16:20:00</datetime>
<content><![CDATA[第二步比较容易实现,无非是个递归查找,但是在弹出菜单上增加一个菜单则不知道,]]></content></Q>
<Q ID="450525"><from>Sachow</from><datetime>2001-2-6 16:26:00</datetime>
<content><![CDATA[要用COM扩展Windows Shell。（看Delphi COM编程类的书一定有讲）]]></content></Q>
<Q ID="450588"><from>bone</from><datetime>2001-2-6 17:27:00</datetime>
<content><![CDATA[不是在弹出菜单上再加上菜单。
而是如何把windows中目录的属性（如目录的大小，目录中文件的个数，文件夹的个数等）
提取出来？（win api 函数来实现）

]]></content></Q>
<Q ID="451094"><from>xueminliu</from><datetime>2001-2-7 19:40:00</datetime>
<content><![CDATA[ 那就不知道了]]></content></Q>
<Q ID="469376"><from>shiner</from><datetime>2001-3-13 11:12:00</datetime>
<content><![CDATA[写一小程序，窗体上有一TEDIT控件。将程序放在右键菜单中
如何用api函数实现 鼠标右键单击目录，运行程序，在程序
的TEDIT中显示刚才单击的目录或文件的路径和文件名？]]></content></Q>
<Q ID="494491"><from>rockroll</from><datetime>2001-4-7 12:13:00</datetime>
<content><![CDATA[listen...]]></content></Q>
<Q ID="495289"><from>Fyx</from><datetime>2001-4-8 1:20:00</datetime>
<content><![CDATA[以下方法参考一下：
uses ..., ShellApi;

procedure PropertiesDialog(filename:String);
var 
  sei: TShellExecuteInfo;
begin 
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.lpFile := PChar(filename);
  sei.lpVerb := 'properties';
  sei.fMask  := SEE_MASK_INVOKEIDLIST; 
  ShellExecuteEx(@sei);
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then
  begin
    PropertiesDialog(Opendialog1.FileName); 
  end;
end;]]></content></Q>
<Q ID="495352"><from>cgh0717</from><datetime>2001-4-8 3:30:00</datetime>
<content><![CDATA[你说得好像不太清楚]]></content></Q>
<Q ID="495746"><from>Kingron</from><datetime>2001-4-8 13:31:00</datetime>
<content><![CDATA[用Findfirst() & Findnext() & Findclose()搜索以下不就什么都知道了？]]></content></Q>
<Q ID="495750"><from>akju</from><datetime>2001-4-8 13:32:00</datetime>
<content><![CDATA[虽然我知道答案,但我不会给一个id只上过两天的人回答问题]]></content></Q>
<Q ID="495762"><from>YunEr</from><datetime>2001-4-8 13:39:00</datetime>
<content><![CDATA[楼上的果然明智]]></content></Q>
<Q ID="496316"><from>sonie</from><datetime>2001-4-8 20:15:00</datetime>
<content><![CDATA[agree akju:我最近老在想是不是想发个贴列个黑名单，一些人也太不讲规则了。
前阵子我回答了一个问题，给了详细的代码。后来他发了mail给我说，用了我的办法，
但还有不通的地方，要我帮着调试一下，我改了之后发过去了。然而我回头一看那个
贴子，他结了，也没说是谁的方法帮了他，每人给了10分，根本不提先前的承诺（加分和
共享他做的一个东西）
也还有的贴子我代码都给调试好了，就是不来结题。我气死了，所以决定其后再也不随便
贴代码了，劳动根本得不到尊重     ]]></content></Q>
<Q ID="496357"><from>wjiachun</from><datetime>2001-4-8 20:54:00</datetime>
<content><![CDATA[多人接受答案了。]]></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>
💿 文件大小 112 K
👤 上传用户 yuanshuai440
📂 所属分类文章/文档
🏷️ 相关标签

#delphi #文档
⌨️ 快捷键说明

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