怎样 调用Windows的文件删除对话框? ( 积分: 100 )

  • 主题发起人 主题发起人 白河愁
  • 开始时间 开始时间

白河愁

Unregistered / Unconfirmed
GUEST, unregistred user!
只是对话框,就是&nbsp;确实要删除“”吗?&nbsp;那个框。<br>不要说自己做一个。
 
use&nbsp;ShellAPI;<br><br>procedure&nbsp;TForm1.DeleteFileToRecycled(const&nbsp;AFile:&nbsp;String);<br>var<br>&nbsp;&nbsp;OpStruc:&nbsp;TSHFileOpStruct;<br>begin<br>&nbsp;&nbsp;with&nbsp;OpStruc&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;Wnd&nbsp;:=&nbsp;0;<br>&nbsp;&nbsp;&nbsp;&nbsp;wFunc&nbsp;:=&nbsp;FO_DELETE;<br>&nbsp;&nbsp;&nbsp;&nbsp;pFrom&nbsp;:=&nbsp;Pchar(AFile);<br>&nbsp;&nbsp;&nbsp;&nbsp;//0:直接删除&nbsp;&nbsp;&nbsp;FOF_ALLOWUNDO:删除文件到回收站<br>&nbsp;&nbsp;&nbsp;&nbsp;fFlags&nbsp;:=&nbsp;0;//FOF_ALLOWUNDO;<br>&nbsp;&nbsp;end;<br>&nbsp;&nbsp;SHFileOperation(OpStruc);<br>end;
 
没看清楚吗?只是&nbsp;删除前&nbsp;确认那个对话框,并不需要删除操作。
 
用WINDOWS的API含数&nbsp;<br>application.messagebox('删除当前数据吗','确定删除',4+mb_iconquestion);
 
无语了....是我表达得差还是题目太难?
 
没找到啊...&nbsp;老白,搞跟踪是你自己的强项啊——看看Windows自己是怎么Call的就是嘛:P
 
不好跟,没公开资料的话。因为象&nbsp;Windows&nbsp;Copy&nbsp;文件的进度条就是虚拟函数,那个有资料还好调用。估计这个也是虚拟函数,看来是没戏了。
 
后退
顶部