把文件直接删除到回收站

最新推荐文章于 2024-01-29 16:30:38 发布

陈刚12

最新推荐文章于 2024-01-29 16:30:38 发布

阅读量2.1k

点赞数

本文链接：https://blog.csdn.net/u012187684/article/details/25105643

版权

#include <stdio.h>
#include <windows.h>

int main()
{
	char strsrc[]="d:\\123.txt\0\0";
    SHFILEOPSTRUCT lpfileop;
    lpfileop.hwnd=NULL;
    lpfileop.wFunc=FO_DELETE;
    lpfileop.pFrom=strsrc;
    lpfileop.pTo=NULL;
    lpfileop.fFlags=FOF_ALLOWUNDO;
    lpfileop.hNameMappings=NULL;
    lpfileop.fAnyOperationsAborted=0;
    int nok=SHFileOperation(&lpfileop);
    if(nok) printf("出现了错误\n");else printf("文件被成功删除到了回收站\n");
    return 0;
}
/*
  delphi7下能够成功运行的代码

  procedure TForm1.Button1Click(Sender: TObject);
  var
    lpFileOp: TSHFileOpStruct;
  begin
    lpFileOp.Wnd := Application.Handle;
    lpFileOp.wfunc := FO_DELETE;
    lpFileOp.pFrom := pchar('d:\123.txt');
    lpFileOp.fFlags := FOF_ALLOWUNDO;
    lpFileOp.hNameMappings :=nil;
    lpFileOp.lpszProgressTitle :=nil;
    lpFileOp.fAnyOperationsAborted :=false;
    SHFileOperation(lpFileOp);
  end;
*/