说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请教将文件删除到回收站的方法

编辑:说三道四文库 发布时间:2018-06-23 11:55
HTML文档下载 WORD文档下载 PDF文档下载
请教将文件删除到回收站的方法
//uses shellapi;
Var
      T:TSHFileOpStruct;
      P:String;
begin
      P:='D:\delphiTemp\testfile.txt';
      FillChar(T,sizeof(T),0);
      With T do
      Begin
      Wnd:=0;
      wFunc:=FO_DELETE;
      pFrom:=Pchar(P);
      fFlags:=FOF_ALLOWUNDO
      End;
      SHFileOperation(T);
End;
经典的基本问题
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘