本文整理自网络,侵删。
uses ShellAPI;
function DeleteFileWithUndo(sFileName: string): boolean;var fos: TSHFileOpStruct;begin FillChar(fos, SizeOf(fos), 0); with fos do begin//delphitop.com wFunc := FO_DELETE; pFrom := PChar( sFileName ); fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT; end; Result := (0 = ShFileOperation(fos));end;
相关阅读 >>
Delphi获取dos命令行输出函数 运行cmd命令并获取结果【方法2】
更多相关阅读请进入《Delphi》频道 >>