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

📄 dpi1.htm

📁 delphi 教程 Delphi 6 常见的大部分函数的使用方法及使用例子
💻 HTM
字号:
<html>
<head>
<title>如何把文件删除到回收站中 </title>
 
 
 
 
 
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
 
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
    <tr> 
       
    </tr>
    </tbody> 
  </table>
  <table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0 
cellspacing=0 width=680 align="center" height="128">
    <tbody> 
    <tr> 
      <td bgcolor=#F9D23C height=14> 
        <div align=center class=H1> <strong>如何把文件删除到回收站中</strong> </font></b></font></b></font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="center">&nbsp;</p>
        <p align="left">例子如下:// Delphi<br>
          <br>
          program del;<br>
          <br>
          uses ShellApi;<br>
          { 利用ShellApi中: function SHFileOperation(const lpFileOp: TSHFileOpStruct): 
          Integer; stdcall; }<br>
          <br>
          Var T:TSHFileOpStruct;<br>
          P:String;<br>
          begin<br>
          P:='C:\Windows\System\EL_CONTROL.CPL';<br>
          With T do<br>
          Begin<br>
          Wnd:=0;<br>
          wFunc:=FO_DELETE;<br>
          pFrom:=Pchar(P);<br>
          fFlags:=FOF_ALLOWUNDO<br>
          End;<br>
          SHFileOperation(T);<br>
          End.<br>
          <br>
          注意:<br>
          1. 给出文件的绝对路径名,否则可能不能恢复;<br>
          2. MS的文档说对于多个文件,每个文件名必须被#)字符分隔,而整个字符串必须用两个#0结束。 <b></b>
        <p align="center"><font 
      color=#ffa000><b><br>
          </b><b>                                            
      </td>
    </tr>
    </tbody> 
  </table>
<font size="-1"> </font></div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

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