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

📄 00303.htm

📁 提供了Delphi编程的几个巧妙用法
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>

<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">

<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00303.zip">源程序下载</a></span><b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000">
<br>
</span><span style="background-color: #000080">
<a name="1"></a>
1：让应用程序自身删除&nbsp;<br>
</span></b>   
<span style="background-color: #000000">   
<br>
</span>　　在应用程序刚要退出之前创建一个Delself.bat文件，让它先删除应用程序，然后删除自身。在Form的OnClose事件中加入下列代码：&nbsp;<br>
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>     
var<br>     
&nbsp;&nbsp;&nbsp; F : TextFile ;<br>     
begin<br>     
&nbsp;&nbsp;&nbsp; AssignFile(F, 'delself.bat');<br>     
&nbsp;&nbsp;&nbsp; Rewrite(F);{F为TextFile类型}<br>    
&nbsp;&nbsp;&nbsp; WriteLn(F,'del '+ExtractFileName(Application.ExeName));<br>     
&nbsp;&nbsp;&nbsp; WriteLn(F,'del %0');<br>     
&nbsp;&nbsp;&nbsp; CloseFile(F);<br>    
&nbsp;&nbsp;&nbsp; WinExec('delself.bat',SW_HIDE);<br>   
end;<b><span style="background-color: #000080"><br>   
</span><span style="background-color: #000000">   
<br>   
</span><span style="background-color: #000080">   
<a name="2"></a>  
2：如何把文件删除到回收站中？&nbsp;<br>  
</span></b>     
<span style="background-color: #000000">    
<br> 
</span>　　利用ShellApi中: function SHFileOperation删除，给出文件的绝对路径名，否则可能不能恢复。<br>     
Procedure DelFile(FileName : String) ;<br>     
Var<br>     
&nbsp;&nbsp;&nbsp; T:TSHFileOpStruct;<br>    
&nbsp;&nbsp;&nbsp; P:String;<br>    
begin<br>    
&nbsp;&nbsp;&nbsp; P:=FileName ;<br>     
&nbsp;&nbsp;&nbsp; With T do<br>     
&nbsp;&nbsp;&nbsp; Begin<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Wnd:=0;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wFunc:=FO_DELETE;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pFrom:=Pchar(P);<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fFlags:=FOF_ALLOWUNDO<br>    
&nbsp;&nbsp;&nbsp; End;<br>    
&nbsp;&nbsp;&nbsp; Try<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SHFileOperation(T);<br>    
&nbsp;&nbsp;&nbsp; Except<br>    
&nbsp;&nbsp;&nbsp; End ;<br>     
End ;<b><span style="background-color: #000080"><br>    
</span><span style="background-color: #000000">    
<br>    
</span><span style="background-color: #000080">    
<a name="3"></a>   
3：打开Windows已经注册的文件&nbsp;<br>   
</span></b>ShellExecute(0, nil,'0030301.txt' {指定文件名}, nil, nil, SW_NORMAL);//打开方式     
</p>     
     
<p>     
<br>       
<span style="background-color: #FF0000"><a href="00303.zip">源程序下载</a></span>       
</p>      
       
</body>       
       
</html>

⌨️ 快捷键说明

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